Incrémentation des jours sur une date. Delphi le fait? [Résolu]

Messages postés
83
Date d'inscription
mardi 7 juin 2011
Statut
Membre
Dernière intervention
9 novembre 2013
- - Dernière réponse : korgis
Messages postés
429
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
- 23 déc. 2012 à 10:01
Salut!

Dernièrement, un developpeur C# a discuté avec moi sur une incrementation datée. "Delphi ne pourrait faire ca": disait-il. Je voulais bien relever le defi. Je demande votre aide.
Ma question serait-elle bête. Mais elle merite vraiment une reponse s'il vous plait.
Pourquoi je le dit c'est parce qu'elle vient sans code... Et je ne sais trop bien écrire les codes sur ce.

Y a t-il un tutorial sur Delphifr ou quelqu'un qui ait déjà developpé sur l'augmentation des jours sur une date. Et donant un resultat en date.
Je m'explique mieux:
sur mon form, j'ai deux DatetimePikers (DatetimePiker1 et DatetimePiker2) et un edit. Je selectionne dans le DatetimePiker1 20/12/2012 et j'écris dans mon edit par exemple 180. J'aimerai qu'il affiche dans mon DatetimePiker2: 20/06/2013. Cela veut dire 6 mois après (faisant juste le calcul).

Merci,
ISRAEL.
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
105
Date d'inscription
mardi 13 novembre 2007
Statut
Membre
Dernière intervention
8 avril 2019
2
3
Merci
Bonjour,
Regardes ici et il y a surement d'autres
http://www.delphifr.com/forum/sujet-DELPHI-CALCUL-NOMBRE-JOURS_639709.aspx


pierrot

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 146 internautes nous ont dit merci ce mois-ci

Commenter la réponse de pierrotk10d
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
3 août 2018
32
3
Merci
Salut,

uses DateUtils;
procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimePicker2.DateTime := IncDay(DateTimePicker1.DateTime, StrToIntDef(Edit1.Text, 0));
end;



Mais 20/12/2012 + 180 jours == 18/06/2013


[hr]@+Cirec
[hr]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 146 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Cirec
Messages postés
429
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
3
Merci
Salut,

Pour incrémenter de 6 mois :

DateTimePicker2.Date := IncMonth(DateTimePicker1.Date, 6);

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 146 internautes nous ont dit merci ce mois-ci

Commenter la réponse de korgis
Messages postés
2233
Date d'inscription
mardi 10 décembre 2002
Statut
Modérateur
Dernière intervention
15 décembre 2014
5
3
Merci
Plus simplement, le type TDate est un entier, TDateTime est un nombre réel.
Tu peux donc faire des opérations mathématiques sachant que :
1 = 1 jour
2 = 2 jours
1/24 = 1 heure
1/24/60 = 1 minute
etc ...

Dans l'exemple cité, tu peux donc faire:
DateTimePicker2.DateTime := DateTimePicker1.DateTime + StrToIntDef(Edit1.Text, 0);

a+



Composants Cindy pour Delphi
Faites une donation.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 146 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MAURICIO
Messages postés
83
Date d'inscription
mardi 7 juin 2011
Statut
Membre
Dernière intervention
9 novembre 2013
0
Merci
oui, tous ces codes ont marchés parfaitement: @pierrotk10d, @cirec, @korgis.
Vous êtes supers... Je descends rencontrer ce gars là maintenant et lui montrer que Delphi vit encore.

Divin1975 (ISRAEL)
Commenter la réponse de divin1975
Messages postés
429
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
6 mai 2019
16
0
Merci
Ouais...

Delphi, ça le fait !
Commenter la réponse de korgis