Pascal: Fecha actual
Cómo leer la fecha actual del sistema, en Pascal
Lenguaje: Pascal (compilador: Turbo Pascal 7)
Categoría: Fecha y hora
(* Fuente procedente de ErrorDeSintaxis.es *)
(* Cómo leer la fecha actual del sistema, en *)
(* Pascal *)
(* Lenguaje: Pascal *)
(* Compilador: Turbo Pascal 7 *)
(* Nivel: Básico *)
(* Disponible desde 17/07/2011 *)
(* Aportado por Nacho *)
(* Autor original: Nacho Cabanes *)
(* Web original: http://www.freepascal.es/tutorials/cupas15.php *)
program Fecha; uses Dos; const nombre : array [0..6] of String[15] = ('Domingo','Lunes','Martes','Miércoles', 'Jueves','Viernes','Sábado'); var anyo, mes, dia, diaSem : Word; begin GetDate( anyo, mes, dia, diaSem ); writeln('Hoy es ', nombre[diaSem], ' ', dia, '/', mes, '/', anyo); end.