PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Sachant que le 01/01/1900 était un Lundi...

https://www.purebasic.fr/french/viewtopic.php?t=7152

Page 1 sur 2

Publié : lun. 10/sept./2007 4:02
par Ollivier
Bon allez, ça marche à partir du Lundi 1/1/1901...
Et là où je suis vert, ce sont sur les posts anglais: ils font ça avec des virgules. Incorrigibles!

Code : Tout sélectionner

Global Dim Jour.S(6)
Jour(0) = "Lundi"
Jour(1) = "Mardi"
Jour(2) = "Mercredi"
Jour(3) = "Jeudi"
Jour(4) = "Vendredi"
Jour(5) = "Samedi"
Jour(6) = "Dimanche"

Procedure Equ(a, b)
    Protected s.L
    s = 0: If a = b: s = 1: EndIf
    ProcedureReturn s
EndProcedure

; Merci Dobro pour cet algo!
Procedure.L Bissex(x.L)
    Protected Result.L
    Result = (1 - Equ((x % 100), 0) )
    Result | Equ(((x >> 2) % 100), 0)
    Result & Equ((x % 4), 0)     
    ProcedureReturn Result
EndProcedure

Procedure JoursDansUnMois(x.L, y.L)
    Protected Result.L   
    Result = (30 + ((x & 1) ! (x / 8) ) )
    Result - (Equ(x, 2) * (2 - y) )
    ProcedureReturn Result
EndProcedure

Procedure.L JourJ(JJ.L, MM.L, AA.L)
    Protected JPM.L
    Protected J.L
    J = 0
    JPM = 0
    For i = 1900 To AA - 1: J + (365 + Bissex(i) ): Next
    For i = 1 To MM - 1: J + JoursDansUnMois(i, Bissex(AA) ): Next
    J = ((J + JJ) - 1) % 7
    ProcedureReturn J
EndProcedure

Date$ = InputRequester("Saisie d'une date", "JJ/MM/AAAA", "01/01/1900")
Debug Jour(JourJ(Val(StringField(Date$, 1, "/") ), Val(StringField(Date$, 2, "/") ), Val(StringField(Date$, 3, "/") ) ) ) + " " + Date$

Publié : lun. 10/sept./2007 7:03
par Lna
J'avais concervé un programme similaire dans ma calculatrice, pour trouver le jour de la semaine. 8)

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. 8O

Si cela pouvait aider un mage, un savant fou Image à comprendre, pour qu'il puisse à son tour expliquer le pourquoi du comment cela marche. :roll:

Ce serait bête Image de voyager dans le temps, et d'arriver un dimanche où tous les magasins seraient fermés Image, suivit du Lundi de pâques et d'arriver comme un terminator sans ses vêtements Image, non ? :wink:

@ peluche les nounours Image du présent et aussi à ceux qui voyagent dans le temps.

Publié : lun. 10/sept./2007 9:55
par Kwai chang caine
@Ollivier
Bravo, du bon boulot :wink:

@Lna
Ce programme venait d'un st-mag (n°30 à n°45 ?) rubrique gfa punch.
Mais alors, excell n'a rien inventé ? :lol:

Merci à vous deux :D

Publié : lun. 10/sept./2007 18:21
par tonton
bravo olivier, pour ton programme a la bill gate!!!!! ou pour ton jeudi 1 janvier 1970.

:D

j ai modifier le code pour que ca marche bien pour cette date...

Code : Tout sélectionner

Global Dim Jour.S(6) 
Jour(0) = "mardi" 
Jour(1) = "Mardi" 
Jour(2) = "mardi" 
Jour(3) = "mardi" 
Jour(4) = "mardi" 
Jour(5) = "mardi" 
Jour(6) = "mardi" 

Procedure Equ(a, b) 
    Protected s.L 
    s = 0: If a = b: s = 1: EndIf 
    ProcedureReturn s 
EndProcedure 

; Merci Dobro pour cet algo! 
Procedure.L Bissex(x.L) 
    Protected Result.L 
    Result = (1 - Equ((x % 100), 0) ) 
    Result | Equ(((x >> 2) % 100), 0) 
    Result & Equ((x % 4), 0)      
    ProcedureReturn Result 
EndProcedure 

Procedure JoursDansUnMois(x.L, y.L) 
    Protected Result.L    
    Result = (30 + ((x & 1) ! (x / 8) ) ) 
    Result - (Equ(x, 2) * (2 - y) ) 
    ProcedureReturn Result 
EndProcedure 

