Source code visual basic 6 berikut untuk menghitung selisih dari 2
tanggal berbeda. Misal jika input tanggal awal “1 Januari 2009″ dan
tanggal akhir “1 Maret 2010″, maka output yang keluar adalah “1 Tahun 2
Bulan”.
Buat 1 project baru dengan :
1 Label
1 CommandButton
2 DTPicker (Jika tidak ada, tekan CTRL+T, dan ceklis “Microsoft Windows Common Control-2 6.0″)
Source code :
Buat 1 project baru dengan :
1 Label
1 CommandButton
2 DTPicker (Jika tidak ada, tekan CTRL+T, dan ceklis “Microsoft Windows Common Control-2 6.0″)
Source code :
| Private Sub Command1_Click() |
| Dim Tahun As Integer, Sisa As Integer |
| Dim SelisihBulan As Integer |
| On Error GoTo Pesan |
| SelisihBulan = DateDiff("m", DTPicker1.Value, DTPicker2.Value) |
| Tahun = SelisihBulan \ 12 |
| Sisa = SelisihBulan Mod 12 |
| Label1.Caption = "Selisih : " & Tahun & " Tahun " & Sisa & " Bulan" |
| Exit Sub |
| Pesan: |
| MsgBox "Tipe tanggal salah!", vbCritical, "Error Tanggal" |
| | | | End Sub |
