Section courante

A propos

Section administrative du site

GETTIME

Demande l'heure
Turbo Pascal 4+ DOS, WinDos

Syntaxe

Procedure GetTime(var heure,minute, seconde,centsec:Word);

Paramètres

Nom Description
heure Ce paramètre retourne l'heure actuel (les valeurs doivent être entre 0 et 23).
minute Ce paramètre retourne les minutes actuel (les valeurs doivent être entre 0 et 59).
seconde Ce paramètre retourne les secondes actuel (les valeurs doivent être entre 0 et 59).
centsec Ce paramètre retourne les centièmes de secondes actuel (entre 0 et 99).

Description

Cette procédure permet de connaître l'heure actuel du système d'exploitation.

Exemple

L'exemple suivant permet de retourner l'heure en centième de seconde dans la journée :

  1. Program GetTimeSamples1;
  2.  
  3. Uses DOS;
  4.  
  5. Function GetCurrTime:LongInt;
  6. Var
  7.  Hour,Min,Sec,Sec100:Word;
  8. Begin
  9.  GetTime(Hour,Min,Sec,Sec100);
  10.  GetCurrTime:=Sec100+(Sec*100)+(Min*60*100)+(Hour*60*60*100);
  11. End;
  12.  
  13. BEGIN
  14.  WriteLn('Temps en centième de seconde aujourd''hui : ',GetCurrTime);
  15. END.

on obtiendra un résultat ressemblant à ceci :

Temps en centième de seconde aujourd'hui : 4206384

Référence

Aide-mémoire de Turbo Pascal versions de 3 à 6, Edition Marabout, De Groote, Virga, 1992, ISBN: 2-501-01833-8, page 229.
Le grand livre du Turbo & Borland Pascal 7.0, Edition Micro Application, Reiner Scholles, 1993, ISBN: 2-86899-873-9, page 1243.

Dernière mise à jour : Dimanche, le 25 janvier 2015