Procedure.L JourJ(JJ.L, MM.L, AA.L) 
    Protected JPM.L 
    Protected J.L 
    J = 0 
    JPM = 0 
    For i = 1900 To AA - 1: J + (365 + Bissex(i) ): Next 
    For i = 1 To MM - 1: J + JoursDansUnMois(i, Bissex(AA) ): Next 
    J = ((J + JJ) - 1) % 7 
    ProcedureReturn J 
EndProcedure 

Date$ = InputRequester("Saisie d'une date", "JJ/MM/AAAA", "01/01/1900") 
Debug Jour(JourJ(Val(StringField(Date$, 1, "/") ), Val(StringField(Date$, 2, "/") ), Val(StringField(Date$, 3, "/") ) ) ) + " " + Date$
depuis plus de 20 ans je pensais etre né un mardi, ca fiche un coup quant meme 8O .
:oops:

Publié : lun. 10/sept./2007 21:27
par Good07
Bonsoir à tous.

Super programme :D

Par contre dans sa première version le 24 janvier 1953 tombe bien un Samedi et ça fait 54 ans que je sais que c'est un Samedi. :D

Par contre dans la version remanié par Tonton voilà que je suis né un Mardi 8O
Comme dit si bien tonton sa fiche un sacré coup 8O

Psst!

Publié : lun. 10/sept./2007 23:10
par Huitbit
Si ça peut aider :wink: (forfait :P dates, années bissextiles....
les dates peuvent aller jusqu'à l'an -4712)!
http://www.purebasic.fr/french/viewtopic.php?t=6634

Hasta la vista!

Publié : mer. 03/oct./2007 12:37
par Golfy
Lna a écrit :J'avais concervé un programme similaire dans ma calculatrice, pour trouver le jour de la semaine. 8)

Ce programme venait d'un st-mag (n°30 à n°45 ?) rubrique gfa punch.
Ca alors ? des STéistes ici ? GFA Basic n'est pas mort ??? :P
Ton message m'a renvoyé dans ma période "ordi 24h/24" avec le magazine le plus génial (une épaisseur et un nombre de page incroyable pour le prix 8O )

Je remercie d'ailleurs Fred pour le pliage de procédure enfin dispo sous l'IDE de PureBasic : un clin d'oeil à mon éditeur favori de l'époque (GFABasic) qui interdisait de quitter une ligne avant que la syntaxe ne soit juste :twisted:

Définition : un GFA Punch est un programme en GFA Basic tenant en 20 lignes maximum et ayant un intérêt maximum (scrolling, jeux, player, etc.)

On devrait avoir une rubrique comme celle-ci dans le forum :roll:

Edit: pour les nostalgiques qui ont encore un ST(E) à la maison ou un émulateur sur un bord de disque-dur : http://stmagazine.org/

Publié : dim. 24/août/2008 4:04
par Ollivier
Ben alors, petit sujet... As-tu fini de te « plancker » un Max ?

>> Impossible n'est pas français !

Publié : dim. 24/août/2008 4:49
par Ar-S
Golfy a écrit : Définition : un GFA Punch est un programme en GFA Basic tenant en 20 lignes maximum et ayant un intérêt maximum (scrolling, jeux, player, etc.)

On devrait avoir une rubrique comme celle-ci dans le forum :roll:

Edit: pour les nostalgiques qui ont encore un ST(E) à la maison ou un émulateur sur un bord de disque-dur : http://stmagazine.org/
Pure Punch, ça le ferait bien effectivement :P

Publié : dim. 24/août/2008 8:36
par Backup
cette ete au camping du festival de country music, un tres bon guitariste m'a epaté !

il etait capable de calculer de tete, le jour de naissance de n'importe qui !!
8O

il a expliqué sont system, mais va falloir que je lui redemande plus de details :lol:

c'est un system a base 7 qu'il remplace par des lettres , c'est tres rapide, et tres tres efficace , il a fait la démonstration sur plusieurs personnes présente, et ça tombais juste a chaque fois ...

ce genre d'algo se coderai en a peine une 10 aine de lignes, a mon avis ..
je vais essayer de le contacter :D

Publié : dim. 24/août/2008 10:49
par Frenchy Pilou
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 8O
Il doit y avoir un truc évident dans le calandrier qui nous échappe :roll:

Publié : dim. 24/août/2008 11:13
par Backup
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 8O
Il doit y avoir un truc évident dans le calandrier qui nous échappe :roll:


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 :)

Publié : dim. 24/août/2008 11:20
par djes
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?

Publié : mer. 28/janv./2009 10:17
par Golfy
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 ? :roll:

Publié : mer. 28/janv./2009 11:58
par GeBonet
Lna a écrit :J'avais concervé un programme similaire dans ma calculatrice, pour trouver le jour de la semaine. 8)
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. 8O
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 :lol: :lol:
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 :wink:
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru