Calcul du nombre de jours depuis votre naissance...

Soyez le premier à donner votre avis sur cette source.

Vue 29 035 fois - Téléchargée 1 009 fois

Description

Il vous permet de savoir votre age mais en jours...

Conclusion :


C'est mon premier programme sous Delphi !!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.