Petites subs avec les dates

dim jour$,bis%,day%

jour$=date$
N_jour_Annee(jour$)
Print "Nous sommes le "+jour$
Print "C est le "+str$(N_jour_Annee%)+" ème jour de l' année "
Print "Le numéro du jour depuis le 01/01/1900 est le "+str$(day%)+" (selon excel)"
Print "Nous sommes dans la "+str$(Num_sem%)+" ème semaine de l' année"
end

'---------------------------------------------------------'
sub N_jour_Annee(jour$)
  dim_local j%,m%,a%,x%,sep%,liste$,jm%,njm%,a$,ja%
  liste$="31_28_31_30_31_30_31_31_30_31_30_31_"
  if variable("N_jour_Annee%")=0 then dim N_jour_Annee%

  j%=val(left$(jour$,2))
  N_jour_Annee%=j%
  m%=val(mid$(jour$,4,2))
  for x%=1 to m%-1
      sep%=instr(liste$,"_")
      a$=left$(liste$,2):jm%=val(a$):njm%=njm%+jm%
      if len(liste$)>0: Liste$=right$(liste$,len(liste$)-sep%):end_if
  next x%
  N_jour_Annee%=N_jour_Annee%+njm%
  a%=right$(jour$,4)
  bissextile(a%)
  if bis%=1 and m%=2
      N_jour_Annee%=N_jour_Annee%+1
  end_if
  for x%=1900 to a%-1
      bissextile(x%)
      if bis%=1
        ja%=ja%+366
      else
        ja%=ja%+365
      end_if
  next x%
  day%=N_jour_Annee%+ja%
  Numero_Semaine(day%)
end_sub
'---------------------------------------------------------'
sub bissextile(annee%)
  dim_local b%
  if mod(annee%,4)=0 :b%=b%+1:end_if
  if mod(annee%,100)>0:b%=b%+1:end_if
  if b%<2
      if mod(annee%,400)=0:b%=b%+1:end_if
  end_if
  if b%<2 :bis%=0:else:bis%=1:end_if
end_sub
'---------------------------------------------------------'
Sub Numero_Semaine(day%)
    if variable("Num_sem%")=0 then dim Num_sem%
    Num_sem%=int(mod(int((day%-2)/7)+0.6,52+5/28))+1
end_sub

Numero_Semaine(date$)

Print "Le "+date$
Print "C est le "+str$(N_jour_Annee%)+" ème jour de l' année "+right$(date$,4)
Print "Le numéro du jour depuis le 01/01/1900 est le "+str$(day%)+" (selon excel)"
Print "Numéro de la semaine : "+str$(Num_sem%)

end

Sub Numero_Semaine(jour$)
    dim_local j%,m%,a%,x%,sep%,liste$,jm%,njm%,a$,ja%,bis%,b%
    liste$="31_28_31_30_31_30_31_31_30_31_30_31_"
    if variable("N_jour_Annee%")=0 then dim N_jour_Annee%
'   calcul du nombre de jour depuis le 01/01 de l' année de la date
    j%=val(left$(jour$,2))
    N_jour_Annee%=j%
    m%=val(mid$(jour$,4,2))
    for x%=1 to m%-1
       sep%=instr(liste$,"_")
       a$=left$(liste$,2):jm%=val(a$):njm%=njm%+jm%
       if len(liste$)>0: Liste$=right$(liste$,len(liste$)-sep%):end_if
    next x%
    N_jour_Annee%=N_jour_Annee%+njm%
    a%=right$(jour$,4)
    if mod(a%,4)=0 :b%=b%+1:end_if
    if mod(a%,100)>0:b%=b%+1:end_if
    if b%<2
      if mod(a%,400)=0:b%=b%+1:end_if
    end_if
    if b%<2 :bis%=0:else:bis%=1:end_if
    if bis%=1 and m%=2
      N_jour_Annee%=N_jour_Annee%+1
    end_if
