Discussion :

[raoulmania]

Salut à tous,

je recherche une fonction (je sais qu'elle existe car je l'ai déjà utilisée il y a un bon moment mais j'arrive plus à remettre la main dessus) qui me permettent d'obtenir le nombre de minutes ou de secondes entre 2 TDateTime.

Cette fonction doit pouvoir fonctionner si je souhaite connaitre la durée entre 22h du soir et 06h du mat.

Merci à vous

Anthony

[neilbgr]

Code :

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

1
2
3
4
5
6
7
8
uses DateUtils;
 
[...]
 
begin
  SecondsBetween();
  MinutesBetween();
end;

[raoulmania]

je suis désolé mais cette fonction ne marche pas, car la différences entre 22h du soir et 1 h du mat (par exemple) me renvoie 1260 minutes au lieu de 180.

cette fonction fait une différence entre 1h et 22h mais moi je souhaiterais pouvoir trouver l'inverse.

Et avec la même fonction je souhaite également trouver entre 1h et 3h. Avec cette fonction ca le fait mais seulement si nous considérons que nous sommes le même jour.

[neilbgr]

Désolé à mon tour mais avec ceci :

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
uses
  DateUtils;
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
var
  vDate1,
  vDate2: TDateTime;
begin
  vDate1 := EncodeDateTime(2005, 12, 21, 22, 0, 0, 0);
  vDate2 := EncodeDateTime(2005, 12, 22,  1, 0, 0, 0);
  ShowMessage(IntToStr(MinutesBetween(vDate1, vDate2)) + ' min');
  ShowMessage(IntToStr(SecondsBetween(vDate1, vDate2)) + ' secondes');
end;

et Delphi 6, j'obtiens :

180 min
10800 secondes

[OutOfRange]

Eh oui !
C'est logique...
A mon avis, tu as dû demander à Delphi de calculer le nombre de minutes et secondes entre 2 TTime
Car si je reprends le code de neilbgr en le modifiant comme suit

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormActivate(Sender: TObject);
var
  vDate1,
  vDate2: TTime;
begin
  vDate1 := EncodeTime(22, 0, 0, 0);
  vDate2 := EncodeTime(1, 0, 0, 0);
  ShowMessage(IntToStr(MinutesBetween(vDate1, vDate2)) + ' min');
  ShowMessage(IntToStr(SecondsBetween(vDate1, vDate2)) + ' secondes');
end;

J'obtiens 1260 et 75600 !
Simplement parce qu'un TTime est avant tout un TDateTime dont la date est par défaut 30/12/1899
Donc dans le code ci-dessus, vDate1 et vDate2 sont respectivement :
- le 30/12/1899 à 22 H
- le 30/12/1899 à 1H
et la différence 21H soit 1260 minutes ou 75600 secondes

Bonne prog

[neilbgr]

Le compte est bon

[raoulmania]

oki

mais je me rappelles d'une fonction (pas du nom malheureusement) qui savait d'elle même que si l'heure finale était inférieure à l'heure initiale, alors cela voulais dire que l'heure finale appartenait au jour suivant. Et donc en rentrant les heures comme défini précédemment il me ressortait la bonne valeur sans avoir à lui rentrer une date précise.

Vous ne connaissais pas cette p'tite fonction par hasard...!!!

merci quand même pour votre solution