1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

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

Réponse 1 / 2
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 ;)
Réponse 2 / 2
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.
Répondre Posez votre question