[Résolu] trouver la date connaissant le jour de l'année

[Micoute]

Bonjour à tous,

toute la question est dans le titre, comment puis-je trouver une date correspondant à DayOfYear(), la structure étant:

Code : Tout sélectionner

Structure Anniv
  Nom.s   ;Nom et prénom
  Jour.s  ;jour anniversaire
  Mois.s  ;Mois anniversaire
  Annee.s ;année anniversaire
EndStructure

comme Annee.s étant l'année anniversaire, je lui affecte l'année en cours puisqu'il s'agit de retrouver la date anniversaire de la personne donnée et de la comparer avec la date courante. la date est sous la forme "dd","mm","yyyy"

Je pense qu'il va falloir que je fasse une procédure, mais je ne vois pas l'équation que je pourrais lui donner à traiter, c'est pourquoi je me tourne vers vous qui avez l'esprit plus brillant que le mien.

Je vous remercie par anticipation de votre aide bienveillante.

[Patrick88]

calcul du combientième jour de l'année dénombre automatiquement le nombre de jours entre la date du premier janvier et une date donnée. Il prend en compte le nombre de jours dans chaque mois et peut être paramétré pour une année bissextile

source : https://www.dcode.fr/nieme-jour-annee

le pseudo code en gros..

Pat

[boby]

Code : Tout sélectionner

Structure Anniv
  Nom.s   ;Nom et prénom
  Jour.s  ;jour anniversaire
  Mois.s  ;Mois anniversaire
  Annee.s ;année anniversaire
EndStructure
Global prout.anniv, prout2.anniv
prout\Annee = "9,8,1980"
prout2\Annee = "10,8,2003"
If Date(Year(ParseDate("%dd,%mm,%yyyy",prout\Annee)),Month(Date()),Day(Date()),00,00,00) = ParseDate("%dd,%mm,%yyyy",prout\Annee)
  Debug "C'est son annive !!!"
Else
  Debug "c'est PAS son annive..."
EndIf

If Date(Year(ParseDate("%dd,%mm,%yyyy",prout2\Annee)),Month(Date()),Day(Date()),00,00,00) = ParseDate("%dd,%mm,%yyyy",prout2\Annee)
  Debug "C'est son annive !!!"
Else
  Debug "c'est PAS son annive..."
EndIf

C'est un truc du genre que tu demande ? Ou j'ai pas compris ta demande ?

[Micoute]

merci beaucoup boby,

c'est vraiment ça que je cherchais en vain, si je buvais de l'alcool, je me dirais il faut que j'arrête de boire, mais ce n'est pas le cas.

Pourquoi est-ce qu'il faut que les autres trouvent pour moi ? Ca reste un mystère, peut-être que mon avc a fait plus de dégâts que je ne pense, pourtant la plupart de mon souvenirs sont revenus, je m'interroge.


En tout cas, merci encore.

[boby]

c'est vraiment ça que je cherchais en vain, si je buvais de l'alcool, je me dirais il faut que j'arrête de boire, mais ce n'est pas le cas.

Peut être à l’inverse qu'il faut t'y mettre alors !

Pas de soucis, ravis d'avoir pu t'aider

[beruska]

Pour faire tout simple:

Code : Tout sélectionner

Nom$ = "Antoine"
Naissance$ = "12/08/1977" ; date de naissance - pour faire l'essai, mettre la date d'aujourd'hui

jour = Val(Left(Naissance$,2)) 
mois = Val(Mid(Naissance$,4,2)) 
annee = Val(Right(Naissance$,4)) 
Date$ = Left(Naissance$,5)                  ; on prend seulement le jour et le mois de naissance

  If Date$ = FormatDate("%dd/%mm",Date())   ; on compare avec le jour et le mois d'aujourd'hui
    age = Year(Date()) - annee
    Debug "Aujourd'hui " + Nom$ + " " + " fête ses " + Str(age) + " ans"
  EndIf

[Micoute]

bonjour beruska,

j'ai fait le même principe, sauf que j'ai créé une structure avec le nom, le prénom, le jour, le mois et l'année de naissance, le jour et le mois de sa fête,
j'ai aussi créé un fichier où je peux retrouver tous les membres de ma famille et il me suffit de trier par exemple le mois courant, ou tout autre filtre,
du coup c'est beaucoup plus facile à manipuler.