Programación General > Visual Basic 6.0 e inferiores

 Sumar, Restar Y Volver Sumar Horas??

(1/1)

neorent:
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

DiabloRojo:
Mummm... no sé... trata utilizando las funciones DateAdd y DateDiff del vb. Tal vez sirvan para tus propósitos.

Saludos.

DiabloRojo.

neorent:

--- Cita de: "DiabloRojo" --- Mummm... no sé... trata utilizando las funciones DateAdd y DateDiff del vb. Tal vez sirvan para tus propósitos.

Saludos.

DiabloRojo.
--- Fin de la cita ---
sabes no se ocupar esas funciones pero si me ayudas quizas se pueda hacer algo
espero que este bien y gracias por el aporte

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:

neorent:

--- 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:
--- Fin de la cita ---
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

Navegación

[0] Índice de Mensajes