'   calcul du nombre de jour entre le 01/01/1900 et le 31/12 de l' année précédente de la date
    for x%=1900 to a%-1
      b%=0
      if mod(x%,4)=0 :b%=b%+1:end_if
      if mod(x%,100)>0:b%=b%+1:end_if
      if b%<2
      if mod(x%,400)=0:b%=b%+1:end_if
      end_if
      if b%<2 :bis%=0:else:bis%=1:end_if
      if bis%=1
         ja%=ja%+366
      else
         ja%=ja%+365
      end_if
    next x%
    if variable("day%")=0 then dim day%
    day%=N_jour_Annee%+ja%
'   calcul du numéro de la semaine d' après le numéro du jour
    if variable("Num_sem%")=0 then dim Num_sem%
    Num_sem%=int(mod(int((day%-2)/7)+0.6,52+5/28))+1
end_sub

 Proc_Date("30/12/2013","fr") :' nom du jour en français
' Proc_Date(date$,"en") :' nom du jour en anglais
' Proc_Date(date$,"es") :' nom du jour en espagnol
' Proc_Date(date$,"de") :' nom du jour en allemand
' Proc_Date(date$,"it") :' nom du jour en italien
' Proc_Date(date$,"pl") :' nom du jour en polonais

Print Nom_jour$+" "+date$
Print "C est le "+str$(N_jour_Annee%)+" ème jour de l' année "+right$(date$,4)
Print "Le numéro du jour depuis le 01/01/1900 est le "+str$(day%)+" (selon excel)"
Print "C'est le jour "+str$(rs_js%)+" de la semaine Numéro "+str$(Num_sem%)
Print "La semaine "+str$(Num_sem%)+" dédute le "+deb_sem$+" et finit le "+fin_sem$

end

Sub Proc_Date(jour$,lang$)
'  CREATION DES VARIABLES GLOBALES NECESSAIRES
  if variable("N_jour_Annee%")=0 then dim N_jour_Annee%
'  recevra le nombre de jour entre le 01/01 et le jour de l' année de la date passée en paramètre
  if variable("day%")=0 then dim day%
'  recevra le nombre de jour entre le 01/01/1900 et la date passée en paramètre
  if variable("Num_sem%")=0 then dim Num_sem%
'  recevra le numéro de la semaine dans l' année de la date passée en paramètre
  if variable("rs_js%") = 0 then dim rs_js%
'  recevra le numéro du jour dans la semaine
  if variable("Nom_jour$") = 0 then dim Nom_jour$
'  recevra le nom du jour de la semaine dans la langue passée en paramètre
  if variable("deb_sem$")=0 then dim deb_sem$
'  recevra la date du début de la semaine du jour passé en paramètre
  if variable("fin_sem$")=0 then dim fin_sem$
'  recevra la date de la fin de la semaine du jour passé en paramètre
'  CREATION DES VARIABLES LOCALES
  dim_local j%,m%,a%,x%,sep%,liste$,jm%,njm%,a$,ja%,bis%,b% ,js_d,langue%,Lg$
  dim_local deb_sem%,fin_sem%,mois%,j$,m$
'  INITIALISATIONS DES VARIABLES LISTE
  liste$="31_28_31_30_31_30_31_31_30_31_30_31_"
'  calcul du nombre de jour depuis le 01/01 de l' année de la date
    j%=val(left$(jour$,2))
    N_jour_Annee%=j%
    m%=val(mid$(jour$,4,2))
    for x%=1 to m%-1
      sep%=instr(liste$,"_")
      a$=left$(liste$,2):jm%=val(a$):njm%=njm%+jm%
      if len(liste$)>0: Liste$=right$(liste$,len(liste$)-sep%):end_if
    next x%
    N_jour_Annee%=N_jour_Annee%+njm%
    a%=right$(jour$,4)
    if mod(a%,4)=0 :b%=b%+1:end_if
    if mod(a%,100)>0:b%=b%+1:end_if
    if b%<2
      if mod(a%,400)=0:b%=b%+1:end_if
    end_if
    if b%<2 :bis%=0:else:bis%=1:end_if
    if bis%=1 and m%=2
      N_jour_Annee%=N_jour_Annee%+1
    end_if
'  calcul du nombre de jour entre le 01/01/1900 et le 31/12 de l' année précédente de la date
    for x%=1900 to a%-1
      b%=0
      if mod(x%,4)=0 :b%=b%+1:end_if
      if mod(x%,100)>0:b%=b%+1:end_if
      if b%<2
      if mod(x%,400)=0:b%=b%+1:end_if
      end_if
      if b%<2 :bis%=0:else:bis%=1:end_if
      if bis%=1
        ja%=ja%+366
      else
        ja%=ja%+365
      end_if
    next x%
    day%=N_jour_Annee%+ja%
'  calcul du numéro de la semaine d' après le numéro du jour
    Num_sem%=int(mod(int((day%-2)/7)+0.6,52+5/28))+1
'  calcul du jour de la semaine
'  Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
    js_d = a%
    if m% < 3 then js_d = js_d-1
    js_d=int(23*m%/9) + j% + 4 + a% + int(js_d/4) - int(js_d/100) + int(js_d/400)
    if m%>=3 then js_d = js_d-2
    rs_js% = js_d-7*int(js_d/7)
'  nom du jour de la semaine
    if lang$="fr": langue%=1 :end_if
    if lang$="en": langue%=2 :end_if
    if lang$="es": langue%=3 :end_if
    if lang$="de": langue%=4 :end_if
    if lang$="it": langue%=5 :end_if
    if lang$="pl": langue%=6 :end_if

    select langue%
    case 1 : Lg$ = "Dimanche,Lundi,mardi,Mercredi,Jeudi,Vendredi,Samedi,"
    case 2 : Lg$ = "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,"
    case 3 : Lg$ = "Domingo,Lunes,Martes,Miércoles,jueves,Viernes,Sabado,"
    case 4 : Lg$ = "Sonntag,Montag,Dienstag,Mittwoch,Freitag,Samstag,"
    case 5 : Lg$ = "Domenica,Lunedi,Martedi,Mercoledi,Giovedi,Venerdi,Sabato,"
    case 6 : Lg$ = "niedziela,poniedzialek,wtorek,sroda,czwartek,piatek,sobota,"
    end_select
    for x%= 0 to rs_js%
      sep%=instr(Lg$,",")
      Nom_jour$=left$(Lg$,sep%-1)
      if len(Lg$)>0
          Lg$=right$(Lg$,len(Lg$)-sep%)
      end_if
    next x%
   
'  calcul debut et fin de semaine
    deb_sem%=(j% -rs_js% )+1
    if deb_sem% <0
      deb_sem%=jm%-deb_sem%
      if m%>1:mois%=m%-1:else:deb_sem%=1:mois%=1:end_if
    else
      mois%=m%
    end_if
    if len(str$(deb_sem%))<2 :j$="0"+str$(deb_sem%):else:J$=str$(deb_sem%):end_if
    if len(str$(mois%))<2 :m$="0"+str$(mois%):else:m$=str$(mois%):end_if
    deb_sem$=j$+"/"+m$+"/"+str$(a%)

    fin_sem%=(deb_sem%+6)
    if fin_sem% >jm%
      fin_sem% =jm%-fin_sem%
      if m%<12 :mois%=m%+1 :else:fin_sem%=31:mois%=12 :end_if
    else
      mois%=m%
    end_if
    if len(str$(fin_sem%))<2 :j$="0"+str$(fin_sem%):else:J$=str$(fin_sem%):end_if
    if len(str$(mois%))<2 :m$="0"+str$(mois%):else:m$=str$(mois%):end_if
    fin_sem$=j$+"/"+m$+"/"+str$(a%)
end_sub

' Proc_Date("30/12/2013","fr") :' nom du jour en français
' Proc_Date(date$,"en") :' nom du jour en anglais
' Proc_Date(date$,"es") :' nom du jour en espagnol
' Proc_Date(date$,"de") :' nom du jour en allemand
' Proc_Date(date$,"it") :' nom du jour en italien
' Proc_Date(date$,"pl") :' nom du jour en polonais
' ---------------------------------------------------------- Ajouté par Papydall
 Proc_Date(date$,"ar") :' nom du jour en arabe
' Proc_Date(date$,"ja") :' nom du jour en japonais
' proc_Date(date$,"la") :' nom du jour en latin
' proc_Date(date$,"nl") :' nom du jour en Néerlandais
' proc_Date(date$,"ru") :' nom du jour en russe
' proc_Date(date$,"tu") :' nom du jour en turc
' ------------------------------------------------------------------------------
Print Nom_jour$+" "+date$
Print "C est le "+str$(N_jour_Annee%)+" ème jour de l' année "+right$(date$,4)
Print "Le numéro du jour depuis le 01/01/1900 est le "+str$(day%)+" (selon excel)"
Print "C'est le jour "+str$(rs_js%)+" de la semaine Numéro "+str$(Num_sem%)
Print "La semaine "+str$(Num_sem%)+" dédute le "+deb_sem$+" et finit le "+fin_sem$

end

Sub Proc_Date(jour$,lang$)
'  CREATION DES VARIABLES GLOBALES NECESSAIRES
  if variable("N_jour_Annee%")=0 then dim N_jour_Annee%
'  recevra le nombre de jour entre le 01/01 et le jour de l' année de la date passée en paramètre
  if variable("day%")=0 then dim day%
'  recevra le nombre de jour entre le 01/01/1900 et la date passée en paramètre
  if variable("Num_sem%")=0 then dim Num_sem%
'  recevra le numéro de la semaine dans l' année de la date passée en paramètre
  if variable("rs_js%") = 0 then dim rs_js%
'  recevra le numéro du jour dans la semaine
  if variable("Nom_jour$") = 0 then dim Nom_jour$
'  recevra le nom du jour de la semaine dans la langue passée en paramètre
  if variable("deb_sem$")=0 then dim deb_sem$
'  recevra la date du début de la semaine du jour passé en paramètre
  if variable("fin_sem$")=0 then dim fin_sem$
'  recevra la date de la fin de la semaine du jour passé en paramètre
'  CREATION DES VARIABLES LOCALES
  dim_local j%,m%,a%,x%,sep%,liste$,jm%,njm%,a$,ja%,bis%,b% ,js_d,langue%,Lg$
  dim_local deb_sem%,fin_sem%,mois%,j$,m$
'  INITIALISATIONS DES VARIABLES LISTE
  liste$="31_28_31_30_31_30_31_31_30_31_30_31_"
'  calcul du nombre de jour depuis le 01/01 de l' année de la date
    j%=val(left$(jour$,2))
    N_jour_Annee%=j%
    m%=val(mid$(jour$,4,2))
    for x%=1 to m%-1
      sep%=instr(liste$,"_")
      a$=left$(liste$,2):jm%=val(a$):njm%=njm%+jm%
      if len(liste$)>0: Liste$=right$(liste$,len(liste$)-sep%):end_if
    next x%
    N_jour_Annee%=N_jour_Annee%+njm%
    a%=right$(jour$,4)
    if mod(a%,4)=0 :b%=b%+1:end_if
    if mod(a%,100)>0:b%=b%+1:end_if
    if b%<2
      if mod(a%,400)=0:b%=b%+1:end_if
    end_if
    if b%<2 :bis%=0:else:bis%=1:end_if
    if bis%=1 and m%=2
      N_jour_Annee%=N_jour_Annee%+1
    end_if
'  calcul du nombre de jour entre le 01/01/1900 et le 31/12 de l' année précédente de la date
    for x%=1900 to a%-1
      b%=0
      if mod(x%,4)=0 :b%=b%+1:end_if
      if mod(x%,100)>0:b%=b%+1:end_if
      if b%<2
      if mod(x%,400)=0:b%=b%+1:end_if
      end_if
      if b%<2 :bis%=0:else:bis%=1:end_if
      if bis%=1
        ja%=ja%+366
      else
        ja%=ja%+365
      end_if
    next x%
    day%=N_jour_Annee%+ja%
'  calcul du numéro de la semaine d' après le numéro du jour
    Num_sem%=int(mod(int((day%-2)/7)+0.6,52+5/28))+1
'  calcul du jour de la semaine
'  Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
    js_d = a%
    if m% < 3 then js_d = js_d-1
    js_d=int(23*m%/9) + j% + 4 + a% + int(js_d/4) - int(js_d/100) + int(js_d/400)
    if m%>=3 then js_d = js_d-2
    rs_js% = js_d-7*int(js_d/7)
'  nom du jour de la semaine
    if lang$="fr": langue%=1 :end_if
    if lang$="en": langue%=2 :end_if
    if lang$="es": langue%=3 :end_if
    if lang$="de": langue%=4 :end_if
    if lang$="it": langue%=5 :end_if
    if lang$="pl": langue%=6 :end_if
    if lang$="ar": langue%=7 :end_if
    if lang$="ja": langue%=8 :end_if
    if lang$="la": langue%=9 :end_if
    if lang$="nl": langue%=10:end_if
    if lang$="ru": langue%=11:end_if
    if lang$="tu": langue%=12:end_if

    select langue%
    case 1 : Lg$ = "Dimanche,Lundi,mardi,Mercredi,Jeudi,Vendredi,Samedi,"
    case 2 : Lg$ = "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday,"
    case 3 : Lg$ = "Domingo,Lunes,Martes,Miércoles,jueves,Viernes,Sabado,"
    case 4 : Lg$ = "Sonntag,Montag,Dienstag,Mittwoch,Freitag,Samstag,"
    case 5 : Lg$ = "Domenica,Lunedi,Martedi,Mercoledi,Giovedi,Venerdi,Sabato,"
    case 6 : Lg$ = "niedziela,poniedzialek,wtorek,sroda,czwartek,piatek,sobota,"
    case 7 : Lg$ = "AL Ahad,Al Ithnaîn,Al Thoulatha,Al Arbiâa,Al Khamisse,Al Joumouâa,Al Sabt,"
    case 8 : Lg$ = "Nichiyoubi,Getzuyoubi,Kayoubi,Suiyoubi,Mokuyoubi,Kinyoubi,Doyoubi,"
    case 9 : Lg$ = "Solis dies,Lunae dies,Marts dies,Mercuni dies,Jovis dies,Veneris dies,Saturni dies,"
    case 10: Lg$ = "Zondag,Maandag,Dinsdag,Woensdag,Donderdag,Vrijdag,Zaterdag,"
    case 11: Lg$ = "Voskresenje,Ponedjelnik,Vtomik,Sredá,Tjetverg,Pjatnitse,Subbota,"
    case 12: Lg$ = "Ahad,Esnein,Salasa,Erbua,Khamis,Dschuma,Sebt,"

    end_select
    for x%= 0 to rs_js%
      sep%=instr(Lg$,",")
      Nom_jour$=left$(Lg$,sep%-1)
      if len(Lg$)>0
          Lg$=right$(Lg$,len(Lg$)-sep%)
      end_if
    next x%

'  calcul debut et fin de semaine
    deb_sem%=(j% -rs_js% )+1
    if deb_sem% <0
      deb_sem%=jm%-deb_sem%
      if m%>1:mois%=m%-1:else:deb_sem%=1:mois%=1:end_if
    else
      mois%=m%
    end_if
    if len(str$(deb_sem%))<2 :j$="0"+str$(deb_sem%):else:J$=str$(deb_sem%):end_if
    if len(str$(mois%))<2 :m$="0"+str$(mois%):else:m$=str$(mois%):end_if
    deb_sem$=j$+"/"+m$+"/"+str$(a%)

    fin_sem%=(deb_sem%+6)
    if fin_sem% >jm%
      fin_sem% =jm%-fin_sem%
      if m%<12 :mois%=m%+1 :else:fin_sem%=31:mois%=12 :end_if
    else
      mois%=m%
    end_if
    if len(str$(fin_sem%))<2 :j$="0"+str$(fin_sem%):else:J$=str$(fin_sem%):end_if
    if len(str$(mois%))<2 :m$="0"+str$(mois%):else:m$=str$(mois%):end_if
    fin_sem$=j$+"/"+m$+"/"+str$(a%)
end_sub