Pascal/Turbo Pascal - El tiempo y la hora en pascal

Saludos, soy un novato en programacion, he oido que existe un comando incluido en el crt que te permite sacar la hora y la fecha del sistema en pascal.

Lo quiero para saber cuanto tarda mi pc en finalizar un proceso.

Necesitaria alguna pagina donde aparezca como utilizar dichos comandos, declaraciones y todo lo que haga falta.

Gracias y saludos.

Hola Jorge! Así es, tienes dos procedimientos en Pascal (en la Unit DOS) que te permiten obtener la fecha y la hora del sistema.

Éstas son:

GetTime( horas, minutos, segundos, centesimas );
GetDate( año, mes, día, DiaDeLaSemana );

Todos los parámetros son del tipo word.

A continuación te muestro un ejemplo que muestra la fecha y la hora del momento (se pueden hacer variantes con un repeat para que actualice la hora constantemente):

uses crt,dos;

{función que devuelve el nombre del día de la semana}
function DiaSemana(numero : word) : string;
begin
case numero of
0 : DiaSemana:='Domingo';
1 : DiaSemana:='Lunes';
2 : DiaSemana:='Martes';
3 : DiaSemana:='Mi‚rcoles';
4 : DiaSemana:='Jueves';
5 : DiaSemana:='Viernes';
6 : DiaSemana:='S bado';
end;
end;

{función que devuelve el nombre del mes}
function NombreMes(numero : word) : string;
begin
case numero of
1 : NombreMes:='enero';
2 : NombreMes:='febrero';
3 : NombreMes:='marzo';
4 : NombreMes:='abril';
5 : NombreMes:='mayo';
6 : NombreMes:='junio';
7 : NombreMes:='julio';
8 : NombreMes:='agosto';
9 : NombreMes:='septiembre';
10 : NombreMes:='octubre';
11 : NombreMes:='noviembre';
12 : NombreMes:='diciembre';
end;
end;

var
hs,mins,segs,segs100 : word;
ano,mes,dia,sem : word;
begin
clrscr;
{obtengo la fecha}
GetDate(ano,mes,dia,sem);
{obtengo la hora}
GetTime(hs,mins,segs,segs100);
{escribo la fecha formateada}
writeln(DiaSemana(sem), ' ', dia, ' de ', NombreMes(mes), ' de ', ano);
{y escribo la hora, centésimas luego de los segundos separadas por un punto (.)}
write(hs, ':', mins, ':', segs, '.', segs100);
readln;
end.

Espero que te sea de utilidad. Un abrazo!

Muchisimas gracias amigo ya le he pillado el truquillo, tan solo una pega, no tengo la unidad "DOS" donde puedo conseguirla?, mil gracias. ;-)

La unidad DOS viene incluida en el compilador de Turbo Pascal, no es una TPU aparte como podría ser la unidad Graph, así que simplemente invocándola desde el programa a través de la palabra reservada USES ya funciona.
Un abrazo!

Bueno antetodo muchas gracias por contestar y perdon si estoy siendo pesado pero es que no tengo mucha idea...

Bueno he puesto el programita que me pasaste en codigo, me sale un error en el delphy como que no encuentra la unidad "DOS" y no puede ejecutarse... por eso te preguntaba que si la podia conseguir, que puede pasar? como lo arreglo? muchas gracias.

Un abrazo.

Hola Jorge! El asunto es que el código que te pasé es para Turbo Pascal... podrás encontrar ayuda más específica para tu problema en el foro de Delphi aquí en La Web Del Programador. Un abrazo!

yo uso turbo pascal el que usa la libreria wincrt como utilizo la DOS

exelente publicacon de ramos solo q para agregarlo agreguen ";" en vez de punto

Pero, como le hago para que me muestre los segundos corriendo, o sea que cuando me muestre la fecha y la hora tambien corran los segundos :(