Modul Hitung

Private Sub cmdproses_Click()

Dim TanggalA, tanggalB As Date

Dim hr, bl As Double

Dim UsiaTH, usiabl, usiahr, pesan

TanggalA = DTPicker1.Value

tanggalB = DTPicker2.Value

If (tanggalB <= TanggalA) Then

pesan = MsgBox("batas perhitungan tanggal harus lebih besar dari tanggal lahir", vbCritical, "PERINGATAN")

Else

UsiaTH = DateDiff("yyyy", TanggalA, tanggalB)

Textth.Text = UsiaTH

usiabl = DateDiff("m", TanggalA, tanggalB)

bl = usiabl Mod 12

Textbl.Text = bl

usiahr = DateDiff("d", TanggalA, tanggalB)

hr = usiahr Mod 31

Texthr.Text = hr

End If

End Sub

Private Sub cmdtutup_Click()

Unload Me

End Sub

Private Sub DTPicker1_Change()

Dim Tanggal As Date

Dim Angkahari

Dim hari

nhari = Array("", "MINGGU", "SENIN", "SELASA", "RABU", "KAMIS", "JUMAT", "SABTU")

Tanggal = DTPicker1.Value

Angkahari = DatePart("w", Tanggal, vbSunday)

hari = nhari(Angkahari)

lbllahir.Caption = hari

End Sub