Mencari Selisih Tanggal (Dengan VB 6)

Mempelajari tentang sesuatu yang baru memang sangatlah menyenangkan, apalagi yang kita pelajari sesuai dengan selera kita, tapi bisa juga malah sebaliknya, heee,, VB merupakan bahasa pemrograman yang handal dan tangguh,, kayak mau perang aja,, kali ini saya akan bahas tentang mencari selisih tanggal dengan VB 6, kira-kira berapa ya umur kita sekarang,, yu kita buat program untuk menghitung umur kita, bagi yang tertarik atau berminat silahkan lakukan cara-cara berikut ini:

Baca Selengkapnya bos

1. Buatlah form baru
2. Tambahkan 3 buah label
3. Label1 (Caption : Menghitung Umur Kita Sekarang)
4. Label2 (Caption : Lahir )
5. Label3 (Caption : Umur Anda sekarang )
6. Tambah pula 3 Buah ComboBox propertis Style : 2 - Dropdown List
7. ComboBox1 (untuk tanggal)
8. ComboBox2 (untuk bulan)
9. ComboBox3 (tahun)
10.1 Buah Command Button (Caption : Ok)

Lalu ketik Coding dibawah ini:

Option Explicit

Private Sub showTanggal()
Dim i As Byte
For i = 1 To 31
Combo1.AddItem Format(i, "00")
Next i
Combo1.ListIndex = 0
End Sub

Private Sub showBulan()
Dim i As Byte
For i = 1 To 12
Combo2.AddItem Format(i, "00")
Next i
Combo2.ListIndex = 0
End Sub

Private Sub showTahun()
Dim i As Integer
For i = 1955 To Year(Now)
Combo3.AddItem i
Next i
Combo3.ListIndex = 0
End Sub

Private Sub Command1_Click()
Dim sLahir As String
sLahir = Combo1 + "/" + Combo2 + "/" + Combo3
If IsDate(sLahir) = True Then
Label3.Caption = "Umur anda sekarang adalah : " & SelisihTanggal(CDate(sLahir), Date)
Else
MsgBox "Tanggalnya kurang benar bos...", 48, "Informasi"
Combo1.SetFocus
End If
End Sub

Private Sub Form_Load()
showTanggal
showBulan
showTahun
End Sub

Private Function SelisihTanggal(ByVal TanggalAwal As _
Date, ByVal TanggalAkhir As Date) As String

Dim Tahun As Integer, Sisa As Integer
Dim SelisihBulan As Integer
On Error GoTo pesan
SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)
Tahun = SelisihBulan \ 12
Sisa = SelisihBulan Mod 12
SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"
Exit Function
pesan:
MsgBox "Tipe tanggal kurang benar bos!", vbCritical, "Error TAnggal"
End Function