Tout est dans le titre
ATTENTION la librairie Calendar.dll fonctionne qu'avec une version 32bits de PureBasic
Je rencontre a nouveau des petits soucis avec AVAST
et la décompression d'une librairie avec PB 5.20LTS sous Windows XP SP3 (x86)
la solution a été de déclarer "calendar.dll" en exclusion globale
Si la version source n'arrive pas à décompresser l'archive : créer un exécutable
Sinon voilà le lien pour la librairie : http://mikhajduk.houa.org/EN/index.php?f=Links
"Menu"
- "Projects"
- "Calendar Function Library"
Sur le site ce trouve le source FASM de la librairie, Alors j'avais essayé
de la faire tourner sous PB en mode procédure assembleur, pour avoir le cross plateforme.
mais je n'ai pas réussi a l'intégrer dans ce code...car je suis un débutant en langage assembleur.
Cordialement
Ps: Remerciement à "MikoÅ‚aj Hajduk" pour sa librairie de 10 millions d'années
Code : Tout sélectionner
;####################################################################################
'ATTENTION la librairie Calendar.dll fonctionne qu'avec une version 32bits de PureBasic
; Calculatrice de Jours - kernadec - 10-2013 Version 2014.1.6 avec années avant J.C.
; PB 5.00 - 5.20LTS - Windows XP (x86) & Seven 32
;####################################################################################
Enumeration
#window
EndEnumeration
Enumeration
#font0
#font1
#font2
EndEnumeration
Enumeration
#gadget11
#gadget12
#gadget13
#gadget14
#gadget15
#gadget16
#gadget17
#gadget18
#gadget19
#gadget20
#gadget21
#gadget23
#gadget22
#gadget24
#gadget26
#gadget29
#gadget27
#gadget30
#gadget31
#gadget33
#gadget25
#gadget32
#gadget34
#gadget28
#gadget35
#gadget36
#gadget37
#gadget38
EndEnumeration
Structure calcul
njour.l
n1jour.l
njour_or.l
jour_mois$
Nbjour2GJ.l
Nbjour2date$
greg2jul$
jul2greg$
EndStructure
Global Dim result.calcul(1)
Global Dim Jours.s(6)
Global Dim mois.s(12)
Global Dim saint.s(366)
Global Dim semaine(53,1)
Global Dim Bissextile(1)
Global YMD_DLL, Gregorian.l, LeapYearFlag.l,article$, Y.l, M.l, D.l, Yg.l, Mg.l, Dg.l, Yj.l, Mj.l, Dj.l, n.l
gregorian=1
;path$ = "C:\PureBasic\"
path$ = GetCurrentDirectory()
YMD_DLL=OpenLibrary(#PB_Any, path$+"calendar.dll")
If YMD_DLL = #False ; test librairie Calendar.dll
Resultat = MessageRequester("ATTENTION","La Librairie CALENDAR.DLL est Absente!"+Chr(10)+"Voulez Vous l'Importer depuis l'Archive ?",#PB_MessageRequester_YesNo)
If Resultat = 6
Declare ExpandBinaryfile(fichier.s)
CatchImage(0,?calendar_dll_Start)
ExpandBinaryfile(path$+"Calendar.dll")
info$ + "La librairie ** Calendar.dll ** a été Décompactée "+Chr(10)+" dans le repetoire " +path$
YMD_DLL=OpenLibrary(#PB_Any, path$+"calendar.dll")
Else
info$ + "CALENDAR.DLL est Absente! le Programme est Terminé"
MessageRequester("Information",info$,#PB_MessageRequester_Ok)
End
EndIf
EndIf
Restore Jour
For i=0 To 6
Read.s jours.s(i)
Next i
Restore mois
For i=1 To 12
Read.s mois.s(i)
Next i
Restore fetes
For i=1 To 366
Read.s saint.s(i)
Next i
Macro Fete(n)
If Left(saint(n),1)="A" Or Left(saint(n),1)="E" Or Left(saint(n),1)="I" Or Left(saint(n),1)="O" Or Left(saint(n),1)="U" Or Left(saint(n),1)="I" Or Left(saint(n),1)="Y" Or Left(saint(n),1)="H"
If Left(saint(n),1)=" "
article$ = ""
Else
article$ = " Fête d' "
EndIf
Else
If Left(saint(n),1)=" "
article$ = ""
Else
article$ = " Fête de "
EndIf
EndIf
EndMacro
Macro Calculs_Fevrier(a,b,c,dat)
If GetGadgetState(b) = 2 And GetGadgetState(a) = 31 ;no exist
If Bissextile(dat) = 0 : SetGadgetText(a, "28") : SetGadgetState(a,28)
Else : Bissextile(dat) = 1 : SetGadgetText(a, "29") : SetGadgetState(a,29) : EndIf : EndIf
If GetGadgetState(b) = 2 And GetGadgetState(a) = 30 ;no exist
If Bissextile(dat) = 0 : SetGadgetText(a, "28") : SetGadgetState(a,28)
Else : Bissextile(dat) = 1 : SetGadgetText(a, "29") : SetGadgetState(a,29) : EndIf : EndIf
If GetGadgetState(b) = 2 And GetGadgetState(a) = 29
If Bissextile(dat) = 0 : SetGadgetText(a, "28") : SetGadgetState(a,28)
Else : Bissextile(dat) = 1 : SetGadgetText(a, "29") : SetGadgetState(a,29) : EndIf
EndIf
EndMacro
Procedure Affiche_resultats( dat, g)
;Debug "Nombre Ordinal du Jour de l'année = "+Str(result(dat)\njour_or)
;Debug "Jour et Mois de l'année à partir d'un nombre ordinal = "+result(dat)\jour_mois$
;Debug "Nombre de Jours = "+Str(result(dat)\Nbjour2GJ)
;Debug "Reconversion nb Jour en Date = "+result(dat)\Nbjour2date$
;Debug "Conversion de Date Gregorian en Julien = "+result(dat)\greg2jul$
;Debug "Conversion de Date Julian en Gregorian = "+result(dat)\jul2greg$
;Debug "Nombre de Jours entre date= "+Str(result(1)\Nbjour2GJ-result(0)\Nbjour2GJ)
If dat = 0 ; affiche le jour
If (GetGadgetState(#gadget11) =>1 And GetGadgetState(#gadget11) <= 31) And (GetGadgetState(#gadget12) =>1 And GetGadgetState(#gadget12) <= 12) ;test wheel inc / dec trop rapide
; Debug "Le "+Str(GetGadgetState(#gadget11))+"/"+Str(GetGadgetState(#gadget12))+"/"+Str(GetGadgetState(#gadget13))+" est un "+Jours(result(dat)\njour)
If GetGadgetState(#gadget12) = 4 Or GetGadgetState(#gadget12) = 6 Or GetGadgetState(#gadget12) = 9 Or GetGadgetState(#gadget12) = 11
If GetGadgetState(#gadget11) = 31 ; test les mois de 30 jours
Else
SetGadgetText(#gadget26, Jours(result(dat)\njour))
EndIf
Else
SetGadgetText(#gadget26, Jours(result(dat)\njour))
EndIf
EndIf
Else ; affiche le jour
If (GetGadgetState(#gadget14) =>1 And GetGadgetState(#gadget14) <= 31) And (GetGadgetState(#gadget15) =>1 And GetGadgetState(#gadget15) <= 12) ;test wheel inc / dec trop rapide
; Debug "Le "+Str(GetGadgetState(#gadget14))+"/"+Str(GetGadgetState(#gadget15))+"/"+Str(GetGadgetState(#gadget16))+" est un "+Jours(result(dat)\njour)
If GetGadgetState(#gadget15) = 4 Or GetGadgetState(#gadget15) = 6 Or GetGadgetState(#gadget15) = 9 Or GetGadgetState(#gadget15) = 11
If GetGadgetState(#gadget14) = 31 ; test les mois de 30 jours
Else
SetGadgetText(#gadget29, Jours(result(dat)\njour))
EndIf
Else
SetGadgetText(#gadget29, Jours(result(dat)\njour))
EndIf
EndIf
EndIf
;
If Bissextile(dat) = 1 ; affiche prénoms des fêtes
If result(dat)\njour_or = 60
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(366)) ; 29 février saint auguste a été changé de place dans le tableau de (60) vers (366)
ElseIf result(dat)\njour_or > 60
fete(result(dat)\njour_or - 1)
SetGadgetText(g, article$ + saint(result(dat)\njour_or - 1))
Else
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
EndIf
If Bissextile(dat) = 0
If GetGadgetState(#gadget12) = 2
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
If GetGadgetState(#gadget12) = 4 Or GetGadgetState(#gadget12) = 6 Or GetGadgetState(#gadget12) = 9 Or GetGadgetState(#gadget12) = 11
If GetGadgetState(#gadget11) = 31 ; test les mois de 30 jours
Else
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
EndIf
If GetGadgetState(#gadget12) = 1 Or GetGadgetState(#gadget12) = 3 Or GetGadgetState(#gadget12) = 5 Or GetGadgetState(#gadget12) = 7 Or GetGadgetState(#gadget12) = 8 Or GetGadgetState(#gadget12) = 10 Or GetGadgetState(#gadget12) = 12
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
EndIf
If Bissextile(dat) = 0
If GetGadgetState(#gadget15) = 2
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
If GetGadgetState(#gadget15) = 4 Or GetGadgetState(#gadget15) = 6 Or GetGadgetState(#gadget15) = 9 Or GetGadgetState(#gadget15) = 11
If GetGadgetState(#gadget14) = 31 ; test les mois de 30 jours
Else
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
EndIf
If GetGadgetState(#gadget15) = 1 Or GetGadgetState(#gadget15) = 3 Or GetGadgetState(#gadget15) = 5 Or GetGadgetState(#gadget15) = 7 Or GetGadgetState(#gadget15) = 8 Or GetGadgetState(#gadget15) = 10 Or GetGadgetState(#gadget15) = 12
fete(result(dat)\njour_or)
SetGadgetText(g, article$ + saint(result(dat)\njour_or))
EndIf
EndIf
;
If dat = 0 ; affiche en date julien 1
SetGadgetText(#gadget17,result(dat)\greg2jul$)
SetGadgetText(#gadget32,mois(Val(StringField(result(dat)\jour_mois$, 2,"/")))) ; affiche mois
; calcul du numéro de la semaine ISO à partir d'un nombre ordinal
If result(dat)\n1jour = 0
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or-2)/7)+1))
EndIf
If result(dat)\n1jour = 1
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or-1)/7)+1))
EndIf
If result(dat)\n1jour = 2
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or)/7)+1))
EndIf
If result(dat)\n1jour = 3
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or-6)/7)+1))
EndIf
If result(dat)\n1jour = 4
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or-5)/7)+2))
EndIf
If result(dat)\n1jour = 5
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or-4)/7)+2))
EndIf
If result(dat)\n1jour = 6
SetGadgetText(#gadget33,"Semaine "+Str(Int((result(dat)\njour_or-3)/7)+1))
EndIf
SetGadgetText(#gadget34, "Nombre Ordinal "+Str(result(dat)\njour_or)) ; affiche Jour Ordinal
EndIf
If dat = 1 ; affiche en date julien 2
SetGadgetText(#gadget18,result(dat)\greg2jul$)
SetGadgetText(#gadget36,mois(Val(StringField(result(dat)\jour_mois$, 2,"/")))) ; affiche mois
; calcul du numéro de la semaine ISO à partir d'un nombre ordinal
If result(dat)\n1jour = 0
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or-2)/7)+1))
EndIf
If result(dat)\n1jour = 1
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or-1)/7)+1))
EndIf
If result(dat)\n1jour = 2
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or)/7)+1))
EndIf
If result(dat)\n1jour = 3
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or-6)/7)+1))
EndIf
If result(dat)\n1jour = 4
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or-5)/7)+2))
EndIf
If result(dat)\n1jour = 5
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or-4)/7)+2))
EndIf
If result(dat)\n1jour = 6
SetGadgetText(#gadget37,"Semaine "+Str(Int((result(dat)\njour_or-3)/7)+1))
EndIf
SetGadgetText(#gadget38, "Nombre Ordinal "+Str(result(dat)\njour_or)) ; affiche Jour Ordinal
EndIf
If GetGadgetState(#gadget13) = 0 ;pas d'année zéro
result(0)\Nbjour2GJ = 0
SetGadgetText(#gadget17,"0")
SetGadgetText(#gadget20," Pas de calculs - Année zéro inexistante")
Else
result(0)\Nbjour2GJ = CallFunction(YMD_DLL, "DateToAbsDayNum",GetGadgetState(#gadget13),GetGadgetState(#gadget12),GetGadgetState(#gadget11), Gregorian)
EndIf
If GetGadgetState(#gadget16) = 0 ;pas d'année zéro
result(1)\Nbjour2GJ = 0
SetGadgetText(#gadget18,"0")
SetGadgetText(#gadget20," Pas de calculs - Année zéro inexistante")
Else
result(1)\Nbjour2GJ = CallFunction(YMD_DLL, "DateToAbsDayNum",GetGadgetState(#gadget16),GetGadgetState(#gadget15),GetGadgetState(#gadget14), Gregorian)
EndIf
If result(0)\Nbjour2GJ <> 0 And result(1)\Nbjour2GJ <> 0 ; affiche différence en jours
SetGadgetText(#gadget20,Str(result(1)\Nbjour2GJ)+" - "+Str(result(0)\Nbjour2GJ)+" = "+Str(result(1)\Nbjour2GJ-result(0)\Nbjour2GJ)+" Jours" )
EndIf
EndProcedure
Procedure calendar(Y, M, D, dat)
If M > 12 : M = 1 ; test avant calcul en cas d' erreur mois du spingadget avec wheel and fleche actif
ElseIf M < 1 : M = 12
EndIf
If D <= 0 : D = 1 : EndIf ; test avant calcul en cas d' erreur jour du spingadget avec wheel and fleche actif
;Cette fonction calcule le jour de la semaine pour la date donnée
result(dat)\njour = CallFunction(YMD_DLL, "DayOfWeek",Y, M, D, Gregorian)
;Cette fonction calcule le nom du jour premier janvier de l'année
result(dat)\n1jour = CallFunction(YMD_DLL, "DayOfWeek",Y, 1, 1, Gregorian)
;Cette fonction calcule le nombre ordinal du jour dans l'année
result(dat)\njour_or = CallFunction(YMD_DLL, "MDToDayNum",M, D, Bissextile(dat))
n = result(dat)\njour_or
;Cette fonction calcule à partir d'un nombre ordinal le jour dans l'année.
Result3 = CallFunction(YMD_DLL, "DayNumToMD",n, Bissextile(dat), @M, @D)
result(dat)\jour_mois$=Str(D)+"/"+Str(M)
;Cette fonction convertit la date en nombre absolu de jour (pour le calendrier choisi)
result(dat)\Nbjour2GJ = CallFunction(YMD_DLL, "DateToAbsDayNum",Y, M, D, Gregorian)
n = result(dat)\Nbjour2GJ
;Cette fonction convertit le nombre absolu de jour "N(epsilon) {1,2,...2^32}" à la date appropriée (pour le calendrier choisi).
Result5 = CallFunction(YMD_DLL, "AbsDayNumToDate",n, Gregorian, @Y, @M, @D)
result(dat)\Nbjour2date$ = Str(D)+"/"+Str(M)+"/"+Str(Y)
Yg=Y:Mg=M:Dg=D
;Cette fonction convertit la date grégorienne à la date appropriée Julian
Result6 = CallFunction(YMD_DLL, "GregorianToJulian",Yg, Mg, Dg, @Yj, @Mj, @Dj)
result(dat)\greg2jul$ = Str(Dj)+"/"+Str(Mj)+"/"+Str(Yj)
;Cette fonction convertit la date julienne à la date appropriée grégorien.
Result7 = CallFunction(YMD_DLL, "JulianToGregorian",Yj, Mj, Dj, @Yg, @Mg, @Dg)
result(dat)\jul2greg$ = Str(Dg)+"/"+Str(Mg)+"/"+Str(Yg)
EndProcedure
Procedure Calculs_Jour(a,b,c,co,dat)
Bissextile(dat) = CallFunction(YMD_DLL, "IsLeapYear",GetGadgetState(c), Gregorian)
For i = 0 To 5
SetGadgetColor(#gadget11 + i, #PB_Gadget_FrontColor, RGB(0,0,0))
Next i
SetGadgetColor(a, #PB_Gadget_FrontColor , co) ; texte spingadget rouge actif
If GetGadgetState(b) = 2 And Bissextile(dat) = 0: Jm = 28
ElseIf GetGadgetState(b) = 2 And Bissextile(dat) = 1 : Jm = 29
ElseIf GetGadgetState(b) = 4 Or GetGadgetState(b) = 6 Or GetGadgetState(b) = 9 Or GetGadgetState(b) = 11 : Jm = 30
ElseIf GetGadgetState(b) = 1 Or GetGadgetState(b) = 3 Or GetGadgetState(b) = 5 Or GetGadgetState(b) = 7 Or GetGadgetState(b) = 8 Or GetGadgetState(b) = 10 Or GetGadgetState(b) = 12 : Jm = 31
EndIf
If GetGadgetState(a) > Jm :SetGadgetState(a,1) ;test roue +
EndIf
If GetGadgetState(a) < 1 :SetGadgetState(a,Jm) ;test roue -
Else
If Len(Str(GetGadgetState(a))) < 2 : SetGadgetText(a,"0"+Str(GetGadgetState(a))) ;affichage du 0
Else
SetGadgetText(a,Str(GetGadgetState(a)))
EndIf
EndIf
Calculs_Fevrier(a,b,c,dat) ;second test wheel inc / dec trop rapide
If GetGadgetState(#gadget13) <> 0 And GetGadgetState(#gadget16) <> 0 ;pas d'an zero
If GetGadgetState(a) =>1 And GetGadgetState(a) <= 31 ;test wheel inc / dec trop rapide
calendar(GetGadgetState(c), GetGadgetState(b), GetGadgetState(a),dat)
EndIf
EndIf
EndProcedure
Procedure Calculs_Mois(a,b,c,co,dat)
Bissextile(dat) = CallFunction(YMD_DLL, "IsLeapYear",GetGadgetState(c), Gregorian)
For i = 0 To 5
SetGadgetColor(#gadget11 + i, #PB_Gadget_FrontColor, RGB(0,0,0))
Next i
SetGadgetColor(b, #PB_Gadget_FrontColor , co) ; texte spingadget rouge actif
If GetGadgetState(b) = 2 And Bissextile(dat) = 0
If GetGadgetState(a) > 28 :SetGadgetText(a, "28") : SetGadgetState(a,28)
EndIf
ElseIf GetGadgetState(b) = 2 And Bissextile(dat) = 1
If GetGadgetState(a) > 29 :SetGadgetText(a, "29") : SetGadgetState(a,29)
EndIf
ElseIf GetGadgetState(b) = 4 Or GetGadgetState(b) = 6 Or GetGadgetState(b)=9 Or GetGadgetState(b) = 11
If GetGadgetState(a) = 31 :SetGadgetText(a, "30") : SetGadgetState(a,30)
EndIf
EndIf
If GetGadgetState(b) > 12 :SetGadgetState(b,1): SetGadgetText(b,"01") ;test roue +
ElseIf GetGadgetState(b) < 1 :SetGadgetState(b,12): SetGadgetText(b,"12") ;test roue -
Else
If Len(Str(GetGadgetState(b))) < 2 : SetGadgetText(b,"0"+Str(GetGadgetState(b))) ;affichage du 0
Else
SetGadgetText(b,Str(GetGadgetState(b)))
EndIf
EndIf
Calculs_Fevrier(a,b,c,dat) ;second test wheel inc / dec trop rapide
If GetGadgetState(#gadget13) <> 0 And GetGadgetState(#gadget16) <> 0 ;pas d'an zero
If GetGadgetState(b) =>1 And GetGadgetState(b) <= 12 ;test wheel inc / dec trop rapide
calendar(GetGadgetState(c), GetGadgetState(b), GetGadgetState(a),dat)
EndIf
EndIf
EndProcedure
Procedure Calculs_Annee(a,b,c,co,dat)
For i = 0 To 5
SetGadgetColor(#gadget11 + i , #PB_Gadget_FrontColor, RGB(0,0,0))
Next i
SetGadgetColor(c, #PB_Gadget_FrontColor , co) ; texte spingadget rouge actif
SetGadgetText (c,Str(GetGadgetState(c)))
;Cette fonction détermine si l'année donnée est bissextile dans le calendrier choisi
Bissextile(dat) = CallFunction(YMD_DLL, "IsLeapYear",GetGadgetState(c), Gregorian)
If GetGadgetState(b) = 2 And Bissextile(dat) = 0
If GetGadgetState(a) > 28 :SetGadgetText(a, "28") : SetGadgetState(a,28)
EndIf
ElseIf GetGadgetState(b) = 2 And Bissextile(dat) = 1
If GetGadgetState(a) > 29 :SetGadgetText(a, "29") : SetGadgetState(a,29)
EndIf
ElseIf GetGadgetState(b) = 4 Or GetGadgetState(b) = 6 Or GetGadgetState(b)=9 Or GetGadgetState(b) = 11
If GetGadgetState(a) = 31 :SetGadgetText(a, "30") : SetGadgetState(a,30)
EndIf
EndIf
If GetGadgetState(b) > 12 :SetGadgetState(b,1) ;test roue +
ElseIf GetGadgetState(b) < 1 :SetGadgetState(b,12) ;test roue -
Else
If Len(Str(GetGadgetState(b))) < 2 : SetGadgetText(b,"0"+Str(GetGadgetState(b))) ;affichage du 0
Else
SetGadgetText(b,Str(GetGadgetState(b)))
EndIf
EndIf
Calculs_Fevrier(a,b,c,dat) ;second test wheel inc / dec trop rapide
If GetGadgetState(#gadget13) <> 0 And GetGadgetState(#gadget16) <> 0 ;pas d'an zero
calendar(GetGadgetState(c), GetGadgetState(b), GetGadgetState(a),dat)
EndIf
EndProcedure
If OpenWindow(#window, 0, 0, 400, 290, Space(24)+"CALCULATRICE DE JOURS", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget)
colorwin=RGB(230,230,230)
SetWindowColor(#window,colorwin)
Police$ = "arial"
LoadFont (#font0, Police$ ,16,#PB_Font_Bold)
LoadFont (#font1, Police$ ,12,#PB_Font_Bold)
LoadFont (#font2, Police$ ,10,#PB_Font_Bold)
SetGadgetFont (#PB_Default, FontID(#font0))
SpinGadget (#gadget11, 20, 65, 58, 28, 0, 32,#PB_Spin_Numeric)
SetGadgetState (#gadget11, 6) : SetGadgetText(#gadget11, Str(Day(Date()))) ; définit la valeur initiale du jour
SpinGadget (#gadget12, 84, 65, 58, 28, 0, 13,#PB_Spin_Numeric)
SetGadgetState (#gadget12, 10) : SetGadgetText(#gadget12, Str(Month(Date()))) ; définit la valeur initiale du mois
SpinGadget (#gadget13, 148, 65, 88, 28, -9999, 9999,#PB_Spin_Numeric)
SetGadgetState (#gadget13, 2013) : SetGadgetText(#gadget13,Str(Year(Date()))) ; définit la valeur initiale de l'année
SpinGadget (#gadget14, 20, 180, 58, 28, 0, 32,#PB_Spin_Numeric)
SetGadgetState (#gadget14, 6) : SetGadgetText(#gadget14, Str(Day(Date()))) ; définit la valeur initiale du jour
SpinGadget (#gadget15, 84, 180, 58, 28, 0, 13,#PB_Spin_Numeric)
SetGadgetState (#gadget15, 10) : SetGadgetText(#gadget15, Str(Month(Date()))) ; définit la valeur initiale du mois
SpinGadget (#gadget16, 148, 180, 88, 28, -9999, 9999,#PB_Spin_Numeric)
SetGadgetState (#gadget16, 2013) : SetGadgetText(#gadget16,Str(Year(Date()))) ; définit la valeur initiale de l'année
SetActiveGadget(#gadget11)
SetGadgetColor (#gadget11, #PB_Gadget_FrontColor , #Red)
;Texte -------------------------------------------------------------
TextGadget (#gadget17, 256, 65, 125, 28, "",#PB_Text_Border|#PB_Text_Right) ; date initiale julian
SetGadgetColor (#gadget17, #PB_Gadget_BackColor,RGB(234,234,234))
TextGadget (#gadget18, 256, 180, 125, 28, "",#PB_Text_Border|#PB_Text_Right) ; date Finale julian
SetGadgetColor (#gadget18, #PB_Gadget_BackColor, RGB(234,234,234))
SetGadgetFont (#PB_Default, FontID(#font1))
ContainerGadget(#gadget19, 18, 240, 365, 30, #PB_Container_Raised )
SetGadgetColor (#gadget19, #PB_Gadget_BackColor,RGB(200,240,140))
TextGadget (#gadget20, 15, 3, 346, 28, "0") ; nombre total de jours
SetGadgetColor (#gadget20, #PB_Gadget_BackColor,RGB(200,240,140))
CloseGadgetList()
ContainerGadget(#gadget21, 18, 10, 365, 32, #PB_Container_Raised )
SetGadgetColor (#gadget21, #PB_Gadget_BackColor,RGB(200,235,255))
TextGadget (#gadget22, 5, 4, 440, 28, "Date Initiale en Gregorien */* Date en Julien") ;titre 1
SetGadgetColor (#gadget22, #PB_Gadget_BackColor,RGB(200,235,255))
CloseGadgetList()
ContainerGadget(#gadget23, 18, 125, 365, 32,#PB_Container_Raised )
SetGadgetColor (#gadget23, #PB_Gadget_BackColor,RGB(250,225,160))
TextGadget (#gadget24, 5, 4, 440, 28, "Date Finale en Gregorien */* Date en Julien") ;titre 2
SetGadgetColor (#gadget24, #PB_Gadget_BackColor,RGB(250,225,190))
CloseGadgetList()
SetGadgetFont (#PB_Default, FontID(#font2))
ContainerGadget(#gadget25, 19, 45, 362, 16 )
SetGadgetColor (#gadget25, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget26, 2, 0, 75, 16, "") ; affiche jour 1
SetGadgetColor (#gadget26, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget27, 72, 0, 292, 16, "" ) ; affiche fête 1
SetGadgetColor (#gadget27, #PB_Gadget_BackColor,colorwin)
CloseGadgetList()
ContainerGadget(#gadget28, 19, 160, 362, 16 )
SetGadgetColor (#gadget28, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget29, 2, 0, 75, 16, "") ; affiche jour 2
SetGadgetColor (#gadget29, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget30, 72, 0, 292, 16, "" ) ; affiche fête 2
SetGadgetColor (#gadget30, #PB_Gadget_BackColor,colorwin)
CloseGadgetList()
ContainerGadget(#gadget31, 19, 97, 362, 16 )
SetGadgetColor (#gadget31, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget32, 4, 0, 75, 16, "" ) ; affiche mois 1
SetGadgetColor (#gadget32, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget33, 80, 0, 80, 16, "" ) ; affiche numéro semaine 1
SetGadgetColor (#gadget33, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget34, 165, 0, 130, 16, "" ) ; affiche nombre ordinal 1
SetGadgetColor (#gadget34, #PB_Gadget_BackColor,colorwin)
CloseGadgetList()
ContainerGadget(#gadget35, 19, 212, 362, 16 )
SetGadgetColor (#gadget35, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget36, 4, 0, 75, 16, "" ) ; affiche mois 2
SetGadgetColor (#gadget36, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget37, 80, 0, 80, 16, "" ) ; affiche numéro semaine 2
SetGadgetColor (#gadget37, #PB_Gadget_BackColor,colorwin)
TextGadget (#gadget38, 165, 0, 130, 16, "" ) ; affiche nombre ordinal 2
SetGadgetColor (#gadget38, #PB_Gadget_BackColor,colorwin)
CloseGadgetList()
SetGadgetFont (#PB_Default, #PB_Default)
; Spingadget affiche date par défaut
Calculs_Jour(#gadget14,#gadget15,#gadget16,#Red,1) ; date 2
Affiche_resultats(1,#gadget30)
Calculs_Jour(#gadget11,#gadget12,#gadget13,#Red,0) ; date 1
Affiche_resultats(0,#gadget27)
StickyWindow(#window, 1)
Repeat
Event = WaitWindowEvent() ;SpinGadget wheel mouse
Select Event
Case #PB_Event_Gadget
Select EventGadget()
Case #gadget11
Calculs_Jour(#gadget11,#gadget12,#gadget13,#Red,0)
Affiche_resultats(0,#gadget27)
Case #gadget12
Calculs_Mois(#gadget11,#gadget12,#gadget13,#Red,0)
Affiche_resultats(0,#gadget27)
Case #gadget13
Calculs_Annee(#gadget11,#gadget12,#gadget13,#Red,0)
Affiche_resultats(0,#gadget27)
Case #gadget14
Calculs_Jour(#gadget14,#gadget15,#gadget16,#Red,1)
Affiche_resultats(1,#gadget30)
Case #gadget15
Calculs_Mois(#gadget14,#gadget15,#gadget16,#Red,1)
Affiche_resultats(1,#gadget30)
Case #gadget16
Calculs_Annee(#gadget14,#gadget15,#gadget16,#Red,1)
Affiche_resultats(1,#gadget30)
EndSelect
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
CloseLibrary(YMD_DLL)
End
DataSection
jour:
Data.s "Dimanche","Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi"
mois:
Data.s "Janvier","Février","Mars","Avril","Mai","Juin","Juillet","Août","Septembre","Octobre","Novembre","Décembre"
fetes:
Data.s " Fête du Jour de l'An","Basile","Geneviève","Odilon","Edouard","Mélaine","Raymond","Lucien","Alix","Guillaume"
Data.s "Pauline","Tatiana","Yvette","Nina","Rémi","Marcel","Roseline","Prisca","Marius","Sébastien"
Data.s "Agnès","Vincent","Banard","François de Sales"," Conversion de Paul","Paule","Angèle","Thomas d'Aquin"
Data.s "Gildas","Martine","Marcelle","Ella","la Présentation","Blaise","Véronique","Agathe","Gaston","Eugènie"
Data.s "Jacqueline","Apolline","Arnaud","Notre Dame de Lourdes","Félix","Béatrice","Valentin","Claude"
Data.s "Julienne","Alexis","Bernadette","Gabin","Aimée","Damien","Isabelle","Lazare","Modeste","Roméo"
Data.s "Nestor","Honorine","Romain","Aubin","Charles le Bon","Guénolé","Casimir","Olive","Colette"
Data.s "Félicité","Jean de Dieu","Françoise","Vivien","Rosine","Justine","Rodrigue","Mathilde","Louise"
Data.s "Bénédicte","Patrice","Cyrille","Joseph","du Printemps / Rameaux","Clémence","Léa","Victorien","Catherine"
Data.s "l' Annonciation","Larissa","Habib","Gontran","Gwladys","Amédée","Benjamin","Hugues","Sandrine","Richard"
Data.s "Isidore","Irène","Marcellin","Jean-Baptiste de la Salle","Julie","Gautier","Fulbert","Stanislas"
Data.s "Jules","Ida","Maxime","Paterne","Benoît-Joseph","Anicet","Parfait","Emma","Odette","Anselme"
Data.s "Alexandre","Georges","Fidèle","Marc","Alida","Zita","Valérie","Catherine de Sienne","Robert"
Data.s " Fête du travail","Boris","Philippe / Jacques","Sylvain","Judith","Prudence","Gisèle","l' Armistice de 1945"
Data.s "Pacôme","Solange","Estelle","Achille","Rolande","Matthias","Denise","Honoré","Pascal","Eric","Yves"
Data.s "Bernardin","Constantin","Emile","Didier","Donatien","Sophie","Bérenger","Augustin","Germain","Aymar"
Data.s "Ferdinand","la Visitation de la Sainte Vierge","Justin","Blandine","Kévin","Clotilde","Igor","Norbert"
Data.s "Gilbert","Médard","Diane","Landry","Barnabé","Guy","Antoine de Padoue","Elisée","Germaine"
Data.s "Jean-François / Régis","Hervé","Léonce","Romuald","Silvère","l' Eté","Alban","Audrey","Jean-Baptiste"
Data.s "Prosper","Anthelme","Fernand","Irénée","Pierre / Paul","Martial","Thierry","Martinien","Thomas"
Data.s "Florent","Antoine","Mariette","Raoul","Thibault","Amandine","Ulrich","Benoît","Olivier","Henri / Joël"
Data.s " Fête Nationale","Donald","Notre Dame du Mont Carmel","Charlotte","Frédéric","Arsène","Marina"
Data.s "Victor","Marie-Madeleine","Brigitte","Christine","Jacques","Anne / Joachin","Nathalie","Samson"
Data.s "Marthe","Juliette","Ignace de Loyola","Alphonse","Julien / Eymard","Lydie","Jean-Marie Vianney","Abel"
Data.s "la Transfiguration","Gaétan","Dominique","Amour","Laurent","Claire","Clarisse","Hippolyte","Evrard"
Data.s "l' Assomption","Armel","Hyacinthe","Hélène","Jean-Eudes","Bernard","Christophe","Fabrice","Rose de Lima"
Data.s "Barthélémy","Louis","Natacha","Monique","Augustin","Sabine","Fiacre","Aristide","Gilles","Ingrid"
Data.s "Grégoire","Rosalie","Raïssa","Bertrand","Reine","la Nativité","Alain","Inès","Adelphe","Apollinaire"
Data.s "Aimé","la Croix Glorieuse","Roland","Edith","Renaud","Nadège","Emilie","Davy","Matthieu","Maurice"
Data.s "l' Automne","Thècle","Hermann","Côme / Damien","Vincent de Paul","Venceslas","Michel / Gabriel / Raphaël"
Data.s "Jérôme","Thérèse de l' Enfant Jésus","Léger","Gérard","François d'Assise","Fleur","Bruno"
Data.s "Serge","Pélagie","Denis","Ghislain","Firmin","Wilfried","Géraud","Juste","Thérèse d'Avila","Edwige"
Data.s "Baudoin","Luc","René","Adeline","Céline","Elodie","Jean de Capistran","Florentin","Crépin","Dimitri"
Data.s "Emeline","Jude","Narcisse","Bienvenu","Quentin","la Toussaint"," Fête des Défunts","Hubert","Charles","Sylvie"
Data.s "Bertille","Carine","Geoffroy","Théodore","Léon","l' Armistice de 1918","Christian","Brice","Sidoine"
Data.s "Albert","Marguerite","Elisabeth","Aude","Tanguy","Edmond","la Présence de Marie","Cécile","Clément"
Data.s "Flora","Catherine","Delphine","Sévrin","Jacques de la Marche","Saturnin","André","Florence","Viviane"
Data.s "François-Xavier","Barbara","Gérald","Nicolas","Ambroise","l' Immaculée Conception","Pierre Fourier"
Data.s "Romaric","Daniel","Jeanne-Françoise de Chantal","Lucie","Odile","Ninon","Alice","Gaël","Gatien"
Data.s "Urbain","Théophile","l' Hiver","Françoise-Xavière","Armand","Adèle","Noël","Etienne","Jean"," Fête des Innocents"
Data.s "David","Roger","Sylvestre","Auguste"
EndDataSection
;######################################################
;http://mikhajduk.houa.org/EN/Links.php
; (C) Mikołaj Hajduk, 16.06.2008.
;######################################################
Procedure ExpandBinaryfile(fichier.s)
If CreateFile(0,fichier)
Lg= ?calendar_dll_End-?calendar_dll_Start
WriteData(0,?calendar_dll_Start,Lg)
CloseFile(0)
EndIf
ProcedureReturn
EndProcedure
; IncludeBinary "Calendar.dll" [?Calendar_dll_Start , ?Calendar_dll_End]
;{ Size = 3584 bytes
DataSection
; PureBin2Data header
Data.l 3584
Data.b 0
; Data
Calendar_dll_Start:
Data.l $00805A4D,$00000001,$00100004,$0000FFFF,$00000140,$00000000,$00000040,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000080,$0EBA1F0E,$CD09B400,$4C01B821,$685421CD,$70207369,$72676F72,$63206D61,$6F6E6E61
Data.l $65622074,$6E757220,$206E6920,$20534F44,$65646F6D,$240A0D2E,$00000000,$00000000,$00004550,$0004014C,$485912B8,$00000000
Data.l $00000000,$210E00E0,$4301010B,$00000000,$00000000,$00000000,$00002000,$00000000,$00000000,$00400000,$00001000,$00000200
Data.l $00000001,$00000000,$00000004,$00000000,$00005000,$00000400,$0000984B,$00000002,$00001000,$00001000,$00010000,$00000000
Data.l $00000000,$00000010,$00003000,$000000F4,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00004000,$0000000E,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$7461642E,$00000061
Data.l $00000048,$00001000,$00000200,$00000400,$00000000,$00000000,$00000000,$C0000040,$646F632E,$00000065,$0000034A,$00002000
Data.l $00000400,$00000600,$00000000,$00000000,$00000000,$60000020,$6164652E,$00006174,$000000F4,$00003000,$00000200,$00000A00
Data.l $00000000,$00000000,$00000000,$40000040,$6C65722E,$0000636F,$0000000E,$00004000,$00000200,$00000C00,$00000000,$00000000
Data.l $00000000,$02000040,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$1E1F1C1F,$1F1F1E1F,$1F1E1F1E,$1E1F1D1F,$1F1F1E1F,$1F1E1F1E,$001F0000,$005A003B
Data.l $00970078,$00D400B5,$011100F3,$014E0130,$001F0000,$005B003C,$00980079,$00D500B6,$011200F4,$014F0131,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $B8E58955,$00000001,$000CC2C9,$9CE58955,$75FF5253,$1075FF14,$FF0C75FF,$22E80875,$85000001,$BB1174C0,$00000007,$C083D231
Data.l $F7D21105,$05EB92F3,$FFFFFFB8,$9D5B5AFF,$0010C2C9,$9CE58955,$45F75253,$FFFFFE0C,$8B2975FF,$C0850845,$03792274,$83D8F740
Data.l $74000C7D,$BBD2310F,$00000064,$D285F3F7,$D0890274,$0B72E8D1,$07EBE8D1,$FFFFFFB8,$0F06EBFF,$B60FC093,$9D5B5AC0,$0008C2C9
Data.l $9CE58955,$45F75253,$FFFFFE10,$833A75FF,$7201087D,$087D8334,$832E770C,$72010C7D,$105D8B28,$C15B1C8D,$558B02E3,$84B60F08
Data.l $400FFF13,$0C453900,$E3D10F77,$5384B70F,$00401016,$EB0C4503,$FFFFB805,$5B5AFFFF,$0CC2C99D,$E5895500,$5251539C,$FE0C45F7
Data.l $75FFFFFF,$087D8343,$B83D7201,$0000016D,$390C4503,$30770845,$8D0C5D8B,$E3C15B1C,$000CB903,$B70F0000,$10164B94,$55390040
Data.l $E2027708,$10458BF1,$4D8B0889,$8BD12908,$08891445,$05EBC031,$FFFFFFB8,$5B595AFF,$10C2C99D,$E5895500,$5251539C,$FE1445F7
Data.l $75FFFFFF,$1475FF79,$E80875FF,$FFFFFEE4,$74FFF883,$53C38969,$FF1075FF,$1DE80C75,$83FFFFFF,$5674FFF8,$83084D8B,$017F00F9
Data.l $A8C18141,$8300592B,$7400147D,$78C18303,$7500F983,$016C2D07,$34EB0000,$B8C38949,$0000016D,$E9C1E1F7,$01C80102,$147D83D8
Data.l $501D7400,$C889D231,$000019BB,$89F3F700,$C82958C1,$0102E9C1,$02C083C8,$C03102EB,$9D5B595A,$0010C2C9,$9CE58955,$83525153
Data.l $0F00087D,$0000EE84,$0C45F700,$FFFFFFFE,$00E1850F,$C9310000,$4808458B,$000C7D83,$F8836474,$8B1B7701,$03C7145D,$0000000C
Data.l $8B1EC083,$0389185D,$A6D3DFB9,$00ACE9FF,$E8830000,$BBD23102,$00023AB1,$048DF3F7,$80048D80,$9104E0C1,$8EAC3D92,$26720000
Data.l $2D64C183,$00008EAC,$008EAC3D,$83177200,$AC2D64C1,$3D00008E,$00008EAC,$C1830872,$8EAC2D64,$D2310000,$0005B5BB,$C1F3F700
Data.l $C10102E0,$6DFA8141,$72000001,$6DEA8125,$41000001,$016DFA81,$16720000,$016DEA81,$81410000,$00016DFA,$81077200,$00016DEA
Data.l $FF424100,$E8510C75,$FFFFFD98,$FF1875FF,$52501475,$FFFE2CE8,$0C7D83FF,$83037400,$E98178E9,$00592BA8,$7F00F983,$458B4901
Data.l $31088910,$B805EBC0,$FFFFFFFF,$9D5B595A,$0014C2C9,$6AE58955,$1075FF01,$FF0C75FF,$4EE80875,$85FFFFFE,$FF1374C0,$75FF1C75
Data.l $1475FF18,$E850006A,$FFFFFECC,$FFB805EB,$C9FFFFFF,$550018C2,$006AE589,$FF1075FF,$75FF0C75,$FE1BE808,$C085FFFF,$75FF1374
Data.l $1875FF1C,$6A1475FF,$99E85001,$EBFFFFFE,$FFFFB805,$C2C9FFFF,$00000018,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00003078,$00000001,$00000008,$00000008,$00003028
Data.l $00003048,$00003068,$000021D8,$00002145,$000020E5,$0000200C,$000022E4,$00002044,$00002317,$00002090,$00003085,$00003095
Data.l $000030A5,$000030B0,$000030BA,$000030CC,$000030D7,$000030E9,$00010000,$00030002,$00050004,$00070006,$656C6143,$7261646E
Data.l $6C6C642E,$73624100,$4E796144,$6F546D75,$65746144,$74614400,$416F5465,$61447362,$6D754E79,$79614400,$546D754E,$00444D6F
Data.l $4F796144,$65655766,$7247006B,$726F6765,$546E6169,$6C754A6F,$006E6169,$654C7349,$65597061,$4A007261,$61696C75,$476F546E
Data.l $6F676572,$6E616972,$54444D00,$7961446F,$006D754E,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00002000,$0000000E,$30D030C1,$0000311A,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Data.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
Calendar_dll_End:
EndDataSection ;}