Discussion :

[BECHE]

Je voudrais exécuter une instruction après une certaine date et heure
Tout d'abord, Peut-on ajuster la date et l'heure dans le composant DateTimePicker ? A priori la propiété Kind donne l'accés soit à la date soit à l'heure
Je pensais comparer l'heure actuelle avec le contenu du DateTimePicker.time pour éxecuter des instructions

Code :

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

If time > DateTimePicker.time  then ....

Mais ca ne marche pas ?? pourtant la propriété DateTimePicker.time est bien un TdateTime
Bref: comment peut-on comparer ces 2 dates
Merci par avance

[simoryl]

Pourquoi n'utilises-tu pas un Ttimer?
ça pourrait être plus simple.
Simo'

[OutOfRange]

Salut
simoryl a raison

Je pensais comparer l'heure actuelle avec le contenu du DateTimePicker.time pour éxecuter des instructions
Code:
If time > DateTimePicker.time then ....

Mais ca ne marche pas ?? pourtant la propriété DateTimePicker.time est bien un TdateTime

Dans quelle procédure as-tu placé ce code ?
La propriété time d'un datetimepicker est "figée" jusqu'au moment où l'utilisateur la modifie (to pick signifie choisir, si j'ai bonne mémoire)
A mon avis, il te faut écrire du code dans un événement OnTimer d'un TTimer. Ton programme se branchera sur ce code à la fréquence déterminée par la propriété interval...
Bonne prog

[BECHE]

Il me semble qu'un timer est utilisé pour donner des tops départs pour une procédure à un certaine fréquence donc répétitive.
Or, je veux simplement modifier( une consigne ) une valeur d'un Edit.text à un certain moment (ex le 5 mars à 15h00)
Donc dans mon application qui tourne en permanence, et dans la procédure principale qui tourne en boucle, je contrôle si le jour J et heure H est dépassée avec un If then
Par conséquent, un DateTimePicker serait le plus approprié mais ça ne va pas comme je l'aurai souhaité et je ne trouve pas ni dans les FAQ ni sur les Forums une bonne explication sur ce composant.
De plus dans le F1 de dephi, apparait une propriété "value" que n'existe pas au niveau de l'inspecteur d'objet. L'inspecteur d'objet donne les proprietés Time ou Date
Comment comparer la date et heure en cours à une date et heure fixées par le composant DateTimePicker ?

[OutOfRange]

Code :

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

if (datetimepicker1.Date=dateof(date))and(datetimepicker1.Time=timeof(now)) then

ça paraît simple...
à condition de bien savoir à quel moment faire ce test, donc dans quelle procédure le mettre
Tu derais montrer ton code
@+

[qi130]

J'ajouterai qu'un Ttimer semble plus approprié pour déclencher la comparaison:
Ce genre de chose:

Code :

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

If time > DateTimePicker.time then ....

dans une proc principale qui tourne en boucle fait que quand la condition se réalise, ce qui se trouve derrière le then s'exécutera aussi "en boucle".

Quant au compo DateTimePicker, je n'ai pas vu de propriété Value évoquée dans l'aide.

[BECHE]

Sur un test sur ce composant ce code ne fonctionne pas, et je ne vois pas pourquoi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.Button1Click(Sender: TObject);
begin
auto:= true;
while auto and (time < DateTimePicker1.Time)  do
  begin
  Edit1.Text:= TimeTostr(Time);
  sleep(1000);
  Application.Processmessages;
  end;
Edit1.Text:= 'c''est l''heure';
end;

Dans part, lors de l'éxécution, on ne peut modifier que la date ou que l'heure en fonction de la propriété kind . Peut-on pouvoir choisir la date Et l'heure dans l'exécution