code incrementation date

slt

j ai une table analys qui conntien un champ date
je fait le premiere enregistrement et je met une date.quand je fait enregistrer il affiche un nouveau enregitrement qui contient la date apres un mois ( il s incremente d'un mois)
j ai fait le cde suivant mais il ne fonctionne pas vous pouvez m'aidez merci

code :

datamodule2.analys.CheckBrowseMode;
x := datamodule2.analysdateana.Value;
datamodule2.analys.EDIT;
datamodule2.analys.INSERT;
datamodule2.analysdateana.Value := datamodule2.analysdateana.Value + 00/01/0000;
datamodule2.analys.CheckBrowseMode;

Ceci devrait suffire

Code:

---

1 2 3

datamodule2.analys.EDIT; datamodule2.analysdateana.AsDateTime := IncMonth( datamodule2.analysdateana.AsDateTime ); datamodule2.analys.POST;

---

Salut,
déclarez X Tdatetime.

Code:

---

1 2 3 4 5 6

datamodule2.analys.last; x:=datamodule2.analysdateana.AsDateTime; datamodule2.analys.append;//ou insert datamodule2.analysdateana.AsDateTime := IncMonth(x); datamodule2.analys.POST;

---

Bonne chance.
Merci.

slt merci ca marche mais j ai un autre pb
j

slt merci ca marche mais j ai un autre pb
j ai un bouton que lorsqu'il s agit d'un premiere enregistrement alors il va prendre une date d'un autre champs sinon in incremente d'une semaine
code

if ( datamodule2.analys.first) then datamodule.analysdate.value := edit.date
else
begin
datamodule2.analys.last;
x:=datamodule2.analysdate.AsDateTime;
datamodule2.analys.append;//ou insert
datamodule2.analysdate.AsDateTime := IncMonth(x);
datamodule2.analys.POST;
end

Salut Insat,
il existe une fonction prédéfinie IncWeek, regardez l'aide Delphi.
pour premier enregistrement c'est à chaque ouverture de la table ou seulement lors de la création du 1er enregistrement (la table était vide avant).
si le 1 er cas la condition if est comme vous l'avez écrites, sinon la condion

Code:

---

1 2	if datamodule2.analys.recordcount=0 then datamodule.analysdate.asAsDateTime := strtodatetime(edit1.text)

---

Rq:edit.date sa n'existe pas.
Bonne chance.
Merci.

salut Insat,
n'oublier pas d'ajouter DateUtils au Uses.
N'oublier pas le Tag résolu.
Car j'ai trouvé plusieur message vous concernants, donc si une réponse vous satisfait, on aimerai bien savoir qu'il est résolu.
Bonne chance.
Merci.