Menghitung Selisih Dari 2 Tanggal Berbeda ~ PAW | programming-animation-website

Hai sobat PAWers, postingan ini saya akan mengajarkan menghitung selisih dari 2 tanggal yang berbeda menggunakan DTPicker. Misalnya,

inputan 1 adalah "13 Agustus 2013" dan

inputan 2 adalah "13 September 2014", maka

hasil yang didapat adalah: "1 Tahun 1 Bulan".

Buatlah 1 project baru dan desain seperti gambar di bawah ini:

kemudian ketikkan source code seperti dibawah ini:

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"
  'http://pawzone.blogspot.com
  Exit Sub
Pesan:
  MsgBox "Tipe tanggal salah!", vbCritical, "Error Tanggal"
End Sub

Hasil setelah program dijalankan:

Untuk mendownload source code nya Klik Disini

Menghitung Selisih Dari 2 Tanggal Berbeda

Related Post