FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Petites subs avec les dates

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivant
AuteurMessage
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: Petites subs avec les dates   Jeu 5 Sep 2013 - 20:07

Je me suis amusé avec les dates Laughing 
Code:
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


Jour$ doit être au format : jj/mm/aaaa


Dernière édition par ygeronimi le Jeu 5 Sep 2013 - 21:34, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 5 Sep 2013 - 20:34

J' ai tout regroupé dans une seule procédure "numero_Semaine(date$).
on peut changer "date$" par une date au format "jj/mm/aaaa"

Pour cette procédure, je me suis basé sur le tableur excel et manière de calculer le numéro du jour
Excel par du 01/01/1900 

Code:
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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5031
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petites subs avec les dates   Jeu 5 Sep 2013 - 21:15

Salut Ygeronimi,
ton premier code ne fonctionne pas. il manque la SUB bissextile().

Le deuxième fonctionne.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petites subs avec les dates   Jeu 5 Sep 2013 - 21:20

Je confirme les paroles de JC
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 5 Sep 2013 - 21:35

Embarassed  C' est corrigé pour la première publication.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 7 Sep 2013 - 9:01

J' ai donné un nom à ma procédure pour les dates et je l' ai un peu complété
avec des morceaux d'autres procédures que j' ai piqué dans celles posté sur le site.
Je rappelle que cette procédure est basée sur les calculs excel des dates (01/01/1900 à 31/12/9999)
Code:
 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


Dernière édition par ygeronimi le Sam 7 Sep 2013 - 9:21, édité 1 fois (Raison : correction)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Sam 7 Sep 2013 - 11:20

Bonjour Ygeronimi ! J'ai essayé ton programme et il m'affiche que nous sommes le 364ème jour de l'année. nous venons d'entrer dans la quatrième dimension alien !!! Il doit y avoir un petit bug... J'ai juste le temps de te le dire, A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: re   Sam 7 Sep 2013 - 11:27

Toutes mes excuses, il n'y a aucune erreur ! C'est juste que tel quel, le programme fait le calcul sur le 30/12 en affichant la date d'aujourd'hui. Bonne journée !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 7 Sep 2013 - 13:22

Le seul bug que j' ai constaté est le numéro de la semaine.
Le mode de calcul a du mal avec la 53 ème mais je n' ai pas trouvé de meilleur formule...Embarassed

Sinon, la procédure répond à la date passée en paramètre.
Dans ce cas, le 30/12/2013 que j' ai pris pour voir mes calculs de début et fin de semaine à cheval sur deux années.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Petites subs avec les dates   Sam 7 Sep 2013 - 15:42

@ygeronimi

Der Donnerstag ist ausschlaggebend, zu welchem Jahr die Woche gezählt wird.
Liegt er im neuen Jahr, ist es die Kalenderwoche 1.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petites subs avec les dates   Sam 7 Sep 2013 - 16:08

مرحبا Ygeronimi

Tu ne connais pas les noms des jours en Arabe ? Et en Japonais, en Latin, en Néerlandais, en russe, en Turc ?

Ben, j’ai complété ta Proc_Date() pour que les langues ci-haut mentionnées soient prises en compte.

Code:
' 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 7 Sep 2013 - 16:32

Ce n' est que paresse de ma part, toutes ou quasi toutes les langues sont disponibles sur le web.
Mais je vais ajouter celles-ci dans le source.
Laughing


Dernière édition par ygeronimi le Sam 7 Sep 2013 - 19:51, édité 1 fois (Raison : correction orthographique sur une suggestion de Papydall)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petites subs avec les dates   Sam 7 Sep 2013 - 16:44

Bouffer les esses n’est pas digestif !
Les pauvres "toutes ou quasi toutes les langues" !!!Very Happy 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 7 Sep 2013 - 19:50

Ben quoi, j' avais faim...Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5031
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Petites subs avec les dates   Sam 7 Sep 2013 - 22:15

Qu'est-ce qu'il est chiant ce Papydall avec l'orthographe !
Mais comment l'arrêter, y a-t-il des piles à enlever ou lui casser ses lunettes. Je désespère. Il nous traque. C'est du harcèlement.
lol! 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petites subs avec les dates   Sam 7 Sep 2013 - 23:00

Ben voilà :

Je ne fonctionne pas aux piles mais à une autre énergie (c’est à toi de la deviner).
Même sans lunettes, les perles trop scintillantes me sautent aux yeux !
Pour que Jean Claude ne désespère pas,  je signe une trêve avec vous !

Mais …. Comment faire si l’envi  deviendrait fort ?
Bon, j’essayerai  de me retenir, promis.
NB : j’ai bien dis : j’essayerai.
Vous êtes tous sympa ! Very Happy 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Petites subs avec les dates   Dim 8 Sep 2013 - 0:06

Ne leur laisse pas la bride sur le cou papydall, sinon ils vont écrire n'importe comment ! et après, bonjour le boulot que tu vas avoir à corriger tout ça ! Very Happy 

