Discussion :

[juju1988]

Bonjour,

Je cherche à soustraire deux heures pour calculer le temps d'exécution de mes requêtes. J'exécute donc ce code :

Code :

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

1
2
3
4
5
            t_date1 := StrToTime(FormatDateTime('hh:nn:ss:zz', Now));
            requete.Execute;
            t_date2 := StrToTime(FormatDateTime('hh:nn:ss:zz', Now));
            n_diff := t_date2 - t_date1;
            LogReq('Requête : '+ x_sql + 'TOTAL TEMPS : ' + FloatToStr(n_diff) +#13#10 );

Cependant j'ai un plantage EConvertError avec le message "09:01:28:854' n'est pas une heure correcte' ...

Sachant que mes t_date1, t_date2 sont des TDateTime et mon n_diff est un real.

Merci d'avance pour votre aide

[Rayek]

Et dans l'uinité DateUtils il existe des fonctions du style SecondsBetween qui permettent de retourner le nécessaire entre deux dates.

Puis après reste plus qu'à faire des division par 60 pour avoir en heures/minutes/secondes

[juju1988]

Ok je vais regarder.

Mais pourquoi mon code génère cette erreur ? Il y'a quelque chose d'incorrect dedans ?
Pourquoi ça ne fonctionne pas ?

[Floverdoz]

Bonjour

Pourquoi faire :

Code :

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

t_date1 := StrToTime(FormatDateTime('hh:nn:ss:zz', Now));

et pas ca :

Code :

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

t_date1 := Now;

Au moins tu ne corromps pas ta date.

Ensuite tu fais ta soustraction de dates directement (les TdateTime sont des Float après tout) et enfin tu utilises ta conversion une fois la soustraction faite :

Code :

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

1
2
 
madateStr := FormatDateTime('hh:nn:ss:zz', (t_date2-t_date1));

Attention aux fonctions SecondsBetween , MinutesBeetween elles ne renvoie que l'unité demandée, alors c'est assez moyen, à moins de toutes les demander et de la concaténer ensuite.

[Andnotor]

Mais pourquoi mon code génère cette erreur ? Il y'a quelque chose d'incorrect dedans ?

Les millièmes sont séparés par un "." et non ":".

Code :

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

StrToTime(FormatDateTime('hh:nn:ss.zz', Now));

[juju1988]

Super FloVerDoz ça marche nickel ! Merci.

Ok merci pour l'info AndNoTor

Voici mon code pour ceux que ça intéresse :

Code :

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

1
2
3
4
5
6
            t_date1 := Now;
            requete.Execute;
            requete.Session.commit;
            t_date2 := Now;
            x_diff := FormatDateTime('hh:nn:ss:zz', (t_date2-t_date1));
            LogReq('Requête : '+ x_sql + 'TOTAL TEMPS : ' + x_diff +#13#10 );