vendredi 13

 Niveau énigmesPartager :
			        
					
				
vendredi 13
Posté par 
dpi  17-02-20 à 15:23
Bonjour à tous,



Une petite pour changer...



On parle déjà du fameux vendredi 13 de mars.

Ils sont rares ,des années 1 d'autres 2 et parfois 3.

Quelles seront les prochaines années  à 3 vendredi 13 et quels mois?
 Posté par 
sanantonio312re : vendredi 13  17-02-20 à 16:55
Bonjour et merci pour cet exercice qui me permet de passer des macros Excel aux macros LibreOffice ... 

Alors je trouve:

 Cliquez pour afficher
2009 en février, mars et novembre

2012 en janvier, avril et juillet

2015 en février mars et novembre
 Posté par 
sanantonio312re : vendredi 13  17-02-20 à 17:13
Mon dieu, quel âne!

 Cliquez pour afficher
2026 en février, mars et novembre

2037 en évrier, mars et novembre

2040 janvier, avril et juillet

 Posté par 
flightre : vendredi 13  17-02-20 à 18:15
salut



puisqu'on parle de macro :    sur excel voici : 

Citation :


Sub v13()

années = 0

resultats = ""

1:

   Do

     If WeekdayName(Weekday(Date + i, vbMonday)) = "vendredi" And Day(Date + i) = 13 Then

        resultats = resultats & Chr(10) & Date + i

        n = n + 1

    End If

    i = i + 1

   Loop Until Date + i = DateSerial(Year(Date + i), 12, 31)

       If n <> 3 Then

       resultats = ""

            n = 0

            GoTo 1

        Else

          q = q & Chr(10) & resultats

          années = années + 1

            If années <> 3 Then

              GoTo 1

              Else

              msgbox q

              Exit Sub

             End If

        End If

End Sub


retourne les dates suivantes 

13/02/2026

13/03/2026

13/11/2026


13/02/2037

13/03/2037

13/11/2037


13/01/2040

13/04/2040

13/07/2040
 Posté par 
flightre : vendredi 13  17-02-20 à 18:16
oups , oublié de blanker 
 Posté par 
sanantonio312re : vendredi 13  17-02-20 à 19:56
La mienne en LibreOffice qui donne un millénaire 

 Cliquez pour afficher
Sub Main

Dim oDoc As Object , Feuille As Object 
Dim Cellule As Object 

Dim an(1001,12) as integer
Dim a as integer
dim m as integer
dim dat as date
dim j as integer '6 pour vendredi
Dim NbV(1001) as integer
Dim Lig as integer
Dim Col as integer

Lig=0
oDoc = ThisComponent 
Feuille = oDoc.getSheets.getByName("Feuille1") 

For a=0 to 1001
	Annee=2000+a
	NbV(a)=0
	For m=1 to 12
		dat = CDate("13/"&CStr(m)&"/"&CStr(Annee))
		j=WeekDay(dat)
		if j=6 then
			an(a,m)=1
			NbV(a)=NbV(a)+1
		else
			an(a,m)=0
		end if
	Next m
	If NbV(a)=3 then
		Col=1
		Cell=Feuille.GetCellByPosition(0,Lig)		
		Cell.value=Annee	
		For m=1 to 12
			dat = CDate("13/"&CStr(m)&"/"&CStr(Annee))
			j=WeekDay(dat)
			if j=6 then
				Cell=Feuille.GetCellByPosition(Col,Lig)		
				Cell.value=m
				Col=Col+1
			end if
		Next m
	Lig=Lig+1
	End If
Next a		
End Sub

Sans chercher à faire light du tout.


D'ailleurs, si quelqu'un sait traduire le:

cells(a,b)=z qu'on utilise avec excel par quelque chose de plus court que:

Cell=Feuille.GetCellByPosition(a0,b)		

Cell.value=b avec LibreOffice, je suis preneur... 
 Posté par 
flightre : vendredi 13  17-02-20 à 20:48
je connaissais pas du tout les macros sur libre office , il y a quand même des p'tites similitudes avec excel 
 Posté par 
alb12re : vendredi 13  17-02-20 à 22:29
salut, de 2020 à 3000



2026,2037,2040,2043,2054,2065,2068,2071,2082,2093,

2096,2099,2105,2108,2111,2122,2133,2136,2139,2150,

2161,2164,2167,2178,2189,2192,2195,2201,2204,2207,

2218,2229,2232,2235,2246,2257,2260,2263,2274,2285,

2288,2291,2303,2314,2325,2328,2331,2342,2353,2356,

2359,2370,2381,2384,2387,2398,2409,2412,2415,2426,

2437,2440,2443,2454,2465,2468,2471,2482,2493,2496,

2499,2505,2508,2511,2522,2533,2536,2539,2550,2561,

2564,2567,2578,2589,2592,2595,2601,2604,2607,2618,

2629,2632,2635,2646,2657,2660,2663,2674,2685,2688,

2691,2703,2714,2725,2728,2731,2742,2753,2756,2759,

2770,2781,2784,2787,2798,2809,2812,2815,2826,2837,

2840,2843,2854,2865,2868,2871,2882,2893,2896,2899,

2905,2908,2911,2922,2933,2936,2939,2950,2961,2964,

2967,2978,2989,2992,2995



 Cliquez pour afficher


liste obtenue en utilisant la fonction dayofweek de Xcas


fonction VendrediTreize() 
  var m,a,L,k;
  L:=[];
  pour a de 2020 jusque 3000 faire
    k:=0;
    pour m de 1 jusque 12 faire
      si dayofweek(13,m,a)==5 alors
        k:=k+1
      fsi
    fpour
    si k==3 alors
      L.append(a)
    fsi
  fpour
  retourne L
ffonction:;



 Posté par 
alb12re : vendredi 13  17-02-20 à 23:05
oups j'ai rate qqchose (quels mois ? )

Du coup je m'arrete à 2100 







 Cliquez pour afficher



fonction VendrediTreize() 
  var m,a,res,L,k;
  res:=[];
  pour a de 2020 jusque 2100 faire
    L:=NULL;
    pour m de 1 jusque 12 faire
      si dayofweek(13,m,a)==5 alors
        L:=L,13+"_"+m+"_"+a;
      fsi
    fpour
    si size(L)==3 alors
      res.append([L])
    fsi
  fpour
  retourne res
ffonction:;



 Posté par 
verdurinre : vendredi 13  17-02-20 à 23:32
Bonsoir,

les jours de la semaine se répètent avec une période de 400 ans dans le calendrier grégorien ( le nôtre ).



En effet en quatre cents ans il y a 400365+100-3 jours ce qui fait exactement 20871 semaines.



On peut donc déterminer la proportion de jour de la semaine associée à un numéro dans le mois.



J'avais fait le calcul il y a longtemps et, si mes souvenirs sont bons, il n'y a aucun jour de la semaine qui soit strictement plus souvent un 13 que le vendredi, mais il y en a qui le sont aussi souvent ( pas tous ).
  Posté par 
dpire : vendredi 13  18-02-20 à 14:27
Bonjour,



Vous êtes tous dans le coup.

Je me serais contenté de  26 ,37 et 40.



A ce sujet  2040 est intéressant car on a frôlé  4  vendredi 13 .

Je pense qu'aucun programme n'en trouvera jamais .