Discussion :

[Chrispi]

Bonjour,

Pour afficher la date et l'heure en cours, en voyant s'égrener les secondes, les minutes, les heures...

Il faut poser sur une forme un composant TLabel et un composant TTimer.

Voici quelques façons de faire :
(Les procédures suivantes sont à poser au niveau de l'évènement OnTimer)

- Pour ce type d'affichage : 10/10/2022 23:09:45

Code :

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

1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject); //Date et heure en cours
begin
  label1.Caption := DateTimeToStr(Now);
end;

- Pour ce type d'affichage : lundi 10 octobre 2022 - 23:13:30

Code :

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

1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject); //Date et heure en cours
begin
  label1.Caption := FormatDateTime('dddd dd mmmm yyyy - hh:nn:ss',Now);
end;

- Pour ce type d'affichage : Lundi 10/10/2022 - 23:35:45

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Timer1Timer(Sender: TObject); //Date et heure en cours
var
jour: array[1..7] of string;
begin
  jour[1] := 'Dimanche';
  jour[2] := 'Lundi';
  jour[3] := 'Mardi';
  jour[4] := 'Mercredi';
  jour[5] := 'Jeudi';
  jour[6] := 'Vendredi';
  jour[7] := 'Samedi';
  label1.caption := jour[DayOfWeek(Date)]+' '+DateToStr(Date)+' - '+TimeToStr(Time);
end;

- Pour ce type d'affichage : Lundi 10/10/2022 23:45:10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Timer1Timer(Sender: TObject); //Date et heure en cours
var
jour: array[1..7] of string;
begin
  jour[1] := 'Dimanche';
  jour[2] := 'Lundi';
  jour[3] := 'Mardi';
  jour[4] := 'Mercredi';
  jour[5] := 'Jeudi';
  jour[6] := 'Vendredi';
  jour[7] := 'Samedi';
  label1.caption := jour[DayOfWeek(Date)]+' '+DateTimeToStr(Now);
end;

[Jipété]

Bonjour,

Linuxiens attention !
Je n'avais pas le résultat escompté, alors j'ai fait F1 sur FormatDateTime et de là sur See also Localization, et du coup il m'a fallu rajouter cwstring, clocale, dans la section uses pour que ça baigne (je n'ai testé que les deux premières lignes) :

Code :

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

1
2
3
4
  s := FormatDateTime('dddd dd mmmm yyyy - hh:nn:ss',Now); // Wednesday 12 October 2022 - 10:11:17
  // avec uses cwstring, clocale, mercredi 12 octobre 2022 - 10... et dessous 12/10/2022
  s := DateTimeToStr(Now); // 12-10-22 10:09:30
  showmessage(s);

[Chrispi]

Bonjour Jipété,

Merci pour cet avertissement pour les utilisateurs de Linux.

Pour ma part, je n'utilise que Windows.

Cordialement.