Discussion :

[michlunbmw]

bonjour , comment je peut afficher l'heure du sysytem avec le language pascal, et merci d'avance.

[Alcatîz]

Bonjour et bienvenue !

La procédure GetTime renvoie l'heure du système.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
GetTime (Heure,Minute,Seconde,Centieme);
WriteLn (Lo(Heure),’:’,Lo(Minute),’:’,Lo(Seconde));

[Redlet]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
uses
  SysUtils;
 
begin
  WriteLn (FormatDateTime('hh:nn:ss', Now));
end.