Chercher un Vendredi 13
Publié : sam. 14/mai/2016 16:18
Bonjour à tous,
n'ayant pas de projet en cours, je me suis amusé à rechercher comment savoir combien il y a t'il de vendredi 13 dans une année donnée, ça n'a rien de "folichon", mais j'aime connaître les données qui ne servent à rien.
n'ayant pas de projet en cours, je me suis amusé à rechercher comment savoir combien il y a t'il de vendredi 13 dans une année donnée, ça n'a rien de "folichon", mais j'aime connaître les données qui ne servent à rien.
Code : Tout sélectionner
;ChercherVendredi13
Procedure ChercherVendredi13(Annee, Mois)
Jour=13
DateVendredi13 = Date(Annee, Mois, Jour, 0, 0, 0)
;Cherche le vendredi 13
While DayOfWeek(DateVendredi13) <> 5
jour + 1
DateVendredi13 = Date(annee, mois, jour, 0, 0, 0)
Wend
ProcedureReturn DateVendredi13
EndProcedure
Annee = Val(InputRequester("Vendredi 13", "Quelle année ?", Str(Year(Date()))))
If Annee > 1970 And Annee < 2038
For Mois = 1 To 12
vendredi13 = ChercherVendredi13(Annee, Mois)
If Day(Vendredi13) = 13
Debug FormatDate("%dd/%mm/%yyyy", Vendredi13)
EndIf
Next Mois
EndIf
