MEMBUAT JAM DIGITAL & PENGHITUNG UMUR MENGGUNAKAN VB 6.0
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
Text1.Text = Time
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub Text1_Change()
Text1.Text = Time
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
End Sub
Code Penghitung Umur
Private Sub Command1_Click()
Dim jumlahhari As Integer
Dim umur As Integer
Dim hari As Integer
jumlahhari = DateDiff("d", DTPicker1.Value, Date)
umur = jumlahhari / 365
hari = jumlahhari - (umur * 365)
Text1.Text = umur
End Sub
Private Sub Command2_Click()
End
End Sub
Dim jumlahhari As Integer
Dim umur As Integer
Dim hari As Integer
jumlahhari = DateDiff("d", DTPicker1.Value, Date)
umur = jumlahhari / 365
hari = jumlahhari - (umur * 365)
Text1.Text = umur
End Sub
Private Sub Command2_Click()
End
End Sub
0 komentar: