Imposer un affichage des heures dans TDateTimePicker

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

voici l'affichage que j'ai à la conception sur ma fiche :
Pièce jointe 657257

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

Code:

---

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!?!

Pièce jointe 657258

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

Code:

---

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

:question:Quelqu'un sait-il faire?

Merci

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

Citation:

---

Envoyé par Lung

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+

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:

---

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:

---

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;

---

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

Code:

---

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

---

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!

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.

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

Bonjour,

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

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

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

Pièce jointe 657380
;)Résolu