Comment utiliser FormatDateTime pour renvoyer une date par défaut concaténée avec l'année en cours?

Question

J'utilise Delphi 2007.

J'ai besoin d'écrire une fonction FormatDateTime qui renvoie toujours 01/01/à une boîte TDateEdit (composant DevExpress) en tant que EditValue.

Je l'ai déjà essayé ...

tcxDateEdit1.EditValue := FormatDateTime('01/01/'+ 'yyyy',now); 

et

tcxDateEdit1.EditValue := FormatDateTime('01/01/yyyy',Now); 

mais aucun d'entre eux travaillaient. Il en résulte une erreur de conversion de la variante de type string en double. "Impossible de convertir variante de type (String) en type (Double)"

Answer 1

Je ne devine mais votre EditValue propriété semble être TDateTime type (ou TDate) (en FormatDateTime retourne un string). Si cela est vrai, vous pouvez essayer ce qui suit:

tcxDateEdit1.EditValue := EncodeDate(YearOf(Now), 1, 1); 

Voir aussi: YearOf, EncodeDate, FormatDateTime documentation