PureBasic

Code : Tout sélectionner

Expression is too complex (Out of CPU registers). Please split it.

Code : Tout sélectionner

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

Macro Bissex(x): Equ((x % 4), 0) & ((1 - Equ((x % 100), 0) ) | Equ(((x >> 2) % 100), 0) ): EndMacro
; Ici on a une autre macro ()
Macro JoursDansUnMois(x, y): (30 + ((x & 1) ! (x / 8) ) ) - (Equ(x, 2) * (2 - y) ): EndMacro
;
Procedure.L JourParAn(Annee)
    Protected JPA.L
    JPA = 0
    For i = 1900 To Annee - 1       
        Debug "JPA = " + Str(JPA)
        ZERO = JPA
        Debug "365 + Bissex(i) = " + Str(365 + Bissex(i) )
        JPA + (365 + Bissex(i) )       
        Debug Str(ZERO) + " + " + Str(365 + Bissex(i) ) + " = " + Str(JPA)
    Next
    ProcedureReturn JPA
EndProcedure

JourParAn(1901)

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$

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

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$