Discussion :

[kiminfor]

Bonjour,
Je veux faire un test comme suit:

Code :

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

1
2
3
4
5
6
 
if (StrToTime(Form1.Table1['HeureArrivee'])> (21:30)) then
begin
nb2:=(DaysBetween(StrToDate(Form1.Table1['DateDepart']),StrToDate(Form1.Table1['DateArrivee'])));
Form1.DBEdit16.Text:= IntToStr(nb2);
end

Mais j'ai une erreur sur la premiere ligne le prolème est 21:30
Comment je dois faire?
Merci

[madlozoz]

peut tu être plus spécifique sur ton problème? Erreur de compilation(avec quel message)? plantage à l'exécution? Erreur dans l'évaluation de la date? L'exécution du programme fait automatiquement apparaitre ta mère dans ta chambre?

Si c'est une erreur de compil, à l'évidence, il vaut mieux écrire

Code :

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

if (StrToTime(Form1.Table1['HeureArrivee']) > StrToTime('21:30') ) then

Ou alors (puisque TDateTime est en fait un type réel)

Code :

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

if (StrToTime(Form1.Table1['HeureArrivee'])> (21.5/24) ) then

[kiminfor]

Code :

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

1
2
 
if (StrToTime(Form1.Table1['HeureArrivee']) > StrToTime('21:30') ) then

C'est bon !
Merci madlozoz