Nombre de vendredi dans un mois
Tatanka
En ce mois d'octobre 2010, il y a 5 � vendredi �,
5 � samedi � et 5 � dimanche �. Un fait rarissime.
Question 1 :
Comment faire pour obtenir le nombre de vendredi, samedi, dimanche ...
d'un mois et d'une ann�e donn�s.
Question 2 :-))
Une tite macro qui donnerait le nombre de dimanche, lundi, mardi, mercredi, jeudi,
vendredi et samedi pour chaque mois de toutes les ann�es du calendrier julien.
A+
Serge
michdenis
A1 = Date de d�but
A2 = Date de fin
Le chiffre 5 de la formule repr�sente le jour de la semaine : Vendredi
La formule est bonne pour tous les jours de la semaine et
pour le calendrier 1900 et 1904.
Cette formule fut publi� sur ce forum par Daniel Maher
Elle calcule le nombre d'un jour particulier de la semaine il y a
entre 2 dates.
=ENT((A2-MOD(A2-6;5)-A1+7)/7)
--
MichD
--------------------------------------------
"Tatanka" <garnote...@videotron.ca> a �crit dans le message de groupe de discussion :
i9spt0$kc1$1...@speranza.aioe.org...
Jacky
Pour la Question 1
en attendant mieux ;o))
'----------------------------
Sub jj()
Dim i As Date, j As Integer
Cells.Clear
an = 2010 ' **A d�finir
mois = 10 ' **A d�finir
[a1] = "Vendredi"
[a1].AutoFill Destination:=Range("A1:A3"), Type:=xlFillDefault
For i = DateSerial(an, mois, 1) To DateSerial(an, mois + 1, 0)
For j = 5 To 7
If Weekday(i, 2) = j Then
Range("b" & j - 4) = Range("b" & j - 4) + 1
End If
Next
Next
End Sub
'-----------------------
--
Salutations
JJ
"Tatanka" <garnote...@videotron.ca> a �crit dans le message de news: i9spt0$kc1$1...@speranza.aioe.org...
michdenis
Pour le plaisir, tu as aussi cette formule... qui fait le travail mais beaucoup moins int�ressante !!!
A1 la date du premier d'un mois donn�
Et tu modifies = 7 de la formule pour le jour de la semaine que tu d�sires
Restriction : elle s'adresse que pour un mois seulement
Validation matricielle.... elle a tous les d�fauts ;-))
=SOMME(SI(JOURSEM(A1+LIGNE(INDIRECT("1:" & JOUR(DATE(ANNEE(A1);MOIS(A1)+1;0))))-2)=7;1))
--
MichD
--------------------------------------------
"michdenis" <mich...@hotmail.com> a �crit dans le message de groupe de discussion : i9su35$vs0$1...@speranza.aioe.org...
michel ou sam
�a me fait penser � cet hoax :
"Ce mois d'octobre comprend 5 vendredis, 5 samedis et 5 dimanches (5
Weekends) Vous allez me dire et apr�s !! �hh bien sachez que ceci ne se
produit que tous les 823 ans ! Presque six milliards de personnes assistent
� cela, par contre vous faites partie du peu qui le savent !!......faites
tourner l'INFO!!"
et voici la r�ponse que j'avais renvoy� � l'exp�diteur
"au mois de janvier 2010, j'ai d�j� profit� de ces 5 week-ends
et auparavant il y avait :
mai 2009
ao�t 2008
d�cembre 2006
juillet 2005
octobre 2004
etc
et les calendriers de
1909
1915
1926
1937
1943
1954
1965
1971
1982
1993
1999
2021
2027
ressemblent �trangement � celui de 2010 (� la date de Paques pr�s)"
Si c'est pour retrouver ces mois � 5 week-ends, il faut chercher les mois de
31 jours commen�ant un vendredi.
Michel
"Tatanka" <garnote...@videotron.ca> a �crit dans le message de news:
i9spt0$kc1$1...@speranza.aioe.org...
Modeste
"michel ou sam" a �crit
> "au mois de janvier 2010, j'ai d�j� profit� de ces 5 week-ends
> et auparavant il y avait :
>
> mai 2009
> ao�t 2008
> d�cembre 2006
> juillet 2005
> octobre 2004
il suffit de d'ajouter 28 ans aux dates d�j� connues (*) ,
pour qu'une m�me date corresponde au m�me jour de la semaine.
(*) voir cycle solaire ou JJ Scaliger
michdenis
| pour qu'une m�me date corresponde au m�me jour de la semaine.
| (*) voir cycle solaire ou JJ Scaliger
En d'autres termes, si je f�tais aujourd'hui mon 56e anniversaire
de naissance aujourd'hui, depuis ma naissance, ce serait la troisi�me
fois que mon anniversaire tombe un samedi! Comme il n'y a que
7 jours diff�rents dans une semaine et que l'�nonc� s'applique �
chacun d'eux, quel est l'�ge r�el du capitaine?
;-)
| pour qu'une m�me date
*** je suppose qu'il faut vivre tr�s vieux avant de revivre un autre 23 octobre 2010!
Aussi bien profiter de celui qui passe.
Les dates avec Excel, ce n'est pas facile!!!!!!!!!
;-)
--
MichD
--------------------------------------------
"Modeste" <nom...@live.fr> a �crit dans le message de groupe de discussion : 4cc20d61$0$29796$426a...@news.free.fr...
Tatanka
J'ai concoct� une macro qui donne la liste de tous les mois
contenant 5 fins de semaine de 1945 � 2010 (pas rare pantoute).
Elle me semble comp�tente mais s'arr�te souvent et je dois cliquer sur Continuer.
Cette macro est associ�e au rectangle bleu du classeur ci-joint :
http://www.cijoint.fr/cjlink.php?file=cj201010/cijf8gbEKT.xls
Pourquoi ces nombreuses interruptions ?
Vous semble-t-elle comp�tente ?
Autre fa�on de faire sans utilliser les formules de la feuille de calcul ?
A+
Serge
michdenis
Essaie ceci :
Affiche dans la colonne A, le mois et l'ann�e comprise entre
le 1 janvier 1945 et le 31 d�cembre 2025 o� il y a 5 Vendredis
5 Samedis et 5 dimanches.
Sauf erreur, il y aurait eu 86 occurrences du ph�nom�ne!
'---------------------------------------
Sub Test()
Dim DateFin As Date, DateDebut As Date
Dim Arr(), Elt As Variant, Nb As Integer
Dim A As Integer, B As Integer, Tblo()
Dim Message As String, C As Integer
Arr = Array(5, 6, 7)
For A = 1945 To 2025
For B = 1 To 12
DateFin = DateSerial(A, B + 1, 0)
DateDebut = DateSerial(A, B, 1)
For Each Elt In Arr
x = Evaluate("INT((" & DateFin * 1 & "-MOD(" & DateFin * 1 & _
"-6," & Elt & ")-" & DateDebut * 1 & "+7)/7)")
If x <> 5 Then
Exit For
Else
C = C + 1
End If
Next
If C = 3 Then
Nb = Nb + 1
ReDim Preserve Tblo(1 To Nb)
Tblo(Nb) = "Mois: " & B & " ann�e: " & A & vbCrLf
End If
C = 0
Next
Next
Range("A1").Resize(UBound(Tblo)) = Application.Transpose(Tblo)
Range("A1").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
'---------------------------------------
--
MichD
--------------------------------------------
"Tatanka" <garnote...@videotron.ca> a �crit dans le message de groupe de discussion :
i9up2m$p2h$1...@speranza.aioe.org...
Modeste
"michdenis" a �crit
> En d'autres termes, si je f�tais aujourd'hui mon 56e anniversaire
> de naissance aujourd'hui, depuis ma naissance, ce serait la troisi�me
> fois que mon anniversaire tombe un samedi!
Heu ???
pr�cis�ment la huiti�me fois ;o)))
samedi 23 octobre 2010
samedi 23 octobre 2004
samedi 23 octobre 1999
samedi 23 octobre 1993
samedi 23 octobre 1982
samedi 23 octobre 1976
samedi 23 octobre 1971
samedi 23 octobre 1965
naissance
samedi 23 octobre 1954
excuse-moi Denis, je n'ai pas l'heure ni le lieu de naissance
je n'ai pas possibilit� de calculer ton ascendant ... ;o)))
http://images-01.delcampe-static.net/img_large/auction/000/106/717/128_001.jpg
=Date(ann�e(aujourdhui()-56 ; mois(aujourdhui()) ; jour(aujourdhui())
format date : jjjj j mmmm aaaa
selon les math�matiques 56= 2*28
aujourd'hui nous sommes samedi et de plus vous seriez donc n� un SAMEDI !!!!
=aujourdhui()-(56*365,25)
format date : jjjj j mmmm aaaa
> Comme il n'y a que
> 7 jours diff�rents dans une semaine et que l'�nonc� s'applique �
> chacun d'eux, quel est l'�ge r�el du capitaine?
;o))) et les ann�es bissextiles ???
4*7=28
;o)))
Heu ??? la r�ponse est dans la question ??? 56 ???
michdenis
| il suffit de d'ajouter 28 ans aux dates d�j� connues (*) ,
| pour qu'une m�me date corresponde au m�me jour de la semaine
*** Comme la date connue �tait celle de mon anniversaire, si j'ajoute
28 ans � chaque fois...
Je ne donne pas la m�me interpr�tation du texte que tu as �mis...
Si tu continues � expliquer, je finirai bien par comprendre !
;-))
--
MichD
--------------------------------------------
isabelle
Le 2010-10-22 15:50, Tatanka a �crit :
> Bonjour,
>
> En ce mois d'octobre 2010, il y a 5 � vendredi �,
> 5 � samedi � et 5 � dimanche �. Un fait rarissime.
rarissime j'en doute mais avec les ann�es bissex c'est pas facille de trouver une constance
http://cjoint.com/?0kxsdkaJ8aN
isabelle
isabelle
Modeste
"michdenis" a �crit dans
> ***Excuse-toi pas, sois plus pr�cis la prochaine fois ! ;-)
>
> | il suffit de d'ajouter 28 ans aux dates d�j� connues (*) ,
> | pour qu'une m�me date corresponde au m�me jour de la semaine
> Si tu continues � expliquer, je finirai bien par comprendre !
Dans le calendrier julien, les jours de la semaine se retrouvent aux m�mes dates
au bout de 28 ans et notamment les dimanches, jours consacr�s autrefois au
Soleil.
http://villemin.gerard.free.fr/Scienmod/Calendri.htm#Cycle28
;o)))
Tatanka
j'obtiens 80 occurences du ph�nom�ne :
1) mars 1946
2) ao�t 1947
...
79) mars 2024
80) ao�t 2025
Serge
"michdenis" <mich...@hotmail.com> a �crit dans le message de news: i9utmj$5fg$1...@speranza.aioe.org...
michdenis
--
MichD
--------------------------------------------
"Modeste" <nom...@live.fr> a �crit dans le message de groupe de discussion : 4cc3313a$0$9849$426a...@news.free.fr...
michdenis
Vendredi, Samedi, Dimanche repr�sente 6, 7, 1
et non ce que j'avais consid�r� dans cette variable
Arr = Array(6, 7, 1) et non Arr = Array(5, 6, 7) comme
l'�non�ait la proc�dure pr�c�dente.
R�sultat, la proc�dure compte 150 occurrences entre
1945 et 2025
'--------------------------------------------
Sub Test()
Dim DateFin As Date, DateDebut As Date
Dim Arr(), Elt As Variant, Nb As Integer
Dim A As Integer, B As Integer, Tblo()
Dim Message As String, C As Integer
Arr = Array(6, 7, 1)
'--------------------------------------------
--
MichD
--------------------------------------------
"Tatanka" <garnote...@videotron.ca> a �crit dans le message de groupe de discussion :
i9vev1$ban$1...@speranza.aioe.org...
michdenis
voici une correction importante de mes messages pr�c�dents
sur ce fil. Apr�s correction, j'obtiens les m�mes dates que toi
entre l'ann�e 1945 et 2025
La formule utilis�e �tait incorrecte. Voil� la formule que j'aurais d� employer.
L8 �tant la date de fin et M8 la date de d�but
Bas�e sur la formule de Daniel Maher.
=SOMME(ENT((L8-JOURSEM(L8-{0;5;6})-M8+8)/7))
La proc�dure aurait d� �tre ceci :
'--------------------------------------------
Sub Test()
Dim DateFin As Date, DateDebut As Date
Dim Nb As Integer, Message As String
Dim A As Integer, B As Integer, Tblo()
Dim X As Integer
For A = 1945 To 2025
For B = 1 To 12
DateFin = DateSerial(A, B + 1, 0)
DateDebut = DateSerial(A, B, 1)
X = Evaluate("SUM(INT((" & DateFin * 1 & _
"-WEEKDAY(" & DateFin * 1 & "-{0;5;6})-" & _
DateDebut * 1 & "+8)/7))")
If X = 15 Then
Nb = Nb + 1
ReDim Preserve Tblo(1 To Nb)
Tblo(Nb) = "Mois: " & B & " ann�e: " & A & vbCrLf
End If
Next
Next
Range("K1").Resize(UBound(Tblo)) = Application.Transpose(Tblo)
Range("K1").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub
'--------------------------------------------
--
MichD
--------------------------------------------
Tatanka
Et voici enfin une macro qui ne s'arrête pas sans cesse et
qui ne se réfère pas aux formules d'une feuille de calcul.
Elle s'inspire de la remarque de Michel :
« Si c'est pour retrouver ces mois à 5 week-ends, il faut chercher les
mois de
31 jours commençant un vendredi ».
Croyez-vous que cette façon de faire est valable pour des années
antérieures à 1904 ?
Sub Liste()
Sheets.Add
mois = Array("janvier", "février", "mars", "avril", _
"mai", "juin", "juillet", "août", "septembre", "octobre", _
"novembre", "décembre")
m = Array(1, 3, 5, 7, 8, 10, 12) 'Mois de 31 jours
Application.ScreenUpdating = False
For i = 1945 To 2025
For j = 0 To 6
If (Format(DateSerial(i, m(j), 1), "dddd") _
= "vendredi") Then
k = k + 1
Cells(k, 1) = mois(m(j) - 1)
Cells(k, 2) = i
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
Bonne journée et A+
Serge
On 23 oct, 09:48, "Tatanka" <garnote3ENLE...@videotron.ca> wrote:
> Merci à tous pour vos précieux conseils.
> J'ai concocté une macro qui donne la liste de tous les mois
> contenant 5 fins de semaine de 1945 è 2010 (pas rare pantoute).
> Elle me semble compétente mais s'arrête souvent et je dois cliquer sur Continuer.
> Cette macro est associée au rectangle bleu du classeur ci-joint :http://www.cijoint.fr/cjlink.php?file=cj201010/cijf8gbEKT.xls
>
> Pourquoi ces nombreuses interruptions ?
> Vous semble-t-elle compétente ?
> Autre façon de faire sans utilliser les formules de la feuille de calcul ?
>
> A+
> Serge
michdenis
| pour des ann�es ant�rieures � 1904 ?
Les fonctions VBA peuvent traiter les dates allant de l'an 100
� 9999, ce n'est �videmment pas le cas pour les fonctions de la
feuille de calcul. Si tu recules assez loin en arri�re, il faudra tenir
compte de l'�volution du calendrier que l'on conna�t aujourd'hui.
--
MichD
--------------------------------------------
"Tatanka" <rama...@videotron.ca> a �crit dans le message de groupe de discussion :
b6d23d41-466c-4dd1...@l14g2000yqb.googlegroups.com...
Bonjour,
Et voici enfin une macro qui ne s'arr�te pas sans cesse et
qui ne se r�f�re pas aux formules d'une feuille de calcul.
Elle s'inspire de la remarque de Michel :
� Si c'est pour retrouver ces mois � 5 week-ends, il faut chercher les
mois de
31 jours commen�ant un vendredi �.
Croyez-vous que cette fa�on de faire est valable pour des ann�es
ant�rieures � 1904 ?
Sub Liste()
Sheets.Add
mois = Array("janvier", "f�vrier", "mars", "avril", _
"mai", "juin", "juillet", "ao�t", "septembre", "octobre", _
"novembre", "d�cembre")
m = Array(1, 3, 5, 7, 8, 10, 12) 'Mois de 31 jours
Application.ScreenUpdating = False
For i = 1945 To 2025
For j = 0 To 6
If (Format(DateSerial(i, m(j), 1), "dddd") _
= "vendredi") Then
k = k + 1
Cells(k, 1) = mois(m(j) - 1)
Cells(k, 2) = i
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
Bonne journ�e et A+
Serge
On 23 oct, 09:48, "Tatanka" <garnote3ENLE...@videotron.ca> wrote:
> Merci � tous pour vos pr�cieux conseils.
> J'ai concoct� une macro qui donne la liste de tous les mois
> contenant 5 fins de semaine de 1945 � 2010 (pas rare pantoute).
> Elle me semble comp�tente mais s'arr�te souvent et je dois cliquer sur Continuer.
> Cette macro est associ�e au rectangle bleu du classeur ci-joint
> :http://www.cijoint.fr/cjlink.php?file=cj201010/cijf8gbEKT.xls
>
> Pourquoi ces nombreuses interruptions ?
> Vous semble-t-elle comp�tente ?
> Autre fa�on de faire sans utilliser les formules de la feuille de calcul ?
>
> A+
> Serge
Tatanka
102 cas de 1900 � 2000 :
15 en janvier
15 en mars
15 en mai
14 en juillet
14 en ao�t
14 en octobre
15 en d�cembre
L� je crois que le sujet est clos :-)
Serge
"michdenis" <mich...@hotmail.com> a �crit dans le message de news: ia4ehp$j9o$1...@speranza.aioe.org...
Modeste
ramanujan a �crit
> Elle s'inspire de la remarque de Michel :
> � Si c'est pour retrouver ces mois � 5 week-ends, il faut chercher les
> mois de
> 31 jours commen�ant un vendredi �.
> Croyez-vous que cette fa�on de faire est valable pour des ann�es
> ant�rieures � 1904 ?
oui !!!
il suffit d'oter un multiple de 28 ann�es aux dates que tu auras trouv�es �
l'aide de ta macro
=TEXTE(UneDate;"jjjj j mmmm ")&(1*(TEXTE(UneDate;"aaaa"))-28*variable)
Jacquouille
102 cas en 100 ans, cela fait environ une fois par an.
En supposant que le mail initial parle de 823 ans avant que le ph�nom�ne ne
se reproduise pour le mois d'octobre seulement, on pourrait penser que 5 WE
en octobre reviendrait tous les 12 ans (� la louche, et � peu pr�s....). Non
?
Par contre, si on prend en compte la donn�e de 14 fois en 102 ans pour
octobre, cela fait environ tous les 7 ans ..... Non ?
D'un c�t�, j'ai 12 ans, de l'autre, j'ai 7 ans. Cela ne donne pas encore
28....
Bonne soir�e. -))
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est � la femme."
Jacquouille (MPFE).
"Tatanka" <rama...@videotron.ca> a �crit dans le message de news:
ia4hem$q88$1...@speranza.aioe.org...
Tatanka
1909, 1915, 1920, 1926, 1937, 1943, 1948, 1954, 1965, 1971,
1976, 1982, 1993 et 1999.
Pour vérifier :
http://www.dioceserimouski.com/ch/calendrierperp.html
Bonsoir :-)
Serge
On 25 oct, 15:46, "Jacquouille" <NoSpam_j.thierne...@skynet.be> wrote:
> Bonjour
> 102 cas en 100 ans, cela fait environ une fois par an.
> En supposant que le mail initial parle de 823 ans avant que le phénomène ne
> se reproduise pour le mois d'octobre seulement, on pourrait penser que 5 WE
> en octobre reviendrait tous les 12 ans (à la louche, et à peu près....). Non
> ?
> Par contre, si on prend en compte la donnée de 14 fois en 102 ans pour
> octobre, cela fait environ tous les 7 ans ..... Non ?
> D'un côté, j'ai 12 ans, de l'autre, j'ai 7 ans. Cela ne donne pas encore
> 28....
>
> Bonne soirée. -))
>
> --
> Bien amicalmement,
> "Le vin est au repas ce que le parfum est à la femme."
>
> Jacquouille (MPFE).
>
> "Tatanka" <ramanu...@videotron.ca> a écrit dans le message de news:
> ia4hem$q8...@speranza.aioe.org...
>
>
>
> > Ok merci,
>
> > 102 cas de 1900 à 2000 :
>
> > 15 en janvier
> > 15 en mars
> > 15 en mai
> > 14 en juillet
> > 14 en août
> > 14 en octobre
> > 15 en décembre
>
> > Là je crois que le sujet est clos :-)
>
> > Serge
>
> > "michdenis" <michde...@hotmail.com> a écrit dans le message de news:
> > ia4ehp$j9...@speranza.aioe.org...
> >>| Croyez-vous que cette façon de faire est valable
> >> | pour des années antérieures à 1904 ?
>
> >> Les fonctions VBA peuvent traiter les dates allant de l'an 100
> >> à 9999, ce n'est évidemment pas le cas pour les fonctions de la
> >> feuille de calcul. Si tu recules assez loin en arrière, il faudra tenir
> >> compte de l'évolution du calendrier que l'on connaît aujourd'hui.
>
> >> --
> >> MichD
> >> --------------------------------------------
>
> >> "Tatanka" <ramanu...@videotron.ca> a écrit dans le message de groupe de
> >> discussion :
> >> b6d23d41-466c-4dd1-a4f5-db64c4dc6...@l14g2000yqb.googlegroups.com...
> >> Bonjour,
>
> >> Et voici enfin une macro qui ne s'arrête pas sans cesse et
> >> qui ne se réfère pas aux formules d'une feuille de calcul.
> >> Elle s'inspire de la remarque de Michel :
> >> « Si c'est pour retrouver ces mois à 5 week-ends, il faut chercher les
> >> mois de
> >> 31 jours commençant un vendredi ».
> >> Croyez-vous que cette façon de faire est valable pour des années
> >> antérieures à 1904 ?
>
> >> Sub Liste()
> >> Sheets.Add
> >> mois = Array("janvier", "février", "mars", "avril", _
> >> "mai", "juin", "juillet", "août", "septembre", "octobre", _
> >> "novembre", "décembre")
> >> m = Array(1, 3, 5, 7, 8, 10, 12) 'Mois de 31 jours
> >> Application.ScreenUpdating = False
> >> For i = 1945 To 2025
> >> For j = 0 To 6
> >> If (Format(DateSerial(i, m(j), 1), "dddd") _
> >> = "vendredi") Then
> >> k = k + 1
> >> Cells(k, 1) = mois(m(j) - 1)
> >> Cells(k, 2) = i
> >> End If
> >> Next j
> >> Next i
> >> Application.ScreenUpdating = True
> >> End Sub
>
> >> Bonne journée et A+
> >> Serge
>
> >> On 23 oct, 09:48, "Tatanka" <garnote3ENLE...@videotron.ca> wrote:
> >>> Merci à tous pour vos précieux conseils.
> >>> J'ai concocté une macro qui donne la liste de tous les mois
> >>> contenant 5 fins de semaine de 1945 è 2010 (pas rare pantoute).
> >>> Elle me semble compétente mais s'arrête souvent et je dois cliquer sur
> >>> Continuer.
> >>> Cette macro est associée au rectangle bleu du classeur ci-joint
> >>> :http://www.cijoint.fr/cjlink.php?file=cj201010/cijf8gbEKT.xls
>
> >>> Pourquoi ces nombreuses interruptions ?
> >>> Vous semble-t-elle compétente ?
> >>> Autre façon de faire sans utilliser les formules de la feuille de calcul
> >>> ?
>
> >>> A+
> >>> Serge- Masquer le texte des messages précédents -
>
> - Afficher le texte des messages précédents -
Modeste
ramanujan a �crit
> 5 week-ends en octobre de 1900 � 2000 pour les ann�es suivantes :
1909, 1915, 1920, 1926,
1937, 1943, 1948, 1954,
1965, 1971, 1976, 1982,
1993, 1999, 2004, 2010
chacune de ces ann�es le 1er Octobre est un vendredi
pour chaque groupe chaque date est respectivement s�par�e de 28 ann�es
pour les dates du groupe suivant ou pr�c�dent :
i.e.
1909+28=1937
1915+28=1943
....
1976+28=2004
1982+28=2010
on peut ais�ment extrapoler :
le 1er octobre �tait ou sera un vendredi !!!
1629 1635 1640 1646
1657 1663 1668 1674
1685 1691 1696 1702
1713 1719 1724 1730
1741 1747 1752 1758
1769 1775 1780 1786
1797 1803 1808 1814
1825 1831 1836 1842
1853 1859 1864 1870
1881 1887 1892 1898
1909 1915 1920 1926
1937 1943 1948 1954
1965 1971 1976 1982
1993 1999 2004 2010
2021 2027 2032 2038
2049 2055 2060 2066
2077 2083 2088 2094
>
> On 25 oct, 15:46, "Jacquouille" <NoSpam_j.thierne...@skynet.be> wrote:
>> Bonjour
>> 102 cas en 100 ans, cela fait environ une fois par an.
>> En supposant que le mail initial parle de 823 ans avant que le ph�nom�ne ne
>> se reproduise pour le mois d'octobre seulement, on pourrait penser que 5 WE
>> en octobre reviendrait tous les 12 ans (� la louche, et � peu pr�s....). Non
>> ?
>> Par contre, si on prend en compte la donn�e de 14 fois en 102 ans pour
>> octobre, cela fait environ tous les 7 ans ..... Non ?
>> D'un c�t�, j'ai 12 ans, de l'autre, j'ai 7 ans. Cela ne donne pas encore
>> 28....
>>
>> Bonne soir�e. -))
>>
>> --
>> Bien amicalmement,
>> "Le vin est au repas ce que le parfum est � la femme."
>>
>> Jacquouille (MPFE).
>>
>> "Tatanka" <ramanu...@videotron.ca> a �crit dans le message de news:
>> ia4hem$q8...@speranza.aioe.org...
>>
>>
>>
>> > Ok merci,
>>
>> > 102 cas de 1900 � 2000 :
>>
>> > 15 en janvier
>> > 15 en mars
>> > 15 en mai
>> > 14 en juillet
>> > 14 en ao�t
>> > 14 en octobre
>> > 15 en d�cembre
>>
>> > L� je crois que le sujet est clos :-)
>>
>> > Serge
>>
>> > "michdenis" <michde...@hotmail.com> a �crit dans le message de news:
>> > ia4ehp$j9...@speranza.aioe.org...
>> >>| Croyez-vous que cette fa�on de faire est valable
>> >> | pour des ann�es ant�rieures � 1904 ?
>>
>> >> Les fonctions VBA peuvent traiter les dates allant de l'an 100
>> >> � 9999, ce n'est �videmment pas le cas pour les fonctions de la
>> >> feuille de calcul. Si tu recules assez loin en arri�re, il faudra tenir
>> >> compte de l'�volution du calendrier que l'on conna�t aujourd'hui.
>>
>> >> --
>> >> MichD
>> >> --------------------------------------------
>>
>> >> "Tatanka" <ramanu...@videotron.ca> a �crit dans le message de groupe de
>> >> discussion :
>> >> b6d23d41-466c-4dd1-a4f5-db64c4dc6...@l14g2000yqb.googlegroups.com...
>> >> Bonjour,
>>
>> >> Et voici enfin une macro qui ne s'arr�te pas sans cesse et
>> >> qui ne se r�f�re pas aux formules d'une feuille de calcul.
>> >> Elle s'inspire de la remarque de Michel :
>> >> � Si c'est pour retrouver ces mois � 5 week-ends, il faut chercher les
>> >> mois de
>> >> 31 jours commen�ant un vendredi �.
>> >> Croyez-vous que cette fa�on de faire est valable pour des ann�es
>> >> ant�rieures � 1904 ?
>>
>> >> Sub Liste()
>> >> Sheets.Add
>> >> mois = Array("janvier", "f�vrier", "mars", "avril", _
>> >> "mai", "juin", "juillet", "ao�t", "septembre", "octobre", _
>> >> "novembre", "d�cembre")
>> >> m = Array(1, 3, 5, 7, 8, 10, 12) 'Mois de 31 jours
>> >> Application.ScreenUpdating = False
>> >> For i = 1945 To 2025
>> >> For j = 0 To 6
>> >> If (Format(DateSerial(i, m(j), 1), "dddd") _
>> >> = "vendredi") Then
>> >> k = k + 1
>> >> Cells(k, 1) = mois(m(j) - 1)
>> >> Cells(k, 2) = i
>> >> End If
>> >> Next j
>> >> Next i
>> >> Application.ScreenUpdating = True
>> >> End Sub
>>
>> >> Bonne journ�e et A+
>> >> Serge
>>
>> >> On 23 oct, 09:48, "Tatanka" <garnote3ENLE...@videotron.ca> wrote:
>> >>> Merci � tous pour vos pr�cieux conseils.
>> >>> J'ai concoct� une macro qui donne la liste de tous les mois
>> >>> contenant 5 fins de semaine de 1945 � 2010 (pas rare pantoute).
>> >>> Elle me semble comp�tente mais s'arr�te souvent et je dois cliquer sur
>> >>> Continuer.
>> >>> Cette macro est associ�e au rectangle bleu du classeur ci-joint
>> >>> :http://www.cijoint.fr/cjlink.php?file=cj201010/cijf8gbEKT.xls
>>
>> >>> Pourquoi ces nombreuses interruptions ?
>> >>> Vous semble-t-elle comp�tente ?
>> >>> Autre fa�on de faire sans utilliser les formules de la feuille de calcul
>> >>> ?
>>
>> >>> A+
>> >>> Serge- Masquer le texte des messages pr�c�dents -
>>
>> - Afficher le texte des messages pr�c�dents -
>
Tatanka
Ma putain de macro, si je boucle de 1629 � 2094,
donne les m�mes r�sultats que dans ta liste, seulement
� partir de 1909.
Dois-je en conclure qu'elle n'est comp�tente que
dans une boucle dont la valeur minimale est 1904 ?
A+
Serge
> le 1er octobre �tait ou sera un vendredi !!!
> 1629 1635 1640 1646
> 1657 1663 1668 1674
> 1685 1691 1696 1702
> 1713 1719 1724 1730
> 1741 1747 1752 1758
> 1769 1775 1780 1786
> 1797 1803 1808 1814
> 1825 1831 1836 1842
> 1853 1859 1864 1870
> 1881 1887 1892 1898
> 1909 1915 1920 1926
> 1937 1943 1948 1954
> 1965 1971 1976 1982
> 1993 1999 2004 2010
> 2021 2027 2032 2038
> 2049 2055 2060 2066
> 2077 2083 2088 2094
Bonne fin de soir�e,
Mo�
Modeste
ramanujan a �crit
> Ma putain de macro, si je boucle de 1629 � 2094,
> donne les m�mes r�sultats que dans ta liste, seulement
> � partir de 1909.
> Dois-je en conclure qu'elle n'est comp�tente que
> dans une boucle dont la valeur minimale est 1904 ?
non , ta crisse de macro est ultra-comp�tente !!!
c'est cette hostie de constante 28 qui doit etre accompagn�e d'une correction
selon les si�cles
je recherche le calcul de cette correction qui ne m'est connue actuellement que
sous forme de table
http://www.vendredi13.us/A4_fr.html
michel ou sam
le pb ne viendrait il pas des ann�es qui se terminent par 00 qui ne sont pas
bissextiles sauf 1600 et 2000 ?
donc d�s que tu passes le cap 1900, le cycle de 28 est d�cal� d'un jour
Michel
"Modeste" <nom...@live.fr> a �crit dans le message de news:
4cc6a306$0$7385$426a...@news.free.fr...
Tatanka
> c'est cette hostie de constante 28 qui doit etre accompagn�e d'une correction selon les si�cles
Tu dois conna�tre ce truc :
En m�morisant trois tableaux et une formule, on peut arriver � d�terminer
(papier et crayon ou mentalement !) le jour de la semaine d'une date valide
comprise entre le premier janvier 1800 et le 31 d�cembre 2300 :
http://www.cijoint.fr/cjlink.php?file=cj201010/cij8apesI1.xls
R�f�rence :
Cas6 du lien suivant :
http://www.recreomath.qc.ca/dict_semaine_jour.htm
A+
Serge
Tatanka
Peux pas se fier � tout ce qu'on lit sur Intersale, crisse de c�lice !
En utilisant le Cas6 du lien que j'avais mentionn�, j'obtenais � mercredi �
pour le 10 mai 1956 alors que tout le monde le sait, c'�tait un jeudi, stie !
J'ai donc consult� les augures qui m'ont appris qu'il faut soustraire 1
seulement si l'ann�e est bissextile ET le mois est janvier ou f�vrier.
Voici donc la version corrig�e qui, je l'esp�re, est d�finitivement correcte :-)
http://www.cijoint.fr/cjlink.php?file=cj201010/cijnqkDJrX.xls
Mo�
"Tatanka" <rama...@videotron.ca> a �crit dans le message de news: ia72sh$7jr$1...@speranza.aioe.org...
Jacquouille
Moi, je sugg�re que vous t�l�phoniez � la NASA, mani�re � tomber pile-poil
pour r�amarrer les navettes les unes aux autres, quand elles reviendront de
Mars.....-))
--
Bien amicalmement,
"Le vin est au repas ce que le parfum est � la femme."
Jacquouille (MPFE).
"Tatanka" <rama...@videotron.ca> a �crit dans le message de news:
ia75rd$fk6$1...@speranza.aioe.org...
Maude Este
"Jacquouille" a �crit
> Moi, je sugg�re que vous t�l�phoniez � la NASA, mani�re � tomber pile-poil
> pour r�amarrer les navettes les unes aux autres, quand elles reviendront de
> Mars.....-))
http://www.imcce.fr/fr/grandpublic/temps/jour_semaine.php
question int�ressante ;o)))
� quelle date doit-on lancer cette navette afin d'optimiser la mission ???
minimiser la dur�e totale
et/ou minimiser la masse embarqu�e (balance �nerg�tique)
date de d�part, dur�e du trajet aller
date d"aMARSerrisage", dur�e du s�jour
date de retour, dur�e du trajet retour
Excel permet je pense ce genre de simulation ;o)))
qu'en pense Sam ou Michel ???
;o)))
Tatanka
Le 26 mai 2008, � 01h38 (heure de Paris), l'atterrisseur am�ricain Phoenix
se posait dans la plaine nordique martienne. C'�tait donc un lundi :-)
Serge
"Jacquouille" <NoSpam_j....@skynet.be> a �crit dans le message de news: 4cc7f60d$0$14249$ba62...@news.skynet.be...
michel ou sam
copie du site http://photojournal.jpl.nasa.gov/catalog/PIA10682
"Phoenix touched down on the Red Planet at 4:53 p.m. Pacific Time (7:53 p.m.
Eastern Time), May 25, 2008, in an arctic region called Vastitas Borealis,
at 68 degrees north latitude, 234 degrees east longitude. "
Par contre, je ne comprends pas le d�calage de 15 mn dans les 2 sources
d'information.
peut �tre la dur�e n�cessaire pour couper le contact ...
Michel
"Tatanka" <rama...@videotron.ca> a �crit dans le message de news:
ia94e8$qiv$1...@speranza.aioe.org...
michel ou sam
Bonjour,
> date de d�part, dur�e du trajet aller
> date d"aMARSerrisage", dur�e du s�jour
> date de retour, dur�e du trajet retour
>
> Excel permet je pense ce genre de simulation ;o)))
>
> qu'en pense Sam ou Michel ???
�a d�pend de l'age du capitaine.
mais ta proposition m'a donn� une id�e : excelliser (mot nouveau) les
programmes d'astronomie pour la calculatrice TI58 qui apparaissaient dans la
revue Sciences et Vie de 1979 � 1984.
J'en ai au moins 50 en stock .
Cordialement
Michel
"Maude Este" <nom...@live.fr> a �crit dans le message de news:
ia93u8$p7f$1...@speranza.aioe.org...
Maude Este
"michel ou sam" a �crit
> mais ta proposition m'a donn� une id�e : excelliser (mot nouveau) les
> programmes d'astronomie pour la calculatrice TI58 qui apparaissaient dans la
> revue Sciences et Vie de 1979 � 1984.
> J'en ai au moins 50 en stock .
les programmes cultes de Pierre Kohler ???
;o)))
je poss�de encore les ann�es 77 � 82 quasi compl�tes...
;o)))
cette personne aurait-elle �dit� un recueil de compilation de ses nombreuses
publications ???
Maude Este
"Maude Este" a �crit
> cette personne aurait-elle �dit� un recueil de compilation de ses nombreuses
> publications ???
michel ou sam
Bonjour,
oui ce sont les programmes de Pierre Kohler et Daniel Ferro.
Je n'ai uniquement que les photocopies de ces pages.
Michel
"Maude Este" <nom...@live.fr> a �crit dans le message de news:
iabepv$7lc$1...@speranza.aioe.org...
Modeste
"michel ou sam" a �crit
> mais ta proposition m'a donn� une id�e : excelliser (mot nouveau) les
> programmes d'astronomie pour la calculatrice TI58 qui apparaissaient dans la
> revue Sciences et Vie de 1979 � 1984.
;o)))
genre :
http://www.sciences.univ-nantes.fr/physique/perso/gtulloue/Meca/Planetes/mars.html
ou
http://www.sciences.univ-nantes.fr/physique/perso/gtulloue/Meca/Planetes/assist_grav.html
http://www.sciences.univ-nantes.fr/physique/perso/gtulloue/atelier/flash/liste_Flash.html
h�las les algos ne sont pas disponibles