{"id":921,"date":"2022-12-08T08:10:23","date_gmt":"2022-12-08T07:10:23","guid":{"rendered":"http:\/\/lesmrdtrucs.mataf35400.fr\/?page_id=921"},"modified":"2022-12-08T16:35:22","modified_gmt":"2022-12-08T15:35:22","slug":"determination-de-dates-du-calendrier","status":"publish","type":"page","link":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/determination-de-dates-du-calendrier\/","title":{"rendered":"D\u00e9termination de dates du calendrier"},"content":{"rendered":"\t\t<div data-elementor-type=\"wp-page\" data-elementor-id=\"921\" class=\"elementor elementor-921\">\n\t\t\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-76afb764 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"76afb764\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-4dd6bd48\" data-id=\"4dd6bd48\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t<div class=\"elementor-element elementor-element-6a829cb9 elementor-widget elementor-widget-heading\" data-id=\"6a829cb9\" data-element_type=\"widget\" data-settings=\"{&quot;_animation&quot;:&quot;none&quot;}\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-default\">Version 1<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-5313ff40 elementor-widget elementor-widget-text-editor\" data-id=\"5313ff40\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t\t\t<p><span style=\"color: #0000ff;\"><em>Public Function paques(annee) <span style=\"color: #339966;\">&lsquo; d\u00e9termination de la date de P\u00e2ques en fonction de l&rsquo;ann\u00e9e<\/span><\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Dim var1, var2, var3, var4, var5, var6, var7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var1 = annee Mod 19 + 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var2 = (annee \\ 100) + 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var3 = ((3 * var2) \\ 4) &#8211; 12<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var4 = (((8 * var2) + 5) \\ 25) &#8211; 5<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var5 = ((5 * annee) \\ 4) &#8211; var3 &#8211; 10<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var6 = (11 * var1 + 20 + var4 &#8211; var3) Mod 30<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (var6 = 25 And var1 &gt; 11) Or (var6 = 24) Then var6 = var6 + 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var7 = 44 &#8211; var6<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If var7 &lt; 21 Then var7 = var7 + 30<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var7 = var7 + 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var7 = var7 &#8211; (var5 + var7) Mod 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If var7 &lt;= 31 Then<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0paques = DateValue(CStr(var7) &amp; \u00ab\u00a0\/3\/\u00a0\u00bb &amp; CStr(annee))<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Else<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0paques = DateValue(CStr(var7 &#8211; 31) &amp; \u00ab\u00a0\/4\/\u00a0\u00bb &amp; CStr(annee))<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0End If<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function<\/em><\/span><br \/><br \/>Autres dates dans l&rsquo;ann\u00e9e. Presque toutes les mobiles d\u00e9coulent de P\u00e2ques:<br \/>(le code est\u00a0 v\u00e9rol\u00e9, c&rsquo;est juste pour conna\u00eetre les dates)<br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(1, 1) = CDate(\u00ab\u00a001\/01\/\u00a0\u00bb &amp; AnneeEc): TabDate(1, 2) = \u00ab\u00a0Jour de l&rsquo;an\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(2, 1) = DatePaques: TabDate(2, 2) = \u00ab\u00a0P\u00e2ques\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(3, 1) = DatePaques + 1: TabDate(3, 2) = \u00ab\u00a0Lundi de P\u00e2ques\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(4, 1) = CDate(\u00ab\u00a001\/05\/\u00a0\u00bb &amp; AnneeEc): TabDate(4, 2) = \u00ab\u00a0F\u00eate du travail\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(5, 1) = CDate(\u00ab\u00a008\/05\/\u00a0\u00bb &amp; AnneeEc): TabDate(5, 2) = \u00ab\u00a0Victoire 1945\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(6, 1) = DatePaques + 39: TabDate(6, 2) = \u00ab\u00a0Ascension\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(7, 1) = DatePaques + 49: TabDate(7, 2) = \u00ab\u00a0Lundi de Pentec\u00f4te\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(8, 1) = CDate(\u00ab\u00a014\/07\/\u00a0\u00bb &amp; AnneeEc): TabDate(8, 2) = \u00ab\u00a0F\u00eate Nationale\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(9, 1) = CDate(\u00ab\u00a015\/08\/\u00a0\u00bb &amp; AnneeEc): TabDate(9, 2) = \u00ab\u00a0Assomption\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(10, 1) = CDate(\u00ab\u00a001\/11\/\u00a0\u00bb &amp; AnneeEc): TabDate(10, 2) = \u00ab\u00a0Toussaint\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(11, 1) = CDate(\u00ab\u00a011\/11\/\u00a0\u00bb &amp; AnneeEc): TabDate(11, 2) = \u00ab\u00a0Armistice 1918\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabDate(1, 1) = CDate(\u00ab\u00a025\/12\/\u00a0\u00bb &amp; AnneeEc): TabDate(12, 2) = \u00ab\u00a0No\u00ebl\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If chkAlsaciens = Checked Then<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TabDate(13, 1) = DatePaques &#8211; 2: TabDate(13, 2) = \u00ab\u00a0Vendredi Saint\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TabDate(14, 1) = CDate(\u00ab\u00a026\/12\/\u00a0\u00bb &amp; AnneeEc): TabDate(14, 2) = \u00ab\u00a0Etienne\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Else<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TabDate(13, 2) = \u00ab\u00a0\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0TabDate(14, 2) = \u00ab\u00a0\u00a0\u00bb<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0End If<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0\u00a0 dte = DateSerial(AnneeEc, 1, 8): TabFeteMobile(1, 1) = \u00ab\u00a0Epiphanie\u00a0\u00bb: TabFeteMobile(1, 2) = DateSerial(Year(dte), Month(dte), Day(dte) &#8211; DatePart(\u00ab\u00a0w\u00a0\u00bb, dte) + 1)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(2, 1) = \u00ab\u00a0Mardi gras\u00a0\u00bb: TabFeteMobile(2, 2) = DatePaques &#8211; 47<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(3, 1) = \u00ab\u00a0Cendres\u00a0\u00bb: TabFeteMobile(3, 2) = DatePaques &#8211; 46<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(4, 1) = \u00ab\u00a0Car\u00eame\u00a0\u00bb: TabFeteMobile(4, 2) = DatePaques &#8211; 42<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(5, 1) = \u00ab\u00a0Rameaux\u00a0\u00bb: TabFeteMobile(5, 2) = DatePaques &#8211; 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(6, 1) = \u00ab\u00a0Vendredi Saint\u00a0\u00bb: TabFeteMobile(6, 2) = DatePaques &#8211; 2<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(7, 1) = \u00ab\u00a0Souv. D\u00e9port\u00e9s\u00a0\u00bb: TabFeteMobile(7, 2) = DatePaques + 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0dte = DateSerial(AnneeEc, 6, 0): DernierDimanche = DateSerial(Year(dte), Month(dte), Day(dte) &#8211; DatePart(\u00ab\u00a0w\u00a0\u00bb, dte) + 1)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(8, 1) = \u00ab\u00a0F\u00eate des M\u00e8res\u00a0\u00bb: TabFeteMobile(8, 2) = DernierDimanche<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(9, 1) = \u00ab\u00a0F\u00eate des P\u00e8res\u00a0\u00bb: TabFeteMobile(9, 2) = DernierDimanche + 21<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(10, 1) = \u00ab\u00a0Trinit\u00e9\u00a0\u00bb: TabFeteMobile(10, 2) = DatePaques + 56<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(11, 1) = \u00ab\u00a0F\u00eate-Dieu\u00a0\u00bb: TabFeteMobile(11, 2) = DatePaques + 63<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(12, 1) = \u00ab\u00a0Sacr\u00e9-Coeur\u00a0\u00bb: TabFeteMobile(12, 2) = DatePaques + 68<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0dte = DateSerial(AnneeEc, 12, 25): JourAvent = DateSerial(Year(dte), Month(dte), (Day(dte) &#8211; 21) &#8211; DatePart(\u00ab\u00a0w\u00a0\u00bb, dte) + 1)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(13, 1) = \u00ab\u00a0Christ Roi\u00a0\u00bb: TabFeteMobile(13, 2) = JourAvent &#8211; 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0TabFeteMobile(14, 1) = \u00ab\u00a0Avent\u00a0\u00bb: TabFeteMobile(14, 2) = JourAvent<\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<section class=\"elementor-section elementor-top-section elementor-element elementor-element-7b672b3 elementor-section-boxed elementor-section-height-default elementor-section-height-default\" data-id=\"7b672b3\" data-element_type=\"section\">\n\t\t\t\t\t\t<div class=\"elementor-container elementor-column-gap-default\">\n\t\t\t\t\t<div class=\"elementor-column elementor-col-100 elementor-top-column elementor-element elementor-element-3bf11fa\" data-id=\"3bf11fa\" data-element_type=\"column\">\n\t\t\t<div class=\"elementor-widget-wrap elementor-element-populated\">\n\t\t\t\t\t\t<div class=\"elementor-element elementor-element-1b62de6 elementor-widget elementor-widget-heading\" data-id=\"1b62de6\" data-element_type=\"widget\" data-settings=\"{&quot;_animation&quot;:&quot;none&quot;}\" data-widget_type=\"heading.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t<h2 class=\"elementor-heading-title elementor-size-default\">Version 2<\/h2>\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t<div class=\"elementor-element elementor-element-d199be4 elementor-widget elementor-widget-text-editor\" data-id=\"d199be4\" data-element_type=\"widget\" data-widget_type=\"text-editor.default\">\n\t\t\t\t<div class=\"elementor-widget-container\">\n\t\t\t\t\t\t\t<p><span style=\"color: #0000ff;\"><em>Public Function calcul(ByVal j As Long, ByVal m As Long, ByVal a As Long) As Long<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0<span style=\"color: #339966;\">&lsquo;Calculer nombre jours depuis le 01\/01\/0001<\/span><\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Dim var1 As Long, var2 As Long\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 <\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (m &lt;= 2) Then<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 m = m + 12<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 a = a &#8211; 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0End If\u00a0\u00a0\u00a0 <\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var1 = a \\ 100<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0var2 = 2 &#8211; var1 + (var1 \\ 4)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0calcul = Int(365.25 * a) + Int(30.6001 * (m + 1)) + j + var2 &#8211; 430<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function<\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>Public Function quantieme(ByVal j As Integer, ByVal m As Integer, ByVal a As Integer) As Integer<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0<span style=\"color: #339966;\">&lsquo;Calcul nombre de Jours depuis debut Annee<\/span><\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0quantieme = (calcul(j, m, a) &#8211; calcul(1, 1, a) + 1)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function<\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>Public Function bissextile(ByVal annee As Long) As Boolean<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0<span style=\"color: #339966;\">&lsquo;Determiner si Annee Bissextile<\/span><\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If ((annee Mod 400) = 0 Or ((annee Mod 4) = 0 And (annee Mod 100) &lt;&gt; 0)) Then<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0\u00a0\u00a0\u00a0 bissextile = True<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0End If<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function<\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>Public Function calculpaques(ByVal annee As Integer) As Integer<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0<span style=\"color: #339966;\">&lsquo;Calculer date de Paques<\/span><\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Dim r01 As Integer, r02 As Integer, r03 As Integer, r04 As Integer<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Dim r05 As Integer, r06 As Integer, r07 As Integer, r08 As Integer<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Dim r09 As Integer, r10 As Integer, r11 As Integer, r12 As Integer\u00a0\u00a0\u00a0 <\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r01 = annee Mod 19<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r02 = annee \\ 100<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r03 = annee Mod 100<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r04 = r02 \\ 4<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r05 = r02 Mod 4<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r06 = (r02 + 8) \\ 25<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r07 = (r02 + 1 &#8211; r06) \\ 3<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r08 = 15 + 19 * r01 + r02 &#8211; r04 &#8211; r07<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r08 = r08 Mod 30<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r09 = r03 \\ 4<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r10 = r03 Mod 4<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r11 = 32 + 2 * (r05 + r09) &#8211; r08 &#8211; r10<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r11 = r11 Mod 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0r12 = (r01 + 11 * r08 + 22 * r11) \\ 451<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0calculpaques = quantieme(21, 3, annee) + r08 + r11 &#8211; 7 * r12 + 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function<\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>Public Function semaine(ByVal j As Integer, ByVal m As Integer, ByVal a As Integer) As String<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0<span style=\"color: #339966;\">&lsquo;Calcul numero de la Semaine<\/span><\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Dim Toto As String\u00a0\u00a0\u00a0 <\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0Toto = Format(Format(DateSerial(a, m, j), \u00ab\u00a0ww\u00a0\u00bb, vbMonday, vbFirstFourDays), \u00ab\u00a0@@\u00a0\u00bb)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If Toto = \u00ab\u00a053\u00a0\u00bb And j &gt; 28 Then semaine = \u00a0\u00bb 1&Prime; Else semaine = Toto<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function<\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>Public Function ferie(ByVal j As Integer, ByVal m As Integer, ByVal a As Integer) As Boolean<\/em><\/span><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;D\u00e9terminer si Jour Feri\u00e9<br \/><br \/><\/em><\/span><span style=\"color: #339966;\"><em>\u00a0\u00a0\u00a0 <\/em><\/span><span style=\"color: #339966;\"><em>&lsquo;FERIES DATES FIXES<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Nouvel an<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 1 And m = 1 And a &gt;= 1811) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;F\u00eate du travail<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0premiermai = quantieme(1, 5, a)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 1 And m = 5 And a &gt;= 1947) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Victoire 1945<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0huitmai = quantieme(8, 5, a)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 8 And m = 5 And a &gt;= 1986) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;F\u00eate nationale<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0quatorzejuil = quantieme(14, 7, a)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 14 And m = 7 And a &gt;= 1880) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Assomption<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 15 And m = 8 And a &gt;= 1802) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Toussaint<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 1 And m = 11 And a &gt;= 1802) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Armistice 1418<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0onzenovembre = quantieme(11, 11, a)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 11 And m = 11 And a &gt;= 1922) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;No\u00ebl<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (j = 25 And m = 12 And a &gt;= 1802) Then ferie = True<br \/><\/em><\/span><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;FERIES DATES MOBILES<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Lundi de P\u00e2ques<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0lundipaques = calculpaques(annee) + 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (quantieme(j, m, a) = lundipaques And a &gt;= 1886) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Lundi de la Pentec\u00f4te<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0lundipentecote = lundipaques &#8211; 1 + 50<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (quantieme(j, m, a) = lundipentecote And a &gt;= 1886) Then ferie = True<\/em><\/span><br \/><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Ascension<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0ascension = lundipaques &#8211; 1 + 39<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0If (quantieme(j, m, a) = ascension And a &gt;= 1802) Then ferie = True<br \/><\/em><\/span><br \/><span style=\"color: #339966;\"><em>\u00a0\u00a0 \u00a0&lsquo;Autres F\u00eates &#8211; Jours non Feri\u00e9s<\/em><\/span><br \/><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0epiphanie = 8 &#8211; (calcul(1, 1, annee) Mod 7)<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0paques = lundipaques &#8211; 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0pentecote = paques + 49<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0careme = paques &#8211; 42<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0mardigras = careme &#8211; 5<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0cendres = mardigras + 1<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0rameaux = paques &#8211; 7<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0fetedieu = paques + 63<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>\u00a0\u00a0 \u00a0vendredisaint = paques &#8211; 2<\/em><\/span><br \/><span style=\"color: #0000ff;\"><em>End Function <\/em><\/span><\/p>\t\t\t\t\t\t<\/div>\n\t\t\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/div>\n\t\t\t\t\t<\/div>\n\t\t<\/section>\n\t\t\t\t<\/div>\n\t\t","protected":false},"excerpt":{"rendered":"<p>Version 1 Public Function paques(annee) &lsquo; d\u00e9termination de la date de P\u00e2ques en fonction de l&rsquo;ann\u00e9e\u00a0\u00a0 \u00a0Dim var1, var2, var3, var4, var5, var6, var7\u00a0\u00a0 \u00a0var1 = annee Mod 19 + 1\u00a0\u00a0 \u00a0var2 = (annee 100) + 1\u00a0\u00a0 \u00a0var3 = ((3 * var2) 4) &#8211; 12\u00a0\u00a0 \u00a0var4 = (((8 * var2) + 5) 25) &#8211; 5\u00a0\u00a0 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"ocean_post_layout":"","ocean_both_sidebars_style":"","ocean_both_sidebars_content_width":0,"ocean_both_sidebars_sidebars_width":0,"ocean_sidebar":"0","ocean_second_sidebar":"0","ocean_disable_margins":"enable","ocean_add_body_class":"","ocean_shortcode_before_top_bar":"","ocean_shortcode_after_top_bar":"","ocean_shortcode_before_header":"","ocean_shortcode_after_header":"","ocean_has_shortcode":"","ocean_shortcode_after_title":"","ocean_shortcode_before_footer_widgets":"","ocean_shortcode_after_footer_widgets":"","ocean_shortcode_before_footer_bottom":"","ocean_shortcode_after_footer_bottom":"","ocean_display_top_bar":"default","ocean_display_header":"default","ocean_header_style":"","ocean_center_header_left_menu":"0","ocean_custom_header_template":"0","ocean_custom_logo":0,"ocean_custom_retina_logo":0,"ocean_custom_logo_max_width":0,"ocean_custom_logo_tablet_max_width":0,"ocean_custom_logo_mobile_max_width":0,"ocean_custom_logo_max_height":0,"ocean_custom_logo_tablet_max_height":0,"ocean_custom_logo_mobile_max_height":0,"ocean_header_custom_menu":"0","ocean_menu_typo_font_family":"0","ocean_menu_typo_font_subset":"","ocean_menu_typo_font_size":0,"ocean_menu_typo_font_size_tablet":0,"ocean_menu_typo_font_size_mobile":0,"ocean_menu_typo_font_size_unit":"px","ocean_menu_typo_font_weight":"","ocean_menu_typo_font_weight_tablet":"","ocean_menu_typo_font_weight_mobile":"","ocean_menu_typo_transform":"","ocean_menu_typo_transform_tablet":"","ocean_menu_typo_transform_mobile":"","ocean_menu_typo_line_height":0,"ocean_menu_typo_line_height_tablet":0,"ocean_menu_typo_line_height_mobile":0,"ocean_menu_typo_line_height_unit":"","ocean_menu_typo_spacing":0,"ocean_menu_typo_spacing_tablet":0,"ocean_menu_typo_spacing_mobile":0,"ocean_menu_typo_spacing_unit":"","ocean_menu_link_color":"","ocean_menu_link_color_hover":"","ocean_menu_link_color_active":"","ocean_menu_link_background":"","ocean_menu_link_hover_background":"","ocean_menu_link_active_background":"","ocean_menu_social_links_bg":"","ocean_menu_social_hover_links_bg":"","ocean_menu_social_links_color":"","ocean_menu_social_hover_links_color":"","ocean_disable_title":"default","ocean_disable_heading":"default","ocean_post_title":"","ocean_post_subheading":"","ocean_post_title_style":"","ocean_post_title_background_color":"","ocean_post_title_background":0,"ocean_post_title_bg_image_position":"","ocean_post_title_bg_image_attachment":"","ocean_post_title_bg_image_repeat":"","ocean_post_title_bg_image_size":"","ocean_post_title_height":0,"ocean_post_title_bg_overlay":0.5,"ocean_post_title_bg_overlay_color":"","ocean_disable_breadcrumbs":"default","ocean_breadcrumbs_color":"","ocean_breadcrumbs_separator_color":"","ocean_breadcrumbs_links_color":"","ocean_breadcrumbs_links_hover_color":"","ocean_display_footer_widgets":"default","ocean_display_footer_bottom":"default","ocean_custom_footer_template":"0","footnotes":""},"class_list":["post-921","page","type-page","status-publish","hentry","entry"],"_links":{"self":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/921","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/comments?post=921"}],"version-history":[{"count":4,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/921\/revisions"}],"predecessor-version":[{"id":929,"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/pages\/921\/revisions\/929"}],"wp:attachment":[{"href":"https:\/\/lesmrdtrucs.mataf35400.fr\/index.php\/wp-json\/wp\/v2\/media?parent=921"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}