1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal
Sujet Précédent Sujet Suivant

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

Réponse 1 / 2
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
Réponse 2 / 2
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