RE:El tiempo y la hora en pascal
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!