Le système de l'ordinateur travaille avec l'horlogue à quartz qui donne le tempo de calcul. Cette horloge possède sa propre date et heure qu'il est possible d'afficher ou de modifier. A partir du prompt MS-DOS, il suffit d'utiliser les commandes date ou time, mais en Turbo Pascal, c'est un peut plus délicat. En effet, en pascal, il est nécessaire de déclarer un grand nombre de variables qu'il faut formater avant l'affichage.
Note : toutes les instructions qui suivent nécessites l'unité dos.

GetDate (an, mois, jour, joursem) ;
Pour obtenir la date courante du système, avec an qui est le numéro de l'année (compris entre 1980 et 2099), mois : le numéro du mois (1 à 12), jour : le numéro du jour dans le mois (1 à 31) et joursem : le numéro du jour dans la semaine (0 à 6, le zéro correspondant au samedi). Ces variables sont déclarées en word qui est un ensemble d'entier supérieur au type integer puisqu'il contient les entiers positifs de 0 à 65535.

SetDate (an, mois, jour);
Pour changer la date du système. Ici, les variables obéissent aux mêmes conditions décrites précédemment. Si une date entrée est invalide, alors elle ne sera pas prise en compte et la date restera inchangée.

GetTime (heure, minute, seconde, cent);
Pour obtenir l'heure courante avec heure qui est le numéro de l'heure (comprise entre 0 et 23), minute : numéro de la minute (0 à 59), seconde : numéro de la seconde (0 à 59) et cent : les centièmes de seconde (0 à 99).

SetTime (heure, minute, seconde, cent);
Pour changer l'heure système. Les variables obéissant aux mêmes conditions décrites plus haut. Si une heure entrée est invalide, alors elle ne sera pas prise en compte et l'heure courante n'en sera aucunement affectée.

Vous pouvez télécharger le programme annoté et explicatif DATE.PAS

GetFTime (f, heure);
Pour obtenir la date de dernière modification de fichier (qui est affichée dans l'Explorateur de Windows 95). Ici, f est une variable d'appel de fichier (file, file of ... ou text) et heure est une variable de type longint(qui est un ensemble de nombres entiers relatifs compris entre -2147483648 et 2147483647).

SetFTime (f, heure);
Vous l'aurez deviné, c'est la réciproque de l'instruction GetFTime.

UnpackTime (heure, dt);
Une information obtenue avec l'instruction GetFTime est illisible sans avoir été décodée avec cette l'instruction où heure est la même variable que précédemment et dt est une variable de type datetime. Ensuite pour pouvoir utiliser les informations contenues dans dt, il faut les sortir une par une : dt.hour (séparés par un point, comme pour les types) représente l'heure, dt.min : les minutes, et dt.sec : les secondes.

PackTime (dt, heure);
Cette instruction est l'inverse de la précédente.

Vous pouvez télécharger le programme annoté FDATE.PAS