Pascal/Turbo Pascal - libreria DOS

Hola!!

A ver si alguien me puede ayudar (se lo agradeceria muchiiiisimo). Tengo que hacer una practica en la que me pide calcular las horas que ha trabajado un empleado, teniendo la hora(con sus minutos,segundos..) de entrada y salida a la empresa almacenada en un registro. He usando la funcion getTime de la libreria DOS. Existe alguna forma de calcularlo directamente??? El total de las horas lo tengo que dar en horas,minutos,segundos...

Muchas gracias!!!!

_______________________________________________________________
hola Loli .

Como es logico no te vamos a hacer el programa , ahi te envio una demo
para que veas como se utiliza la funcion , la conversion en segundos está por
si tienes que comparar varios empleados , así solo tienes que comparar
una sola variable , si el resultado te lo piden en horas minutos y segundos
...esta claro que tienes que hacer.
cualquier duda pregunta al foro que para eso está.
SALUDOS.
_______________________________________________________________

uses crt,dos;

var Hora,Minuto,Segundo,Seg100:word;
{----------------------------------------------------------------------------}
{ las siguientes variables no las usa este programa , estan aqui para que
veas que se usan de la misma manera que gettime }
var ano,mes,dia,dia_de_semana:word;
{ getdate(ano,mes,dia,dia_de_semana); }
{----------------------------------------------------------------------------}
var tiempo_inicial,tiempo_actual:longint;


{//////////////////////////////////////////////////////////////////////////
actualizamos las variables hora, minuto , segundo y sec100 y devolvemos
el tiempo en segundos
///////////////////////////////////////////////////////////////////////////}
function lee_tiempo:longint;
begin
gettime(Hora,Minuto,Segundo,Seg100); { actualizamos valores }
lee_tiempo:=(hora*3600)+(minuto*60)+(segundo);
end;
{///////////////////////////////////////////////////////////////////////////}

{ aqui empieza el programa }
begin
clrscr;

lee_tiempo;
tiempo_inicial:=lee_tiempo;

repeat
tiempo_actual:=lee_tiempo-tiempo_inicial;
gotoxy(55,1);
writeln('Son las ',hora:2,':',minuto:2,':',segundo:2,':',seg100:2);
gotoxy(14,12);
writeln('Segundos Transcurridos :',tiempo_actual:6 );
until keypressed;
readln;

end.

Muchas gracias!!!

Creo que me he explicado mal, no es una practica entera. Es una pequeña parte de un mantenimiento completo de los empleados de un emplesa, con sus altas, bajas...etc en la que me pide visualizar las horas que ha trabajado en un dia. Pero no encontraba una solucion optima para resolverlo, ya que nunca habia usado la libreria y soy un poco novata en este lenguaje. Pero con la demo, ya se como hacerlo. Una vez mas gracias!!

Un saludo!