Manipulation de date

le zedi Messages postés 12 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 7 juin 2004 - 4 juin 2004 à 16:21
le zedi Messages postés 12 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 7 juin 2004 - 7 juin 2004 à 08:57
Voila j'ai une date style 04/06/2004 et je voudrai lui ajouter 10jours

ADOTableRapport.FieldByName('ProchaineVisite').Asdatetime + 10Jours ... mais j'vois pas commen faire ...

Si quelqu'un connais la reponse ;)

2 réponses

Loulibier Messages postés 309 Date d'inscription jeudi 6 juin 2002 Statut Membre Dernière intervention 24 septembre 2008 2
4 juin 2004 à 21:02
Salut,

Il te suffit de faire :

NouvelleDate := ADOTableRapport.FieldByName('ProchaineVisite').Asdatetime + 10;

bonne Prog ;)
0
le zedi Messages postés 12 Date d'inscription jeudi 15 avril 2004 Statut Membre Dernière intervention 7 juin 2004
7 juin 2004 à 08:57
SOLUTION :

var
dbleDate : double;

dbleDate := ADOTableRapport.FieldByName('ProchaineVisite').Asfloat + ADOTableRapport.FieldByName('PeriodiciteEnJours').asfloat;

ADOCommandRapport.CommandText :'update Site set ProchaineVisite '''+FormatDateTime('dd/mm/yyyy',dbleDate)+''' where IdSite = '+inttostr(ADOTableRapport.FieldByName('IdSite').Asinteger);


PS : ProchaineVisite est défini en asdatetime dans la base de données et la on doit le redéfinir.

PPS : PeriodiciteEnJours est defini en int dans la base de données et la on le redefini.
0