Visual Basic para Aplicaciones - SOLO PARA EXPERTOS

Life is soft - evento anual de software empresarial
 
Vista:

SOLO PARA EXPERTOS

Publicado por Byron Vega (1 intervención) el 01/10/2000 00:00:00
Este es el problema:
Estoy creando un programa que nesecita el reloj
del sistema de la computadora, el problema es que
yo necesito sumar a la hora obtenida del sistema,
ocho horas y treinta minutos.
este es un fragmento de la instrucion
MiHora= Time ´suponer que la hora en este momento es 8:30
MinuevaHora=MiHora+#8:30 AM#

cuando yo leo la variable Minuevahora
yo veoesto
12/31/1899 5:00 PM

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SOLO PARA EXPERTOS

Publicado por Luis Rodrigo Solorzano (5 intervenciones) el 03/10/2000 00:00:00
hola, como vas?
bueno con respecto a tu pregunta nose si lo que queres hacer es esto:
supongamos que
hoy es 03/10/2000 1:00 AM y a esto queres sumarle 8 horas y treinta minutos?
como resultado tendriamos:
03/10/2000 9:30 AM,

ok, entonces las horas y minutos que queres dividilos entre 24 es decir
8.3/24 = 0.35

bueno ahora la solucion (creo)
declara una variable
dim mi_fecha_hora as date
dim fraccion_tiempo as double
fraccion_tiempo = 8.3/24

mi_fecha_hora = date + fraccion_tiempo

msgbox date ´para ver que fecha y hora llevamos
msgbox mi_fecha_hora ´para ver que fecha y hora tenemos despues del calculo.....

espero te sirva..
un saludo...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:SOLO PARA EXPERTOS

Publicado por tecniCam (10 intervenciones) el 07/10/2000 00:00:00
Sólo tienes que formatearlo de la manera que quieras:
Minuevahora = Format(MiHora, "h:m:s") ´ Devuelve "17:4:23".
Minuevahora = Format(MiHora, "hh:mm:ss AMPM") ´ Devuelve "05:04:23 PM".

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar