Sujet Précédent Sujet Suivant

CALCUL DU NOMBRE DE JOURS DEPUIS VOTRE NAISSANCE...

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 14 févr. 2004 à 08:54
cs_moussa28 Messages postés 1 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 18 avril 2008 - 18 avril 2008 à 12:44

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

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

il n'a pas marche avec moi,car il me dit que le format / n'est pas une valeur entière

Abegrall Messages postés 3 Date d'inscription samedi 24 janvier 2004 Statut Membre Dernière intervention 15 février 2004
15 févr. 2004 à 23:59

Merci pour le FormActivate, pour le +1, j'avais remarqué, quand on rentrait la date du jour, on obtenait -1...

DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009
15 févr. 2004 à 12:56

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;

DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009
15 févr. 2004 à 11:50

Salut

DelphiProg, il faut ajouter 1

Edit1.Text := FormatFloat('0 jours', Date - DateTimePicker1.Date + 1)

Abegrall Messages postés 3 Date d'inscription samedi 24 janvier 2004 Statut Membre Dernière intervention 15 février 2004
14 févr. 2004 à 12:22

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 ;)

Abegrall Messages postés 3 Date d'inscription samedi 24 janvier 2004 Statut Membre Dernière intervention 15 février 2004
14 févr. 2004 à 11:37

J'apprend, j'apprend mais merci pour les conseil... ;)

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
14 févr. 2004 à 08:58

Idem pour afficher la date courante :
StatusBar1.SimpleText := FormatDateTime('" Nous sommes le : " dd.mm.yyyy', Date);

Tu te compliques trop la vie. C'est pas bon pour la santé ! >:)

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
14 févr. 2004 à 08:54

Pourquoi faire simple quand on peut faire compliqué ?
C'est ce que je me suis dit en voyant ton code.

Alors qu'il suffisait de faire :
Edit1.Text := FormatFloat('0 jours', Date - DateTimePicker1.Date)

Soufflé, non ?

PS : évitede mettre l'exécutable et tous les fichiers de sauvegarde de Delphi (*.~*).

Discussions similaires

calcul d'un nombre de jours entre deux dates

COMMENT CALCULER LE VOLUME DE MORTIER POUR MONTER UN MUR EN PARPAINGS

génerateur de nombre aléatoire

Convertir nombre de jours en année, mois et jours

Calculer l'age de quelqu'un.

Votre réponse

Discussions similaires