PureBasic

J'ai vu aussi des gens dit "simple d'esprit" donner instantanément le jour quand on leur disait par exemple 3 décembre 1923
Il doit y avoir un truc évident dans le calandrier qui nous échappe

Frenchy Pilou a écrit :J'ai vu aussi des gens dit "simple d'esprit" donner instantanément le jour quand on leur disait par exemple 3 décembre 1923
Il doit y avoir un truc évident dans le calandrier qui nous échappe

non! non! moi je te parle de qulqu'un de "normal" , il a une methode a lui , je
vais lui demander !!

[Reedit] j'attends sa reponse

C'est une bonne idée ces PurePunch. Si on met ça au point, je pourrai en faire l'annonce sur le forum anglais; il faudra trouver quelqu'un pour le forum allemand.

Ca pourrait par exemple être un forum mensuel, avec un vote des membres pour déterminer le gagnant. Il n'y avait pas vraiment de thème si je me souviens bien, juste le meilleur code en dix lignes, c'est ça?

Voici une méthode :
http://villemin.gerard.free.fr/CultureG/Semaine.htm

et une explication :
http://www.recreomath.qc.ca/dict_semaine_jour.htm

Qui va écrire ce Pure'Punch ?

Lna a écrit :J'avais concervé un programme similaire dans ma calculatrice, pour trouver le jour de la semaine.
Ce programme venait d'un st-mag (n°30 à n°45 ?) rubrique gfa punch.

Code : Tout sélectionner

; PB 4.02
Procedure.s JourSemaineDate(j.b,m.b,a.w) 

  Protected jd.d,js.d
  Protected man.l,mp.l,ap.l
  
  man=Int(0.6+1/m+0.001)
  mp=m+12*man
  ap=a-man
  jd=j+Int((367*(mp-1)+5)/12+0.001)+Int(365.25*(ap+4712)+0.001)
  jd=jd-Int(ap/100)+Int(ap/400)
  js=(jd-1720977)/7
  js=Int(7*(js-Int(js))+0.001)

  ProcedureReturn RTrim(Mid("DIMANCHE LUNDI    MARDI    MERCREDI JEUDI    VENDREDI SAMEDI  ",js*9+1,9))

EndProcedure 

For jour=10 To 30
  Debug Str(jour)+" "+JourSemaineDate(jour,9,2007)
Next jour

Il ne restera plus qu'à ajouter toutes les conditions, pour ne pas se retrouver avec des dates qui n'existent pas.

Reprise d'un Ordinateur individuel du 5 mars 1979 N° 5 page 52... Fiche Exemple N°4
Et probablement d'autres par la suite.. Personnellement, j'en ai au moins 4 ou 5 formes (et c'est suffisant)... Et aucune de moi
Comme quoi, les nouveauté d'aujourd'hui peuvent aussi être celle d'hier... Et d'avant hier
Quand à Excell et d'autres beau joujou, ne sont que la somme d'une multitude "sous routines" "inventée" au fur et à mesure des besoins...
Un peu comme PB est en train de se construire sous nos yeux !
Alors dans ??? Quelqu'un dira...
Alors PB n'a rien inventé ! (pour l'une ou l'autre de ses spécificités)
C'est le lot de toute invention, une fois qu'elle est inventée, elle ne devient que la partie d'autre chose

j'ai aussi posté un code de convertion semaine vers date dans la rubrique astuce... j'en ai eu besoin pour une appli sous windev. j'ai trouvé la formile de calcul pour excel, je l'ai adpté en purebasic, parce que c'est plus simple et après adaptation à windev....

pat