Practica 2

Practica #2

Hora y fecha

Private Sub Command1_Click()

MsgBox "time", vbDefaultButton1, "hora"

End Sub

Private Sub Empezar_Click()

lblFecha = Format(VBA.Now, "hh: mm: ss")

lblFecha1 = Format(VBA.Now, "yyyy-mm-dd")

End Sub

Private Sub Label3_Click()

lblFecha1 = Format(VBA.Now, "yyyy-mm-dd")

End Sub

Private Sub lblFecha_Change()