• Jueves 7 de Noviembre de 2024, 23:28

Autor Tema:  Almacenar minutos  (Leído 1461 veces)

jorger53

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
Almacenar minutos
« en: Sábado 20 de Diciembre de 2008, 01:19 »
0
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

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re: Almacenar minutos
« Respuesta #1 en: Sábado 20 de Diciembre de 2008, 08:29 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================

jorger53

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
Re: Almacenar minutos
« Respuesta #2 en: Domingo 21 de Diciembre de 2008, 01:05 »
0
muchas gracias por deciirme cual era el error, saludos. :lol: