Pascal / dos / GetDate
AddDisk, DiskFree, DiskSize, DosExitCode, DosVersion, DTToUnixDate, EnvCount, EnvStr, Exec, FExpand, FindClose, FindFirst, FindNext, FSearch, FSplit, GetCBreak, » GetDate, GetEnv, GetFAttr, GetFTime, GetIntVec, GetLongName, GetMsCount, GetShortName, GetTime, GetVerify, Intr, Keep, MSDos, PackTime, SetCBreak, SetDate, SetFAttr, SetFTime, SetIntVec, SetTime, SetVerify, SwapVectors, UnixDateToDt, UnpackTime, weekday,
Funcion: GetDate()
Sintaxis: 
procedure GetDate(
 
  var year: Word;
 
  var month: Word;

Descripcion: Obtiene la fecha actual. El año esta entre un numero de rango 1980 a 2099 y los dias de la semana (domingo corresponde a 0)
Ejemplo: 
Program Example2;
uses Dos;
 
{ Program to demonstrate the GetDate function. }
 
const
  DayStr:array[0..6] of string[3]=('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
  MonthStr:array[1..12] of string[3]=('Jan','Feb','Mar','Apr','May','Jun',
                                      'Jul','Aug','Sep','Oct','Nov','Dec');
var
  Year,Month,Day,WDay : word;
begin
  GetDate(Year,Month,Day,WDay);
  WriteLn('Current date');
  WriteLn(DayStr[WDay],', ',Day,' ',MonthStr[Month],' ',Year,'.');
end.

Librerias Pascal

Libreria crt - CRT - Pantalla y teclado del PASCAL de Turbo que maneja la unidad
Libreria dos - DOS - Interface Turbo Pascal MS-DOS
Libreria Graph - Unidad para manipular los graficos de la pantalla compatible con TP
Libreria Objects - Objetos basicos compatible con TP
Libreria math - Rutinas adicionales matematicas
Libreria Printer - Provee de acceso a la impresora
Libreria strings - Rutinas para el manejo de cadenas
Libreria BaseUnix - Funcionalidad Basica de Linux
Libreria System - Manejo de Archivos - Funciones para la manipulacion de archivos en Pascal