Delphi TDateTimePicker à null

Bonjour

Sur ma forme, j'ai un TDateTimePicker et quand la valeur de la date est zéro il retourne comme date le 1899/12/30.
Parce que le nombre zéro équivaut à cette date.

J'aimerais savoir comment on fait pour qu'il n'affiche rien '____/__/__'

Merci

Bonjour,

Citation:

---

Envoyé par cchasse98

J'aimerais savoir comment on fait pour qu'il n'affiche rien '____/__/__'

---

Il faut ruser un peu... ;)

Si la propriété Time du composant de classe TDateTimePicker est différent de '00:00:00' , on peut écrire dans le gestionnaire d'événement OnChange :

Code:

---

1 2 3 4 5 6 7

procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if Trunc(DateTimePicker1.DateTime) = 0 then DateTimePicker1.Format := ' / / ' else DateTimePicker1.Format := 'yyyy/MM/dd'; end;

---

Pour éviter des effets de bord ultérieurs, n'oubliez pas d'en tenir compte dans les autres portions de code où on contrôle si la valeur de la propriété DateTime est nulle ou non...

Plus proprement, on peut écrire son propre composant descendant de TDateTimePicker avec les propriétés et fonctions adéquates pour gérer cette fonctionnalité...

Et sinon, moi j'utilise la case à cocher (propriété Checked), qui me permet de savoir s'il faut prendre en compte la valeur du TDateTimePicker ou pas.
;)

J'avais eu le même problème il y a longtemps et, pour autant que mes souvenirs ne me trompent pas, j'avais utilisé les composants orpheus qui réglaient ce problème.

http://sourceforge.net/projects/tporpheus/

à vérifier ...

Bonjour,

La condition que tu mentionnes, je l'ai essayé mais j'ai l'erreur suivante 'Undeclared identifier Format'

Code:

---

1 2 3 4

if (qentete.fieldByName('Date_Ferme').Asdatetime = 0) then DTdateferm.Format := (' / / ') else DTdateferm.Datetime := qentete.fieldByName('Date_Ferme').Asdatetime;

---

Merci

sans doute à cause des parenthèses en trop ??

Désolé j'ai fait une erreur de frappe, il n'y à pas de parenthèse et j'ai même essayé avec DateFormat

Voici la solution..

Code:

---

1 2 3 4 5 6 7

With DTdateferm do begin if (qentete.fieldByName('Date_Ferme').Asdatetime = 0) then DateTime_SetFormat(Handle, PChar(' / / ')) else DTdateferm.Datetime := qentete.fieldByName('Date_Ferme').Asdatetime; end;

---

Désolé, il manque une ligne de code

Code:

---

1 2 3 4 5 6 7 8 9 10

Use' CommCtrl' With DTdateferm do begin if (qentete.fieldByName('Date_Ferme').Asdatetime = 0) then DateTime_SetFormat(Handle, PChar(' / / ')) else begin DateTime_SetFormat(Handle, PChar('dd/MM/yyyy')); DTdateferm.Datetime := qentete.fieldByName('Date_Ferme').Asdatetime; end; end;

---