Chercher un Vendredi 13

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Chercher un Vendredi 13

Message par Micoute »

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.

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
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
venom
Messages : 3071
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Re: Chercher un Vendredi 13

Message par venom »

Merci Micoute :wink:






@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Répondre