Discussion :

[Jlmat]

Bonjour,

Je m'arrache les cheveux sur ce composant pourtant bien pratique. Il est utilisé et fonctionne correctement pour l'affichage des dates courantes. Mais ses propriétés permettent normalement d'afficher les heures, minutes, secondes et même les millisecondes dont j'ai besoin dans mes calculs... j'utilise une autre méthode en attendant, mais ça m'agace de voir que les propriétés affichées ne semblent pas fonctionner.

voici l'affichage que j'ai à la conception sur ma fiche :


Et le code que je mets dans le creat ou dans un évènement bouton, ça ne change rien!

Code :

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

1
2
3
4
5
6
7
 
  DateTimePicker1.Kind := dtkDateTime;
  DateTimePicker1.TimeDisplay := tdHMSMs;
  DateTimePicker1.TimeFormat := tf24;
  DateTimePicker1.DateTime := Now;
  Millisec := MilliSecondOf(Now);
  showmessage(Inttostr(millisec));

Normalement Now donne les millisecondes au moment de l'exécution, mais le composant ne semble pas l'interpréter correctement. Est-ce un Bug ou j'ai loupé quelque chose?
Par ailleurs, la date du 18 déc 1899 sort d'on ne sait où? La doc indique que la date minimale est de 1/10/1752!?!



En allant voir la définition de TDateTimePicker dans son unité DateTimePicker, je trouve les codes suivants:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
procedure TCustomDateTimePicker.SetDateTime(const AValue: TDateTime);
begin
  if not EqualDateTime(AValue, FDateTime) then begin
    if IsNullDate(AValue) then
      FDateTime := NullDate
    else
      FDateTime := AValue;
 
    UpdateDate(dtpoDoChangeOnSetDateTime in FOptions);
  end else
    UpdateDate;
 
end;  
... et plus loin:
 
procedure TCustomDateTimePicker.SetTime(const AValue: TTime);
begin
  if IsNullDate(AValue) then
    DateTime := NullDate
  else if DateIsNull then
    DateTime := ComposeDateTime(Max(Min(SysUtils.Date, MaxDate), MinDate), AValue)
  else
    DateTime := ComposeDateTime(FDateTime, AValue);
end;

On voit que ça dépend aussi des options, mais je les ai toutes essayées, le problème ne vient pas de là!

Du coup, je pense que c'est peut être un problème de directive d'exécution (ou peut-être de de compilation), car à la conception, il affiche les bonnes valeurs...

Quelqu'un sait-il faire?

Merci

[Lung]

Le 30/12/1899, c'est la valeur 0.

[Jlmat]

Le 30/12/1899, c'est la valeur 0.

Salut Lung,

Merci pour ta réponse. Oui, c'est d'accord, mais je demande d'afficher la date Now? Il le fait bien lors de la conception au moment ou j'ai posé le composant!
Pourquoi ça ne s'actualise pas à l'exécution?

A+

[tourlourou]

Bonjour,
Si tu utilises une variable intermédiaire, même comportement ?

Code :

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

1
2
Maintenant := Now;
 DateTimePicker1.DateTime := Maintenant;

[Jlmat]

Merci à vous tous pour vos réponses!

C'est vrai que ça n'est pas facile d'exposer un Problème quand on travaille sur un projet conséquent...
J'ai pris le Large et j'ai repris le problème du TDateTimePicker avec juste ce composant.

Donc, c'est cool, j'ai sué un peu durant quelques heures, mais je suis très près de ce que je voulais obtenir.
Je vous donne en pièce jointe le code que je vais publier pour tous

TDateTimePicker.zip
Résolu

[Jipété]

Salut,

j'ai généré un micro-test comme ça, dans un coin de mon projet sur les fontes, pour me changer les idées,

Code :

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

1
2
3
4
5
6
procedure TfrmMain.Button1Click(Sender: TObject);
var Millisec: Word;
begin
  Millisec := MilliSecondOf(Now);
  showmessage(inttostr(millisec));
end;

et ma foi, ça fonctionne en ajoutant juste uses DateUtils, donc la blague est ailleurs.

PS : Ça aussi ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
var //Millisec: Word;
  adate: tdatetime;
begin
//  Millisec := MilliSecondOf(Now);
  adate := now;
//  showmessage(inttostr(millisec));
  showmessage(floattostr(adate));
end;

[Jlmat]

Bonjour Torlourou et Jipété.

Merci pour votre attention. Oui, j'ai déjà essayé vos solutions, ça ne marche pas!

Ce qui est curieux, c'est que, si je ne touche pas au code DateTimePicker1 dans le code. A l'exécution, la valeur affichée est celle qui est affichée sur la Fiche lors de la conception!
Mystère!

[tourlourou]

Bonjour,
Pardon, je ne me suis pas clairement exprimé.
Le composant sait afficher une date jusqu'au 1/10/1752 et le 18 déc 1899 est l'origine du TDateTime, représentée par la valeur 0.0 (on peut donc fournir au TdateTimePicker un TDateTime négatif à afficher jusqu'à cette limite).
S'il t'affiche 18/12/1899 00h00 à l'exécution de la ligne DateTimePicker1.DateTime := Now;, c'est que Now vaut 0.0, ce qui est improbable si c'est bien la valeur de retour de la fonction Now.
D'où ma suggestion de passer par une variable intermédiaire à inspecter en débogage.
Ou bien fait un ShowMessage(DateTimeToStr(Now)); qui - s'il vaut ce que te montre le TDateTimePicker - confirmera que ton Now se réfère à une variable imprudemment nommée plutôt qu'à la fonction souhaitée.

[Guesset]

Bonjour,

Pour reprendre l'idée de Tourlourou d'une variable Now qui masquerait la fonction éponyme, il est aussi possible d'écrire DateTimePicker1.DateTime := Now(); à la mode C, dont les parenthèses indiquent formellement le statut de fonction (ou procédure).

Salutations

[Alcatîz]

Bonjour,

Je n'arrive pas à reproduire le problème avec Lazarus 3.4 sur Debian 64 bits.

Quelle est la version de Lazarus, et quel est l'OS ?
Le comportement est-il identique lors d'une exécution sans débogage ?

En laissant le pointeur de la souris traîner sur "Now" dans le code source, tu sauras tout de suite s'il s'agit bien de la fonction grâce à un popup.