Discussion :

[djiga4me]

Bonjour,
Je dois manipulers des Valuers TTime et TDateTime et TDate,
voici l'exposé du problème,
en fait, je dois à partir de deux Valus TTime, détérminer si une valuer TdateTime (obtenue par Now, ou constante) est entre les deux heures spécifiées, mais sachant, que l'une d'elle peut-être après minuit, et que je n'ai pas de Valuer TDate à leur assigner, donc avant de faire des comparaison, je dois obtenir ces valeurs.
Voici les données connues :

var
HeureDebut, HeureFin : TTime; (qui sont connues, par exemple 08:00 et 01:00 (du jour d'après)
HeureVoulue : TDateTime; (qui est connue)

Une idée sur comment je pourrais m'y prendre pour savoir si hEUREVoulue est située en les deux autres ??

[droggo]

Noe,

À ma connaissance, aucun logiciel ne sait deviner la valeur de données inexistantes.

[mick605]

Salut

Oula, pas facile a comprendre ...
Voila comment je verrai le truc (si j'ai bien compris) :

Code :

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

1
2
3
4
5
6
7
8
9
10
function VerifierIntervalle (HeureDebut, HeureFin : TTime; DateVoulue : TDateTime):boolean;
var DateDebut, DateFin : TDateTime;
begin
  DateDebut:=Trunc(DateVoulue)+HeureDebut;
  DateFin:=Trunc(DateVoulue)+HeureFin;
 
  if HeureFin< HeureDebut then DateFin:=DateFin+1;
 
  Result:=(DateVoulue=>DateDebut) and (DateVoulue<=DateFin);
end;

Bonne chance

[Dr.Who]

un petit tours dans l'aide et dans l'unité DateUtils.

[Charly910]

Bonjour,

je crois que les TTime de tes DateTimePicker sont des TDateTime. Il te suffit donc d'utiliser la fonction CompareDateTime.

A+ Charly

[djiga4me]

merci pour vos réponses,

pour mick605,
c'est à peu le truc, mais le problème est "DateVoulue", je ne l'ai pas, et celle que je veux essayer de trouver (évidemment, je vais pas deviner), parceque si je trouve la date, il est facile de déterminer la fourchette (donc des valuers qui serviront à comparer) mais pour les moments je n'ai que les valurs TTime, donc impossible d'établir une relation correcte evec des TDateTime.

[droggo]

Soa,

Comme déjà dit, tu ne pourras pas si tu n'as pas d'autre information.

(Si tu trouves, tu pourras postuler pour remplacer Mme Soleil )

[Andnotor]

Je rejoins Mick.

Peut importe la date voulue (puisqu'il n'y en a pas), mais dés que l'heure de fin est plus petite que l'heure de début, l'événement se termine forcément le lendemain.

[Charly910]

Bonjour,

d'accord avec tout le monde : si tes TTime proviennent d'un DateTimePicker , ils comportent la date du jour donc il faut tester l'heure :

si heureDebut > Heure fin c'est le lendemain, mais cela ne défini pas une plage de temps pour tester si heureVoulue est entre les 2

A+

Charly

[mick605]

merci pour vos réponses,

pour mick605,
c'est à peu le truc, mais le problème est "DateVoulue", je ne l'ai pas, et celle que je veux essayer de trouver (évidemment, je vais pas deviner), parceque si je trouve la date, il est facile de déterminer la fourchette (donc des valuers qui serviront à comparer) mais pour les moments je n'ai que les valurs TTime, donc impossible d'établir une relation correcte evec des TDateTime.

Que contient alors HeureVoulue ? (qui est de type TDateTime)

[djiga4me]

salut mick,
normalement ta fonction marche très bien (j'ai juste ajouté une condition de plus), mais je l'ai pas encore testé sur delphi, mais je l'ai testé sur papier, et je pense que ça marche très bien. et j'ai eu tort dans ma dernière réponse, en fait on a tout ce qu'il faut (et par là je veux dire DateVoulue) donc tout marche bien merci.
Je testerai sous delphi et je vais voir !!

[mick605]

salut mick,
normalement ta fonction marche très bien (j'ai juste ajouté une condition de plus), mais je l'ai pas encore testé sur delphi, mais je l'ai testé sur papier, et je pense que ça marche très bien. et j'ai eu tort dans ma dernière réponse, en fait on a tout ce qu'il faut (et par là je veux dire DateVoulue) donc tout marche bien merci.
Je testerai sous delphi et je vais voir !!

Ok, poste ton code final et n'oublies pas le résolu

(Si tu trouves, tu pourras postuler pour remplacer Mme Soleil )

Je crois qu'il peut ^^

[djiga4me]

Ok, le problème es réglé, avec la condition que j'ai ajoutée tout fonctionne bien.
Merci.
Et pour le code je le publie rapidement dans mon prochain message sans faute.

[djiga4me]

donc, voilàle code final :

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
 
Var // variables globales (déjà initilisées dans une autre partie du code)
    HeureDebut, HeureFin : TTime;
 
Function XX(HeureVoulue : TDateTime) : Boolean;
var   DateDebut, DateFin : TDateTime;
begin    
  DateDebut:=DateOf(HeureVoulue)+HeureDebut;
  DateFin:=DateOf(HeureVoulue)+HeureFin;
  if HeureFin<HeureDebut then DateFin:=IncDay(DateFin,+1);
  if TimeOf(HeureVoulue)<HeureDebut then
  begin
    DateFin:=IncDay(DateFin,-1);
    DateDebut:=IncDay(DateDebut,-1);
  end;
  Result:=(HeureVoulue>=DateDebut) and (HeureVoulue<=DateFin);
end;