Calculo con horas en VFP

Sabes que deseo que en una forma se estén capturando
las horas, me supongo que seria en un textbox, y se estén guardando en una tabla.
Para después en un reporte sacar la defenecía de una hora y otra. Por ejemplo.
Captura.
Hora inicio Hora termino
17:30 18:00
20:00 21:15
22:10 22:¿20
qué formato debe tener el campo de la tabla? (Carácter, datetime) donde se va a guardar la
info. Para que en el reporte el resultado de la diferencia de tiempos sea calculado
y que propiedades debe tener el textbox en la forma para la captura.
Mil gracias por tu ayuda.

1 respuesta

Respuesta
1
Lo ideal sería que fueran campos DateTime, pero yo prefiero usar campos de texto de longitud ocho y crear un procedimiento para cálculo de diferencias. El procedimiento es similar a:
Parameters cHoraInicio, cHoraFinal
Local nHora, nMinuto, nSegundo
nHora = Val( Left( cHoraFinal, 2 ) ) - Val( Left( cHoraInicial, 2 ) )
nMinuto = Val( SubStr( cHoraFinal, 3, 2 ) ) - Val( SubStr( cHoraInicial, 3, 2 ) )
nSegundo = Val( Right( cHoraFinal, 2 ) ) - Val( Right( cHoraFinal, 2 ) )
If nSegundo < 0
     nSegundo = nSegundo + 60
     nMinuto = nMinuto - 1
EndIf
If nMinuto < 0
     nMinuto = nMinuto + 60
     nHora = nHora - 1
EndIf
Return PadL( AllTrim( Str( nHora ) ), 2, "0" ) + ":" + PadL( AllTrim( Str( nMinuto ) ), 2, "0" ) + ":" + PadL( AllTrim( Str( nSegundo ) ), 2"0" )
Suponiendo que e procedimiento se llame DiffHora en el reporte coloco un campo con el valor DiffHora( Tabla. hora_inicio, Tabla. hora_termino )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Calcular Horas y Minutos Trabajados

Quiero calcular las horas trabajadas de un empleado. Yo tengo mi campo Hor_Ing, Hor_Sal y Hor_Trb. Y en la tabla se graban así: Hor_Ing: 07:58, Hor_Sal: 17:05. Pero en Hor_Trb: aquí debería después de Calcular grabar las horas y minutos que trabajo...
5 respuestas

Calcular como restar horas y minutos

Me envian unos archivos en txt y lo agrego en dbf entre los campos los guardo y tengo registros de ingreso y salida 08:00 y 12:00 se encuetran de tipo caracter. Necesito restar estas fechas por ejemplo tengo este codigo pero no logro que calcule toda...
1 respuesta

Rellenar ceros a la izquierda

Esto puede ser fácil pero no me sale... Tengo un campo con el numero de sucursal y necesito en otro campo el mismo numero pero con una longitud de 4 dígitos si o si, es decir si la sucursal es 9033 tiene que quedar tal cual pero si es 1 tiene que...
1 respuesta

Validar Rut en un textbox

Necesito validar en un textbox los Rut(cedula de identidad chilena) que se van ingresando con la siguiente estructura xxxxxxxxX (X = al digito verificador) tengo el siguiente código pero no se como aplicarlo PARAMETERS rut, digver STORE 0 TO suma...
1 respuesta

Convertir Números a Letras (Visual FoxPro)

Quisiera saber la manera de convertir los datos numéricos que tengo en un textbox (text1), en letras en otro textbox (text2), es decir, que al escribir un numero (por ejemplo:125) en un textbox, me aparezca en otro textbox que esta abajo [del...
1 respuesta

Código fuente para realizar una factura

Quisiera saber si tienen un código o me pudieran explicar cómo puedo hacer que me salga en letra el total de la cantidad de una factura por ejemplo: 13,254.44 Y el sistema me muestre con letra Trece mil doscientos cincuenta y cuatro pesos 44/100 M.N.
1 respuesta