[Free Pascal] Afficher une date

Afficher une date

bonjour,

voulant afficher la date dans une console Linux j'ai mis ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 program datelinux; uses dos; var annee,mois,jour,joursemaine:word; begin getdate(annee,mois,jour,joursemaine); if jour > 9 then write(jour) else write('0',jour); write('/'); if mois > 9 then write(mois) else write('0',mois); write('/'); writeln(annee); //writeln(joursemaine); writeln; readln; end.
il n'y a pas une autre méthode pour obtenir la date ?

sous Linux de mettre uses dos n'est-il pas paradoxale ?

je rajoute un 0 si les nombres sont inférieurs à 10 directement dans les writeln. (solution de facilité...)
Je voulais le faire en transformant les word en string mais je ne trouve pas la fonction.

merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
program Date;
 
uses 
  {$ifdef UNIX}
  clocale, 
  {$endif} 
  SysUtils;
 
begin
  WriteLn(DateToStr(Now));
end.

bonjour

c'est parfait, propre et efficace !

merci !