Discussion :

[jdudoret]

Bonjour,
J'ai un problème dans un libellé de procédure éditée depuis le manuel de Jean-François SEHAN, en ce qui concerne une petite base de données utilisant des champs de tyep "date" et "heure".
voici le fragment de procedure :

Code :

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

1
2
3
4
5
6
while not TableRDV.eof do
   begin
      If TableRDV.FieldeByName('Date').AsDateTime = Date then
          If TableRDV.FieldByName('Heure').AsDateTime -
             TableRDV.FieldByName('Avant').AsDateTime <= Time then
                Begin ...

Cela se plante après " = date " avec réponse "types incompatible !!!
Si je remplace après 'Date'). par AsDate = Date , cela me répond AsDate non déclaré !!!

Dans la table, le champ libellé ' Date' est bien déclaré de type D..
d'où la question, où se trouve l'erreur.
Merci d'avance
J.D du 31

[E.Bzz]

Bonjour,

ça ne serait pas dû au "e" en trop, qui fait que la méthode n'est pas reconnue ?

Code :

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

If TableRDV.FieldeByName('Date').AsDateTime

PS : a priori, mieux vaut éviter, généralement, de nommer une colonne avec un mot réservé (ici Date).

[Invité]

Bonjour,

je suppose que la différence de 2 TDateTime donne un TDateTime (et non un TTime... si Time en est un ). Ce n'est qu'une supposition parce que pour comparer les TDateTime, je préfère utiliser les fonctions de System.DateUtils : DaysBetween(dtNow, dtDate), SecondsBetween(dtNow, dtDate) -> http://docwiki.embarcadero.com/Libra...stem.DateUtils.