Bonjour, augmenter une date saisi de 2ans et 6mois [Résolu]

Messages postés
16
Date d'inscription
mercredi 15 septembre 2010
Statut
Membre
Dernière intervention
24 janvier 2014
- - Dernière réponse : sosdelphi
Messages postés
16
Date d'inscription
mercredi 15 septembre 2010
Statut
Membre
Dernière intervention
24 janvier 2014
- 24 déc. 2013 à 17:55
Bonjour,
je suis entrain de faire une application en delphi, je cherche comment ajouter à une date saisi 2 ans et 6 mois par exemple (01/01/2000)->(/01/06/2002) par exemple je ne sais pas comment m'y prendre
merci d'avance de votre aide
Afficher la suite 

1 réponse

Messages postés
429
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
0
Merci
Salut,
du 01/01/2000 au 01/06/2002, je compte 2 ans et 5 mois de différence.
Pour rajouter 2 ans et 6 mois (30 mois), tu peux faire :
var
  OldDate, NewDate: string;
  NumOfMonths: Integer;
begin
  NumOfMonths := 30;
  OldDate := '01/01/2000';
  NewDate := DateToStr(IncMonth(StrToDate(OldDate), NumOfMonths));
end;

Les fonctions DateToStr, StrToDate, IncMonth étant des routines décrites dans l'aide en ligne de Delphi (touche F1)
sosdelphi
Messages postés
16
Date d'inscription
mercredi 15 septembre 2010
Statut
Membre
Dernière intervention
24 janvier 2014
-
Bonjour,
j'ai insérer ma date dans un dbedit là ça m'a afficher des erreurs.
je veux en inserant'01/01/2000' dans ma base un autre debit edit m'affiche '01/06/2002' (2 ans et 6mois) apres la date sais au debut
merci pour votre aide
sp40
Messages postés
1293
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
8 -
Bonjour,
Peux tu préciser l'erreur qui s'affiche ?
Peux tu également poster ici le code qui génère cette erreur ?
sosdelphi
Messages postés
16
Date d'inscription
mercredi 15 septembre 2010
Statut
Membre
Dernière intervention
24 janvier 2014
-
merci a vous mon problème est résolu l'erreur est que les formats etait différent str et date mais là c'est bon
Commenter la réponse de korgis