¿Cómo usar fechas y horas excel vba?
Tengo una parte del código de mi macro para un formulario (Nuevo en el tema)
Private Sub UserForm_Initialize()
Dim mytime As Date
Dim mystr As String
mytime = #12:00:00 AM#
'Establece el valor 8801
NoDespacho.Caption = Worksheets("INICIO").Range("B1")
'Deseo obtener las horas en formato de 24hr en lugar de 5:00 pm debería ser 17:00
mystr = Format(mytime, "HH:mm")
'Establece la fecha del traspaso 12/11/2016
FechaTraspaso.Caption = Worksheets("INICIO").Range("B2")
'Establece la hora del traspaso 17:00
HoraTraspaso.Caption = Worksheets("INICIO").Range("B3")
HoraTraspaso = Format(mytime) 'Ingresada por mi
HoraLlamada = Format(mytime) 'Debe ser ingresada por el usuario
*El problema está que en la hora de traspaso me está copiando el mismo valor y no debería ser así
¡Gracias por su apoyo!
1 Respuesta
Si lo que necesitas es volcar al UF los datos de tu hoja pero con otro formato, debes dejar las instrucciones que adjunto a continuación:
Private Sub UserForm_Initialize()
Dim mytime As Date
Dim mystr As String
'mytime = #12:00:00 AM#
'Establece el valor 8801
NoDespacho.Caption = Worksheets("INICIO").Range("B1")
'Deseo obtener las horas en formato de 24hr en lugar de 5:00 pm debería ser 17:00
'mystr = Format(mytime, "HH:mm")
'Establece la fecha del traspaso 12/11/2016
FechaTraspaso.Caption = Worksheets("INICIO").Range("B2")
'Establece la hora del traspaso 17:00
HoraTraspaso.Caption = Format(Worksheets("INICIO").Range("B3"), "HH:mm")
'HoraTraspaso = Format(mytime) 'Ingresada por mi
'HoraLlamada = Format(mytime) 'Debe ser ingresada por el usuario
End SubEs decir, que para esta parte de la tarea solo debes dejar las líneas que dejo habilitadas.
Tu código enviaba siempre el valor 12:00 o 00:00 porque así lo definiste en mytime...
¡Muchas gracias, Elsa! , en verdad ya había intentado varias cosas y no me daba el resultado.
Tu respuesta solucionó el código elaborado
Saludos!
