La Web del Programador: Comunidad de Programadores
 
    Pregunta:  8770 - CAPTURAR LA FECHA DEL COMPUTADOR
Autor:  Juan Acero
Podrian decirme como puedo capturar la fecha del computador con horas minutos y segundos en turbo pascal 7. gracias

  Respuesta:  Marcelo Cejas
GetDate:
Este muestra la fecha actual del sist. operativo.
FORMATO:
GetDate(año,mes,dia,dia semana)
Año 1980...2099
Mes 1...12
Dia 1...31
Dia semana 0....6

Setdate:
Este establece la fecha actual del sistema operativo.
FORMATO:
SetDate(año,mes,dia)
Año 1980...2099
Mes 1....12
Dia 1....31

  Respuesta:  Diego Romero
Espero no haber entendido mal. Lo que deseas es extraer la hora y la fecha del sistema usando TP7, ¿verdad?, bueno, existen dos procedimientos para esto, declarados en la unidad standard DOS, los cuales son getdate y gettime.
Un ejemplo.
uses dos;
var
hh,mm,ss,cc:word;
ano,mes,dia,diasem:word;
begin
gettime(hh,mm,ss,cc);
getdate(ano,mes,dia,diasem);
writeln('son las ',hh:2,' horas ',mm:2,' minutos ',ss:2,' segundos con ',cc:3,' centecimas.');
writeln('hoy es ',dia:2,'/',mes:2,'/',ano:4);
end.
diasem indica el dia de la semana siendo 0 el domingo y 6 el sabado.
Espero te ayude.