Mencari selisih tgl di visual basic

Disini saya coba berbagi tentang mencari selisih tanggal di vb... Karena beberapa waktu lalu saya sempat memberikan latihan mengenai selisih tanggal, disini saya terapkan pada contoh project dibawah ini yaitu tentang menghitung umur, atau selisih waktu di visual basic
Ikuti langkah berikut:

1. Buatlah Project Baru (Standard exe)
2. Tambahkan :
3. 3 Label
4. Label1 (Caption : Mencari Selisih Tanggal)
5. Label2 (Caption : Lahir :)
6. Label3 (Caption : Umur Anda)
7. 1 Buah Frame ------> Caption : Masukan Tanggal Lahir
8. 3 Buah ComboBox ----> Style : 2 - Dropdown List
9. 1 Buah Command Button

Mungkin bisa digambarkan seperti ini


Pada Jendela Coding, silahkan ketikkan listing berikut :

1. Option Explicit  
2.   
3. Private Sub tampilTgl()  
4. Dim a As Byte  
5. For a = 1 To 31  
6. Combo1.AddItem Format(i, "00")  
7. Next a   
8. Combo1.ListIndex = 0  
9. End Sub  
10.   
11. Private Sub tampilBln()  
12. Dim a As Byte  
13. For a = 1 To 12  
14. Combo2.AddItem Format(i, "00")  
15. Next a   
16. Combo2.ListIndex = 0  
17. End Sub  
18.   
19. Private Sub tampilThn()  
20. Dim a As Integer  
21. For a = 1950 To Year(Now)  
22. Combo3.AddItem a   
23. Next a   
24. Combo3.ListIndex = 0  
25. End Sub  
26.   
27. Private Sub Command1_Click()  
28. Dim sLahir As String  
29. sLahir = Combo1 + "/" + Combo2 + "/" + Combo3  
30. If IsDate(sLahir) = True Then  
31. Label3.Caption = "Umur anda sekarang : " & SelisihTanggal(CDate(sLahir), Date)  
32. Else  
33. MsgBox "Tanggal yang anda input salah", 48, "Info"  
34. Combo1.SetFocus  
35. End If  
36. End Sub  
37.   
38. Private Sub Form_Load()  
39. tampilTgl  
40. tampilBln  
41. tampilThn  
42. End Sub  
43.   
44. Private Function SelisihTanggal(ByVal TanggalAwal As _  
45. Date, ByVal TanggalAkhir As Date) As String  
46.   
47. Dim Tahun As Integer, Sisa As Integer  
48. Dim SelisihBulan As Integer  
49. On Error GoTo pesan  
50. SelisihBulan = DateDiff("m", TanggalAwal, TanggalAkhir)  
51. Tahun = SelisihBulan \ 12  
52. Sisa = SelisihBulan Mod 12  
53. SelisihTanggal = Tahun & " Tahun " & Sisa & " Bulan"  
54. Exit Function  
55. pesan:  
56. MsgBox "Tipe Tanggal Salah!", vbCritical, "Error TAnggal"  
57. End Function  

Sekarang coba kalian run,dan lihat hasilnya dari inputan kalian,apakah sesuai atau tidak...

---

Klik Like/share jika anda menyukai tulisan Share

    Syarat Tukar Link/Banner      Blog anda terdaftar di Search Engine dan halaman tukar link anda terindeks di Google.      Terdaftar      Terdapat meta tag search engine pada template.      Terindeks      Halaman blog muncul pada hasil pencarian Google...  

---