Menghitung Selisih 2 Buah Tanggal (Bagian I) VB6

Berikut ini adalah cara penggunaan fungsi DateDiff yaitu menghitung selisih dua buah tanggal apakah hari (d), bulan (m) atau tahun (yyyy) di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form dan 1 Commandbutton
2. Copy-kan coding berikut ke dalam editor form yang bertalian

          Private Sub Command1_Click()
          Dim hari As Integer, bulan As Integer, tahun As Integer
              hari = DateTime.DateDiff("d", _

                     CDate("22/01/1973"), _
                     CDate("22/01/2002")) '--> Menghasilkan 10592
             
              bulan = DateTime.DateDiff("m", _

                     CDate("22/01/1973"), _
                     CDate("22/01/2002")) '--> Menghasilkan 348
             
              tahun = DateTime.DateDiff("yyyy", _
                     CDate("22/01/1973"), _

                     CDate("22/01/2002")) '--> Menghasilkan 29
             
              MsgBox "Selisih antara tanggal 22/01/1973" & vbCrLf & _
                     "dengan tanggal 22/01/2002 " & vbCrLf & _

                     "menghasilkan sebagai berikut: " & vbCrLf & _
                     "" & vbCrLf & _
                     " " & Format(hari, "#,#") & " hari, ATAU" & vbCrLf & _
                     " " & Format(bulan, "#,#") & " bulan, ATAU" & vbCrLf & _

                     " " & Format(tahun, "#,#") & " tahun", _
                     vbInformation, "DateDiff"
          End Sub

Tags:

contoh program vb6, contoh fungsi di vb6, cara penggunaan fungsi vb, tutorial vb6, download tutorial vb6, vb6 tutorial download, dasar dasar vb6, belajar vb6, cara mudah belajar vb6, vb6 artikel download, vb6 blog, contoh program vb6, artikel vb6, semua tentang vb6, vb6 api, cara menggunakan module, cara menggunakan class module