• Miércoles 15 de Mayo de 2024, 15:30

Autor Tema:  Sumar, Restar Y Volver Sumar Horas??  (Leído 5330 veces)

neorent

  • Miembro MUY activo
  • ***
  • Mensajes: 249
    • Ver Perfil
    • http://www.laestokada.cl
Sumar, Restar Y Volver Sumar Horas??
« en: Jueves 26 de Enero de 2006, 23:26 »
0
HOLA A TODOS AMIGOS:

   BUENO LES COMENTO NECESITO SABER COMO SUMAR O RESTAR O NO SE COMO DECLARAR UNA VARIABLE DE TIPO NO SE HORA, POR EJEMPLO YO HAGO ESTO PERO NO RESULTA.

PUBLIC HORA AS DATE
PUBLIC HORA 1 AS DATE
PUBLIC HORA 2 AS DATE
PUBLIC HORA 3 AS DATE

LUEGO EN EL SISTEMA HAGO LO SIGUIENTE
HORA1=b("HORALLAMADO") '10:30:00
HORA2=b("HORAINICIO")'10:45:00
HORA3="12:00:00" '/SUSPUESTAMENTE QUEDA COMO 12:00:00 PM
LUEGO HAGO ESTO
HORA=HORA2-HORA1 '/YA QUE HORA2 SIEMPRE ES MAS ALTO POR QUE LO DA EL SISTEMA
ENTONCES HORA DEBERIA TENER EL VALOR 00:15:00
COMO HAGO ESTO JAJAJA NO SE SI ES MUY COMPLICADO PERO ESPERO QUE SEA ALGO ASI BUENO AMIGOS LES ENCARGO ALGUNA AYUDAITA YA QUE ESTEN BIEN ADIOS Y MUCHAS GRACIAS
Un Tigre Nunka Kambia Sus Rayas

DiabloRojo

  • Miembro MUY activo
  • ***
  • Mensajes: 220
    • Ver Perfil
Re: Sumar, Restar Y Volver Sumar Horas??
« Respuesta #1 en: Viernes 27 de Enero de 2006, 13:34 »
0
Mummm... no sé... trata utilizando las funciones DateAdd y DateDiff del vb. Tal vez sirvan para tus propósitos.

Saludos.

DiabloRojo.

neorent

  • Miembro MUY activo
  • ***
  • Mensajes: 249
    • Ver Perfil
    • http://www.laestokada.cl
Re: Sumar, Restar Y Volver Sumar Horas??
« Respuesta #2 en: Viernes 27 de Enero de 2006, 16:10 »
0
Cita de: "DiabloRojo"
Mummm... no sé... trata utilizando las funciones DateAdd y DateDiff del vb. Tal vez sirvan para tus propósitos.

Saludos.

DiabloRojo.
sabes no se ocupar esas funciones pero si me ayudas quizas se pueda hacer algo
espero que este bien y gracias por el aporte
Un Tigre Nunka Kambia Sus Rayas

Angel38

  • Miembro MUY activo
  • ***
  • Mensajes: 370
    • Ver Perfil
Re: Sumar, Restar Y Volver Sumar Horas??
« Respuesta #3 en: Viernes 27 de Enero de 2006, 18:17 »
0
Hola Neorent.

Primero que todo te recomiendo que no escribas todo en mayúsculas porque pareciera que estuvieses gritando :angry: , además se hace difícil la comprensión del mensaje. :blink:

Bueno ahora pasemos a lo que interesa :comp: , tenia la misma duda y un compañero de este foro me pasó la respuesta ahora yo lo haré contigo :ball: .

dim suma as variant
dim Hora1 as string, Hora2 as string, Hora3 as string

suma = Format(TimeValue(Hora1) + TimeValue(Hora2)+ TimeValue(Hora3), "hh:mm:ss")

'Lo unico que debes tener en cuenta es el format de la hora.
'Espero te funcione para lo que necesitas.:suerte:
[size=109]Se me olvidó instalar los Drivers de Cordura en mi Cerebro.

neorent

  • Miembro MUY activo
  • ***
  • Mensajes: 249
    • Ver Perfil
    • http://www.laestokada.cl
Re: Sumar, Restar Y Volver Sumar Horas??
« Respuesta #4 en: Sábado 28 de Enero de 2006, 02:06 »
0
Cita de: "Angel38"
Hola Neorent.

Primero que todo te recomiendo que no escribas todo en mayúsculas porque pareciera que estuvieses gritando :angry: , además se hace difícil la comprensión del mensaje. :blink:

Bueno ahora pasemos a lo que interesa :comp: , tenia la misma duda y un compañero de este foro me pasó la respuesta ahora yo lo haré contigo :ball: .

dim suma as variant
dim Hora1 as string, Hora2 as string, Hora3 as string

suma = Format(TimeValue(Hora1) + TimeValue(Hora2)+ TimeValue(Hora3), "hh:mm:ss")

'Lo unico que debes tener en cuenta es el format de la hora.
'Espero te funcione para lo que necesitas.:suerte:
bueno muchas gracias por tu ayuda ("si escribi con mayuscula era pok estaba apurado y debia irme a casita del trabajo sorry :P )
bueno ahora no lo puedo probar pero lunes llegando al trabajo lo pruebo y te cuento y gracias por tu ayuda hasta luego que este muy bien adios
Un Tigre Nunka Kambia Sus Rayas