Section courante

A propos

Section administrative du site

GETTIME

Demande l'heure
Free Pascal DOS

Syntaxe

Procedure GetTime(Var Hour,Minute,Second,Sec100:Word);

Paramètres

Nom Description
Hour Ce paramètre retourne l'heure actuel (entre 0 et 23)
Minute Ce paramètre retourne les minutes actuel (entre 0 et 59)
Second Ce paramètre retourne les secondes actuel (entre 0 et 59)
Sec100 Ce paramètre retourne les centièmes de secondes actuel (entre 0 et 99)

Description

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

Remarques

Exemples

L'exemple suivant permet d'afficher l'heure courante du système d'exploitation en utilisant la procédure «GetTime» :

  1. Program GetTimeSamples;
  2.  
  3. Uses DOS;
  4.  
  5. Var
  6.  Heure,Minute,Seconde,Centieme:Word;
  7.  
  8. BEGIN
  9.  GetTime(Heure,Minute,Seconde,Centieme);
  10.  WriteLn('L''heure actuelle est la suivante :',Heure:3,':',Minute:2,':',Seconde:2);
  11. END.

on aura le résultat semblable suivant :

L'heure actuelle est la suivante : 11:30:28

L'exemple suivant permet d'afficher l'heure en format de 12 heures :

  1. Program GetTime12HoursSamples;
  2.  
  3. Uses DOS;
  4.  
  5. Var
  6.  Heure,Minute,Seconde,Centieme:Word;
  7.  
  8. BEGIN
  9.  GetTime(Heure,Minute,Seconde,Centieme);
  10.  Write('L''heure actuelle est la suivante :',Heure mod 12:3,':',Minute:2,':',Seconde:2);
  11.  If Heure >= 12 Then WriteLn('PM')
  12.                 Else WriteLn('AM');
  13. END.

on aura le résultat semblable suivant :

L'heure actuelle est la suivante : 11:30:28AM

Voir également

Langage de programmation - Free Pascal - Référence de procédures et fonctions - GetDate
Langage de programmation - Free Pascal - Référence de procédures et fonctions - SetTime

Dernière mise à jour : Samedi, le 18 juillet 2015