CALCUL DU NOMBRE DE JOURS DEPUIS VOTRE NAISSANCE...

Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
-
Messages postés
1
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
18 avril 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20409-calcul-du-nombre-de-jours-depuis-votre-naissance

Messages postés
1
Date d'inscription
lundi 18 février 2008
Statut
Membre
Dernière intervention
18 avril 2008

il n'a pas marche avec moi,car il me dit que le format / n'est pas une valeur entière
Messages postés
3
Date d'inscription
samedi 24 janvier 2004
Statut
Membre
Dernière intervention
15 février 2004

Merci pour le FormActivate, pour le +1, j'avais remarqué, quand on rentrait la date du jour, on obtenait -1...
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

Dans FormActivate, met ceci:

begin
DecodeDate(Date, AnneeA, MoisA, JoursA);
StatusBar1.Panels[0].Text := ' Nous Sommes le : ' + IntToStr(JoursA) + '.' + IntToStr(MoisA) + '.' + IntToStr(AnneeA);
end;


Mais il faut changer tes variables globale
en:

JoursA, MoisA, AnneeA :Word;
Messages postés
455
Date d'inscription
mardi 24 juillet 2001
Statut
Modérateur
Dernière intervention
10 mars 2009

Salut

DelphiProg, il faut ajouter 1

Edit1.Text := FormatFloat('0 jours', Date - DateTimePicker1.Date + 1)
Messages postés
3
Date d'inscription
samedi 24 janvier 2004
Statut
Membre
Dernière intervention
15 février 2004

Par contre, le :

StatusBar1.SimpleText := FormatDateTime('" Nous sommes le : " dd.mm.yyyy', Date);

marche pas chez moi, j'ai été obligé de mettre StatusBar1.Panels[0].Text :=...

Voila ;)
Afficher les 8 commentaires