Discussion :

[divil15]

Slt
Je travail avec Delphi 6 et je cherche le code pour mon problème :

Exemple :

date1 : 10/11/2017
Nbr jours : 60
Date2=date1+nbr jours
Merci d'avance

[archonte]

Salut divil15,

plusieurs options possibles : as-tu cherché, par exemple, un peu du coté de IncDay ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
//pour une variable myDate de type TDateTime
// Ajouter 10 jours à myDate :
myDate := IncDay(myDate, 10);

Non testé sous Delphi 6 ...;

[SergioMaster]

Bonjour,

comme je l'ai déjà indiqué par MP, il y a deux moyens d'obtenir cette information, cela dépend également de la version de Delphi (c'est à dire si la fonction incday contenue dans l'unité dateutils existe ou pas)

si date1 est bien de type TDate ou TDateTime
pas de incday : date2=date1+60;
avec IncDay : date2:=Incday(date1,60); (ne pas oublié dans la liste des uses DateUtils)

par exemple :
showmessage(datetostr(date+60)) est équivalent à showmessage(Datetostr(incday(date,60)))

[divil15]

Merci Sergio ça marche bien la fonction incday .