SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Visual Basic para principiantes => Mensaje iniciado por: jorger53 en Sábado 20 de Diciembre de 2008, 01:19

Título: Almacenar minutos
Publicado por: jorger53 en Sábado 20 de Diciembre de 2008, 01:19
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:
Título: Re: Almacenar minutos
Publicado por: F_Tanori en Sábado 20 de Diciembre de 2008, 08:29
Cita de: "jorger53"
Hola lo que sucede es que almaceno una diferencia de horas en una etiqueta:
Código: Text
  1.  
  2. Label1.Caption = Format(TimeValue(b) - TimeValue(a), "hh:mm")
  3. 'entonces en una variable "c" almaceno las horas
  4. c = Format(TimeValue(Label1.Caption), "hh")
  5.  
  6. 'y en la variable "d", los minutos
  7. d = Format(TimeValue(Label1.Caption), "mm")
  8.  

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:

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
  1.  ...
  2. c = Format(Hour(TimeValue(Label1.Caption)), "00")
  3. d = Format(Minute(TimeValue(Label1.Caption)), "00")
  4. ...
  5.  

Tambien utiliza la etiqueta [CODE] para publicar codigo

Saludos
Título: Re: Almacenar minutos
Publicado por: jorger53 en Domingo 21 de Diciembre de 2008, 01:05
muchas gracias por deciirme cual era el error, saludos. :lol: