Anónimo
Calcular hora Futura en Visual Foxpro
Tengo la siguiente inquietud,
En el sistema que estoy implementando manejo ciudades, Origen y Destino, dependiendo el origen y el destino tienen un horario de recorrido.
Tengo un texbox formato "hh:mm" donde dígito la hora de salida y otro texbox numérico donde dígito cuanto seria el recorrido en horas. Para que me establezca en otro texbox la hora de llegada a su destino. Teniendo en cuenta la hora de salida y el rrecorrido en horas digitado.
Nota importante: formato utilizado en en horas es de 24.
01:00, 02:00, 03:00, 04:00, 05:00, 06:00, 07:00, 08:00, 09:00, 10:00, 11:00, 12:00
13:00, 14:00, 15:00, 16:00, 17:00, 18:00, 19:00, 20:00, 21:00, 22:00, 23:00, 00:00
Por ejemplo:
Hora Salida: "22:10", Tiempo de Recorrido: 9 Horas, Hora de Llegada: "07:10"
Hora Salida: "10:45", Tiempo de Recorrido: 6 Horas, Hora de Llegada: "16:45"
En el sistema que estoy implementando manejo ciudades, Origen y Destino, dependiendo el origen y el destino tienen un horario de recorrido.
Tengo un texbox formato "hh:mm" donde dígito la hora de salida y otro texbox numérico donde dígito cuanto seria el recorrido en horas. Para que me establezca en otro texbox la hora de llegada a su destino. Teniendo en cuenta la hora de salida y el rrecorrido en horas digitado.
Nota importante: formato utilizado en en horas es de 24.
01:00, 02:00, 03:00, 04:00, 05:00, 06:00, 07:00, 08:00, 09:00, 10:00, 11:00, 12:00
13:00, 14:00, 15:00, 16:00, 17:00, 18:00, 19:00, 20:00, 21:00, 22:00, 23:00, 00:00
Por ejemplo:
Hora Salida: "22:10", Tiempo de Recorrido: 9 Horas, Hora de Llegada: "07:10"
Hora Salida: "10:45", Tiempo de Recorrido: 6 Horas, Hora de Llegada: "16:45"
1 Respuesta
Respuesta de ingesoft
1
horaini=val(subs(thisform.salida.value,1,2))
horallegada=horaini+thisform.tiempo.value
if horallegada>24
horadellegada=horallegada-24
endif
thisform.horaestomada.value=alltrim(str(horallegada))+subs(thisform.salida.value,3,3)
Creo q asi de facil puede ser la solusion pero si son horas con minuto se complica
horallegada=horaini+thisform.tiempo.value
if horallegada>24
horadellegada=horallegada-24
endif
thisform.horaestomada.value=alltrim(str(horallegada))+subs(thisform.salida.value,3,3)
Creo q asi de facil puede ser la solusion pero si son horas con minuto se complica