Programación General > Visual Basic para principiantes

 Almacenar minutos

(1/1)

jorger53:
Hola lo que sucede es que almaceno una diferencia de horas en una etiqueta:

Label1.Caption = Format(TimeValue(b) - TimeValue(a), "hh:mm")
entonces en una variable "c" almaceno las horas
c = Format(TimeValue(Label1.Caption), "hh")

y en la variable "d", los minutos
d = Format(TimeValue(Label1.Caption), "mm")

el problema surge cuando ejecuto el programa, depurandolo he visto que en la c se almacena correctamente el valor de cuantas horas son, pero en la variable d los minutos siempre aparece "12" sin importar cuantos minutos sean, ya estuve cambiando el tipo de variable, y nada y me pregunto a que se debe el 12, si alguien me puede ayudar se lo agradeceré mucho. :hitcomp:

F_Tanori:

--- Cita de: "jorger53" ---Hola lo que sucede es que almaceno una diferencia de horas en una etiqueta:

--- Código: Text --- Label1.Caption = Format(TimeValue(b) - TimeValue(a), "hh:mm")'entonces en una variable "c" almaceno las horas c = Format(TimeValue(Label1.Caption), "hh")  'y en la variable "d", los minutosd = Format(TimeValue(Label1.Caption), "mm") 
el problema surge cuando ejecuto el programa, depurandolo he visto que en la c se almacena correctamente el valor de cuantas horas son, pero en la variable d los minutos siempre aparece "12" sin importar cuantos minutos sean, ya estuve cambiando el tipo de variable, y nada y me pregunto a que se debe el 12, si alguien me puede ayudar se lo agradeceré mucho. :hitcomp:
--- Fin de la cita ---

El problema es la funcion format, tu estas asumiendo que format te va extraer la parte que le estas indicando en el patron (hh, mm) del formato, pero no es asi, lo que debes de hacer es extraerlas primero  y luego aplicarle el formato

El 12 es porque esta tomando como la hora por "default" la funcion format

Hazlo asi mira


--- Código: Visual Basic --- ...c = Format(Hour(TimeValue(Label1.Caption)), "00")d = Format(Minute(TimeValue(Label1.Caption)), "00")... 
Tambien utiliza la etiqueta [CODE] para publicar codigo

Saludos

jorger53:
muchas gracias por deciirme cual era el error, saludos. :lol:

Navegación

[0] Índice de Mensajes