Manipulation de date

Signaler
Messages postés
12
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
7 juin 2004
-
Messages postés
12
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
7 juin 2004
-
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

Messages postés
309
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
24 septembre 2008
2
Salut,

Il te suffit de faire :

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

bonne Prog ;)
Messages postés
12
Date d'inscription
jeudi 15 avril 2004
Statut
Membre
Dernière intervention
7 juin 2004

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.