Tiens, à propos, quand tu dis:
Citation :
Mais …. Comment faire si l’envi deviendrait fort ?
J'aurais plutôt vu: ... si l'envie devenait forte ... Very Happy 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petites subs avec les dates   Dim 8 Sep 2013 - 1:38

envie signifie « jalousie, haine »
Or, je ne suis ni jaloux ni haineux.
envie signifie aussi  « désir, ambition, besoin »

envi signifie « défi, provocation » et vient de l’ancien français.
Moi-même je suis ancien.
Or, en français moderne, envi n’apparait plus que dans la locution adverbiale à l’envi
Donc, je perds aux points contre toi JL35.
Mais je t’aurais un jour et j’aurais très  envie d’égaliser.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Invité
Invité



MessageSujet: Re: Petites subs avec les dates   Dim 8 Sep 2013 - 2:56

On voit que notre Papydall est en vie! Razz
Revenir en haut Aller en bas
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Dim 8 Sep 2013 - 10:26

Par contre on dit je t'aurai et pas je t'aurais (futur.. hypothétique).
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Invité
Invité



MessageSujet: Re: Petites subs avec les dates   Dim 8 Sep 2013 - 10:53

Bonjour,
C'est intéressant tout cela. Personnellement pendant des années, je n'ai plus eu l'occasion d'écrire, et beaucoup de règles élémentaires mon échappée. Mais toute une génération en France a un problème avec l'orthographe, et peut-être que ceux qui aujourd'hui interviennent pour corriger les fautes d'autrui, ont une responsabilité en la matière.

Mais je me dis qu'avec toutes les interventions que vous faites pour un mot ou un autre, je suis persuadé qu'une très grande partie de nos membres ne participe plus ici, de peur d'être sanctionnée, et c'est bien dommage. Je sais que les intentions sont bonnes, mais je remarque que sur ce forum, au contraire de beaucoup d'autres, seuls ceux qui maîtrisent l'orthographe plus ou moins, osent intervenir. Je vous dirais franchement que de devoir déchiffrer une écriture n'est pas réjouissant, mais je n'interviens pas dans ces cas-là, car c'est la meilleure façon de faire fuir l'intervenant.
Revenir en haut Aller en bas
Froggy One

avatar

Nombre de messages : 391
Date d'inscription : 06/01/2012

MessageSujet: Re   Dim 8 Sep 2013 - 11:23

Tu as tout à fait raison d'intervenir, Cosmos 70, moi j'avais compris que les erreurs (car pour moi ce ne seront jamais des fautes) n'avaient aucune importance sur le forum. J'avais aussi cru comprendre que là, on s'amusait. Désolé si mon intervention a été mal interprétée, et pour ma part, je me garderai bien de recommencer à l'avenir !!! Smile
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 8 Sep 2013 - 11:32

Rassure toi, Cosmos70, il en faudra beaucoup plus pour me faire fuir, et me faire taire...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5857
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Petites subs avec les dates   Dim 8 Sep 2013 - 11:36

Ne t'inquiète pas Froggy One, moi sur le forum j'écris vite et si je fais des fautes, je m'en fou ... S'il y a des commentaires, je n'en tiens pas compte. Je pense qu'il y a 2 types de choses à distinguer: un langage correct (pas d'insulte, pas de langage SMS, etc ...) et quelques fautes. Après, si certain veulent relever les fautes pour se faire avancer ou s'amuser entre eux à ce les débusquer, c'est leur droit. Perso, je n'en tiens plus compte, car malheureusement, je n'arrive pas à tout retenir et j'interviens souvent rapidement donc sans forcément me relire, même si c'est un tord. Voilà, je ne pollue pas plus le sujet d'Ygeronimi sur les sub ... ^^
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Petites subs avec les dates   Dim 8 Sep 2013 - 11:43

Bonjour tout le monde.
Panoramiciens de tout pays OZEZ INTERVENIR et ne craignez plus d’être critiqué de ma part pour une erreur quelconque d’orthographe.
D’ailleurs je n’ai  joué à ce jeu qu’avec certains  et rarement avec d’autres.
Pour moi, ce n’était qu’un jeu !

Me considérant comme un éternel étudiant, je cherche toujours à m’améliorer dans tous les domaines qui sont à ma portée et notamment à mieux maîtriser la langue française (qui, je le rappelle, n’est pas ma langue maternelle).

Aucune remarque ne sera faite de ma part concernant l’orthographe.
Promis et juré !
Je m'excuse auprès de tous.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Petites subs avec les dates   

Revenir en haut Aller en bas
 
Petites subs avec les dates
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivant
 Sujets similaires
-
» choix du type de route avec nuvi 1440
» [Résolu] Images avec des petites images lien ??
» [Résolu] Problème avec boîte de réception OE
» j ai des souci , je debute depuis ce jour avec linux fedora
» Lecture video interrompue avec mise en tampon

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: