Discussion :

[joreveur]

bonjour,

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

Code :

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

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.

[batyann811]

Code :

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

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.

[joreveur]

bonjour

c'est parfait, propre et efficace !

merci !