Pb Date inversé avec Windows7Résolu

Question

Bonjour,

J'utilise Windows 7 (version pro 32 bits) et je me suis rendu compte que les applis delphi (faites sur Delphi2009) qui utilisent des dates ont des problémes d'inversion.
En effet, elles se presentent en jour mois/jour/année (au lieu de jour/mois/année).

En effet si vous faites par exemple aujourd'hui un
"ShowMessage(DateToStr(Date))" ont obtient : 11/19/2009 (au lieu de 19/11/2009).

Je ne comprend pas, avez-vous une idée ?

Cordialement,

vieuxpere · Accepted Answer

Bonjour,

Un ami vient de me fournir une solution il faut précéder date de sysutils, je sais pas trop pourquoi mais ça marche.

Merci dans tous les cas.

JulioDelphi · Answer

Le format des dates est paramétrable sous tous les OS.
Il est possible que ta version " achetée" soit mal configurée.
Regarde dans le panneau de configuration, options régionales, date.

cs_MAURICIO · Answer

T' aurai pû me citer

JulioDelphi · Answer

oui surtout si c'est mauriciiooooo !

vieuxpere · Answer

Bonjour,

Désolé en effet d'avoir sous-estimé la grande popularité de Mauricio dont la compétence et la gentilesse n'est plus à démontrer.

Et je sais de quoi je parle !

BlackCloud26 · Answer

Bonjour,

Je suis dans le même problème de conversion de date mais je n'ai pas compris la solution, si vous pouviez m'éclairer, je vous en serais reconnaissant :).
Merci d'avance.

cs_VSD · Answer

Je suis dans le même cas que BlackCloud26, je ne comprend pas la solution, pourriez-vous m'aider

VSD

vieuxpere · Answer

La solution consisite à faire dans le code "sysutils.date" (au lieu de date tout seul).

cs_VSD · Answer

Cela marche pour récupérer la date du jour sous le format JJ/MM/AAAA mais comment faire pour alimenter correctement un champ Edit avec une date contenue dans un fichier database .DBF

Merci d'avance


VSD

cs_MAURICIO · Answer

Salut, 

Edit1.Text := maTableCHAMPDATE.AsString; 

ou encore : 
Edit1.Text := DateToStr(maTableCHAMPDATE.AsDateTime);  

A+


Composants Cindy pour Delphi
Faites une donation.

leroyphil · Answer

J'ai eu bien plus bizarre : sur un OS récent, bien paramétré au niveau des options régionales, une nouvelle appli compilée avec Delphi XE retourne 22/05/2014 alors qu'une ancienne appli qui vient d'une migration de D7, compilée sur le même Delphi XE,  donne 05/22/2014. Allez savoir...

Pour pallier mon problème de datetostr(now), j'ai écrit :

function datetostrnow : string;
var s : string;
begin
s:=inttostr(monthof(now))+'/'+inttostr(yearof(now));
if length(s)=6 then s:='0'+s;
s:=inttostr(dayof(now))+'/'+s;
if length(s)=9 then s:='0'+s;
result:=s;
end;

korgis · Answer

Marrant de voir ressurgir ce topic d'une autre époque...

function DateToStrNow: string;
var
  Y, M, D: Word;
begin
  DecodeDate(Now, Y, M, D);
  Result := Format('%.2d/%.2d/%d', [D, M, Y]);
end;

ou de manière plus large :

function MyDateToStr(Date: TDateTime): string;
var
  Y, M, D: Word;
begin
  DecodeDate(Date, Y, M, D);
  Result := Format('%.2d/%.2d/%d', [D, M, Y]);
end;

Et beaucoup d'autres possibilités (sujet rebattu)...

Pb Date inversé avec Windows7

12 réponses

Votre réponse

Discussions similaires