Discussion :

[cchasse98]

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

[Ph. B.]

Bonjour,

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 :

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

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é...

[Lung]

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.

[Papy214]

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 ...

[cchasse98]

Bonjour,

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

Code :

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

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

Merci

[Papy214]

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

[cchasse98]

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

[cchasse98]

Voici la solution..

Code :

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

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;

[cchasse98]

Désolé, il manque une ligne de code

Code :

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

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;