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

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

Signaler
Messages postés
16
Date d'inscription
mercredi 15 septembre 2010
Statut
Membre
Dernière intervention
24 janvier 2014
 -
Messages postés
16
Date d'inscription
mercredi 15 septembre 2010
Statut
Membre
Dernière intervention
24 janvier 2014
 -
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

1 réponse

Réponse 1 / 1
Messages postés
420
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
 16
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)
Signaler
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
Signaler
Messages postés
1284
Date d'inscription
mardi 28 octobre 2003
Statut
Contributeur
Dernière intervention
3 juillet 2015
 13
Bonjour,
Peux tu préciser l'erreur qui s'affiche ?
Peux tu également poster ici le code qui génère cette erreur ?
Signaler
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
Répondre Posez votre question