Membuat Aplikasi Penghitung Umur Anda

Hai Sahabat Blogger Ketemu lagi dengan Saya,Saya Ingin Coba berbagi Dengan sahabat VB.Kali Ini saya ingin Share Cara Membuat Aplikasi Penghitung Umur Anda Di (VB6) Bagi Yang Berkenan langsung aja Ikuti Langkah nya Berikut Ini :

Pertama tama Harus Yang dilakukan :

·         Buatlah Project Baru (Standar.exe)

·         Sesudah Muncul Lalu Tambahkan: 3 Label

Ganti Caption Label1 =  “Berapa Sich Umur Anda”

                     Label2 = “Lahir”

                     Label3 =  Label3

·         1 Buah Frame ---à

Ganti Caption = “Masukan tanggal lahir”

·         3 Buah ComboBox

Ganti Properties  Syle : 2-Dropdown List

·         Dan 1 buah Command Button

Ya Kurang Lebih Seperti Ini Dech :

Kemudian 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 = 1950 To Year(Now)

Combo3.AddItem i

Next i

Combo1.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:" & SelisihTanggal(CDate(sLahir), Date)

Else

MsgBox "Tanggal Nya Salah Gan", 48, "Info"

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 Salah gan", vbCritical, "ErrorTanggal"

End Function

·         Lalu Jalankan Dengan menekan Tombol F5

Selesai Dech Mudah mudahan bermanfaat ea,,Jangan Lupa Tinggalkan Comment Nya Makasich..