lo que yo hice es bastante simple:
procedure resta(hora1,hora2:TTime):TTime;
begin
result:=TimeOf(hora2)-TimeOf(hora1);
end;
....
la función TimeOf te extrae, solamente la hora del formato datetime
el resultado ya lo puedes emplear por ejemplo en interbase existe un tipo de datos time y lo puedes almacenar tranquilamente ahi.
Espero te sirva
saludos desde Tarija, Bolivia
__________________
Bismarito
hoy, que tan bueno quiero ser!!
|