tugas vb

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 IfEnd Sub
Private Sub cmdtutup_Click() Unload MeEnd 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 = hariEnd Sub