FoxPro/Visual FoxPro - Calculo de Horas

Hola, necesito calcular el total entre dos horas, esto quiere decir, que en un cuadro de texto, escribo el inicio a las "08:00", y en otro cuadro de texto, escribo como fin "09:30", y en una etiqueta me debe entregar la cantidad de horas, "Son 1,30 horas transcurridas". Ojala me puedan ayudar.

Hola Cesar:

Bueno lo que tienes que hacer es lo siguiente:

1.- Convierte el Valor del Cuadro de Texto a tipo Hora.
2.- Resta la Hora Menor a la Hora Mayor (9:30 - 8:00), eso te devolvera segundos.
3.- Al tener los Segundos los Conviertes a Minutos y Luego a Hora.
4.- Y listo.

Saludos

Si estas usando la hora como cadena puedes definir esta función llamada dhora() que te devuelve la diferencia entre dos horas en formato cadena :

FUNCTION dhora
PARAMETERS hmayor, hmenor
*
RETURN PADL(ALLTRIM(STR(INT((CTOT(hmayor)-CTOT(hmenor))/3600))),2,"0") + ":" + PADL(ALLTRIM(STR(INT((CTOT(hmayor)-CTOT(hmenor))%3600)/60)),2,"0")

Nota :
El primer parametro debe ser siempre la hora mayor.
La función puede ser mejorada

Ejemplo :

hora1 = "12:45"
hora2 = "09:58"

? dhora(hora1,hora2)
&& Devuelve la cadena "02:47"

Atte.
Nelson

La funcion de Nelson esta muy bien

VFP tiene las siguientes funciones que te pueden ayudar:

DATE()
TIME()
CTOD()
CTOS()

Experiemnta con ellas.

En tu textbox te suguiero que uses una mascara de entrada y de salida para que que te regresa la hora en el formato correcto las porpiedades son:

FORMAT
INPUTMASK

Se requiere conocer si el horario es habil o inhabil la empresa tiene un costo de atención mientras el horario sea desde las 7:00 a.m. hasta las 19:59 p.m., entonces las respuesta es la siguiente:

*DATETIME, Muestra la fecha y hora actual.
*==================================
xhabil = DATETIME(YEAR(DATE()),MONTH(DATE()),DAY(DATE()),07,00,00)
xinhabil = DATETIME(YEAR(DATE()),MONTH(DATE()),DAY(DATE()),20,00,00)

IF DATETIME() >= xhabil AND DATETIME() < xinhabil then
thisform.label1.Caption = "HABIL"
ELSE
thisform.label1.Caption = "INHABIL"
ENDIF