Neue Antwort erstellen

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

Die letzte Antwort auf dieses Thema liegt mehr als 365 Tage zurück. Das Thema ist womöglich bereits veraltet. Bitte erstellen Sie ggf. ein neues Thema.

Informationen
Frage Bitte beantworten Sie die untenstehende Frage bzw. lösen Sie die untenstehende Aufgabe.
Nachricht
Internet-Adressen werden automatisch erkannt und umgewandelt.
Smiley-Code wird in Ihrer Nachricht automatisch als Smiley-Grafik dargestellt.
Sie können BBCodes zur Formatierung Ihrer Nachricht nutzen.

Vorherige Beiträge 12

  • Zum Ersten: Für alle Subscriptionskunden gibt es unter dem gewohnten Link jetzt die fertig Version (eben noch ohne Hilfe und angepasstem XProfed).

    Zum zweiten: In der Hilfe wird bei (fast) allen Funktionen und Befehlen angezeigt, seit welcher Version es diese gibt und bei welcher Version es wesentliche Änderungen gab. Oftmals wird in der Beschreibung auch auf Änderungen gegenüber früheren Version hingewiesen.
    Außerdem gibt es in der Hildfe den Punkt "Historie" (direkt hinter "Was ist neu ..."). Da kann man nachschauen, was in welcher Version hinzugekommen ist.

    Gruß
    Roland
  • Hallo Roland,
    wäre in der Hilfe auch eine Art
    Versions-History (mit den neuen Funktionen/Befehlen)
    möglich ?

    Hintergrund :
    Oftmals möchte man jemandem hier im Forum, oder auch in den anderen,
    mit Code helfen. Da stellte sich mir oft die Frage :
    Ist die Funktion/Befehl xy in Version 10, 11, x2, X3
    vorhanden ? Je nachdem, welche Version der Fragensteller
    hat, kommt man da schnell ins Schwitzen.
    Also mal grob gesagt :
    Eine Aufstellung, welche Befehle/Funktionen bei welcher
    Version hinzu gekommen sind. Das genügt schon ab der
    Version 10 oder 11. Frühere Versionen hat wohl kaum
    noch jemand in Betrieb.
  • Das mit der Hilfe dauert leider noch etwas. Im kurzen Urlaub zwischen den Jahren sind andere Dinge dazwischen gekommen.
    Ich habe aber XProfan4 schon fertig gemacht und werde heute oder morgen diese Version allen Subscriptions-Kunden zur Verfügung stellen.
    Hilfe und angepasste Version der Entwicklungsumgebung folgen dann später. Ich arbeite dran.

    Gruß
    Roland
  • Keine Ahnung wo ich das her habe...

    Quellcode

    1. ' Var integer LDiM[] = Array(integer 0,31,28,31,30,31,30,31,31,30,31,30,31)
    so klappt es natürlich einwandfrei

    Quellcode

    1. Var integer LDiM[] = 0,31,28,31,30,31,30,31,31,30,31,30,31


    Doch, jetzt weiß ich es wieder:

    Quellcode

    1. '!!! Strukturarrays sind möglich, aber man sollte ein Element extra spendieren !!!
    2. SetSize DayInfo[],367
    3. SetSize MonthInfo[],13
    Das Strukturarray funktionierte nicht, aber...

    Quellcode

    1. For i, 1, 12
    2. With MonthInfo[i]
    3. .mNoOfDays% = LDiM[i]
    4. '...
    5. EndWith
    6. EndFor
    "Element existiert nicht" - Fehler in der LDiM-Zeile leitete mich in die Irre.

    Es war gar nicht LDiM[] sondern das Strukturarray MonthInfo[].

    P.S.:
    Das nächste Mal stehen alle zugehörigen Quellcodes auch in EINEM Artikel - versprochen.
  • Quellcode

    1. ' (etwas die Schere angesetzt)
    2. Kalender 2018
    3. Schaltjahr: Nein
    4. Feiertage berechnet für Bundesland - SH
    5. Wieviele Tage hat das Jahr? 365
    6. Wieviele Tage davon sind Arbeitstage? 261
    7. Summe der Wochenend-Tage dieses Jahres: 104
    8. Summe der Feiertage: 9
    9. Summe der Feiertage, die auf Werktage fallen: 9
    10. Nr der ersten Woche des Jahres (kann auch 53 sein; Vorjahr): 1
    11. Anzahl der Wochen des Jahres: 52
    12. Nr der letzten Woche des Jahres (kann auch 1 sein; Folgejahr): 1
    13. 1. 1.2018 Mo afF [ 1] Neujahr [F]
    14. 2. 1.2018 Di a.. [ 1]
    15. 3. 1.2018 Mi a.. [ 1]
    16. 4. 1.2018 Do a.. [ 1]
    17. 5. 1.2018 Fr a.. [ 1]
    18. 6. 1.2018 Sa ... [ 1] Hl. 3 Könige (Epiphanias) [BW,BY,ST]
    19. 7. 1.2018 So ... [ 1] 1. So. n. Epiphanias
    20. *** *** ***
    21. 14. 5.2018 Mo a.. [20]
    22. 15. 5.2018 Di a.. [20]
    23. 16. 5.2018 Mi a.. [20]
    24. 17. 5.2018 Do a.. [20]
    25. 18. 5.2018 Fr a.. [20]
    26. 19. 5.2018 Sa ... [20]
    27. 20. 5.2018 So ... [20] Pfingstsonntag [BB] (7.So n Ostern)
    28. 21. 5.2018 Mo afF [21] Pfingstmontag [F]
    29. 22. 5.2018 Di a.. [21]
    30. 23. 5.2018 Mi a.. [21]
    31. 24. 5.2018 Do a.. [21] Fronleichnam [BW,BY,HE,NW,RP,SL] (Corpus Domini, Corpus Christi)
    32. 25. 5.2018 Fr a.. [21]
    33. 26. 5.2018 Sa ... [21]
    34. 27. 5.2018 So ... [21] Trinitatis (8. So n Ostern; 1. SO n Pfingsten) Dreifaltigkeit/Dreieinigkeit
    35. 28. 5.2018 Mo a.. [22]
    36. 29. 5.2018 Di a.. [22]
    37. 30. 5.2018 Mi a.. [22]
    38. 31. 5.2018 Do a.. [22]
    39. Mai
    40. Wieviele Tage (Ultimo) hat der Monat? 31
    41. Wieviele Tage sind Arbeitstage? 23
    42. Summe der Wochenend-Tage dieses Monats: 8
    43. Summe der Feiertage dieses Monats: 3
    44. Summe der Feiertage, die auf Werktage fallen: 3
    45. 1. 6.2018 Fr a.. [22]
    46. 2. 6.2018 Sa ... [22]
    47. 3. 6.2018 So ... [22] 1. So. n. Trinitatis
    48. Herz Jesu Fest (2. SO n Pfingsten)
    49. 4. 6.2018 Mo a.. [23]
    50. 5. 6.2018 Di a.. [23]
    51. 6. 6.2018 Mi a.. [23]
    52. 7. 6.2018 Do a.. [23]
    53. 8. 6.2018 Fr a.. [23]
    54. 9. 6.2018 Sa ... [23]
    55. 10. 6.2018 So ... [23] 2. So. n. Trinitatis
    56. 11. 6.2018 Mo a.. [24]
    57. 12. 6.2018 Di a.. [24]
    58. 13. 6.2018 Mi a.. [24]
    59. 14. 6.2018 Do a.. [24]
    60. 15. 6.2018 Fr a.. [24]
    61. 16. 6.2018 Sa ... [24]
    62. 17. 6.2018 So ... [24] Tag der deutschen Einheit [Gedenktag]
    63. 3. So. n. Trinitatis
    64. 18. 6.2018 Mo a.. [25]
    65. 19. 6.2018 Di a.. [25]
    66. 20. 6.2018 Mi a.. [25]
    67. 21. 6.2018 Do a.. [25] Sommer-Sonnenwende
    68. 22. 6.2018 Fr a.. [25] Sternzeichen Krebs
    69. 23. 6.2018 Sa ... [25]
    70. 24. 6.2018 So ... [25] Johannistag
    71. 4. So. n. Trinitatis
    72. 25. 6.2018 Mo a.. [26]
    73. 26. 6.2018 Di a.. [26]
    74. 27. 6.2018 Mi a.. [26] Siebenschläfer
    75. 28. 6.2018 Do a.. [26]
    76. 29. 6.2018 Fr a.. [26] Peter und Paul
    77. 30. 6.2018 Sa ... [26]
    78. Juni
    79. Wieviele Tage (Ultimo) hat der Monat? 30
    80. Wieviele Tage sind Arbeitstage? 21
    81. Summe der Wochenend-Tage dieses Monats: 9
    82. Summe der Feiertage dieses Monats: 0
    83. Summe der Feiertage, die auf Werktage fallen: 0
    84. 1. 7.2018 So ... [26] 5. So. n. Trinitatis
    85. 2. 7.2018 Mo a.. [27]
    86. 3. 7.2018 Di a.. [27]
    87. 4. 7.2018 Mi a.. [27]
    88. 5. 7.2018 Do a.. [27]
    89. 6. 7.2018 Fr a.. [27]
    90. 7. 7.2018 Sa ... [27]
    91. 8. 7.2018 So ... [27] 6. So. n. Trinitatis
    92. 9. 7.2018 Mo a.. [28]
    93. 10. 7.2018 Di a.. [28]
    94. 11. 7.2018 Mi a.. [28]
    95. 12. 7.2018 Do a.. [28]
    96. 13. 7.2018 Fr a.. [28]
    97. 14. 7.2018 Sa ... [28]
    98. 15. 7.2018 So ... [28] 7. So. n. Trinitatis
    99. 16. 7.2018 Mo a.. [29]
    100. 17. 7.2018 Di a.. [29]
    101. 18. 7.2018 Mi a.. [29]
    102. 19. 7.2018 Do a.. [29]
    103. 20. 7.2018 Fr a.. [29]
    104. 21. 7.2018 Sa ... [29]
    105. 22. 7.2018 So ... [29] 8. So. n. Trinitatis
    106. 23. 7.2018 Mo a.. [30] Sternzeichen Löwe
    107. 24. 7.2018 Di a.. [30]
    108. 25. 7.2018 Mi a.. [30]
    109. 26. 7.2018 Do a.. [30]
    110. 27. 7.2018 Fr a.. [30]
    111. 28. 7.2018 Sa ... [30]
    112. 29. 7.2018 So ... [30] 9. So. n. Trinitatis
    113. 30. 7.2018 Mo a.. [31]
    114. 31. 7.2018 Di a.. [31]
    115. Juli
    116. Wieviele Tage (Ultimo) hat der Monat? 31
    117. Wieviele Tage sind Arbeitstage? 22
    118. Summe der Wochenend-Tage dieses Monats: 9
    119. Summe der Feiertage dieses Monats: 0
    120. Summe der Feiertage, die auf Werktage fallen: 0
    121. 1. 8.2018 Mi a.. [31]
    122. 2. 8.2018 Do a.. [31]
    123. 3. 8.2018 Fr a.. [31]
    124. 4. 8.2018 Sa ... [31]
    125. 5. 8.2018 So ... [31] 10. So. n. Trinitatis
    126. 6. 8.2018 Mo a.. [32]
    127. 7. 8.2018 Di a.. [32]
    128. 8. 8.2018 Mi a.. [32]
    129. 9. 8.2018 Do a.. [32]
    130. 10. 8.2018 Fr a.. [32]
    131. 11. 8.2018 Sa ... [32]
    132. 12. 8.2018 So ... [32] 11. So. n. Trinitatis
    133. 13. 8.2018 Mo a.. [33]
    134. 14. 8.2018 Di a.. [33]
    135. 15. 8.2018 Mi a.. [33] Mariä Himmelfahrt [BY,SL]
    136. 16. 8.2018 Do a.. [33]
    137. 17. 8.2018 Fr a.. [33]
    138. 18. 8.2018 Sa ... [33]
    139. 19. 8.2018 So ... [33] 12. So. n. Trinitatis
    140. 20. 8.2018 Mo a.. [34]
    141. 21. 8.2018 Di a.. [34]
    142. 22. 8.2018 Mi a.. [34]
    143. 23. 8.2018 Do a.. [34]
    144. 24. 8.2018 Fr a.. [34] Bartholomäustag
    145. Sternzeichen Jungfrau
    146. 25. 8.2018 Sa ... [34]
    147. 26. 8.2018 So ... [34] 13. So. n. Trinitatis
    148. 27. 8.2018 Mo a.. [35]
    149. 28. 8.2018 Di a.. [35]
    150. 29. 8.2018 Mi a.. [35]
    151. 30. 8.2018 Do a.. [35]
    152. 31. 8.2018 Fr a.. [35]
    153. August
    154. Wieviele Tage (Ultimo) hat der Monat? 31
    155. Wieviele Tage sind Arbeitstage? 23
    156. Summe der Wochenend-Tage dieses Monats: 8
    157. Summe der Feiertage dieses Monats: 0
    158. Summe der Feiertage, die auf Werktage fallen: 0
    159. 1. 9.2018 Sa ... [35] Ägidii
    160. 2. 9.2018 So ... [35] 14. So. n. Trinitatis
    161. Erntedankfest (1. SO i Sept) [rk]
    162. 3. 9.2018 Mo a.. [36]
    163. 4. 9.2018 Di a.. [36]
    164. 5. 9.2018 Mi a.. [36]
    165. 6. 9.2018 Do a.. [36]
    166. 7. 9.2018 Fr a.. [36]
    167. 8. 9.2018 Sa ... [36] Mariä Geburt
    168. 9. 9.2018 So ... [36] 15. So. n. Trinitatis
    169. 10. 9.2018 Mo a.. [37]
    170. 11. 9.2018 Di a.. [37]
    171. 12. 9.2018 Mi a.. [37]
    172. 13. 9.2018 Do a.. [37]
    173. 14. 9.2018 Fr a.. [37]
    174. 15. 9.2018 Sa ... [37]
    175. 16. 9.2018 So ... [37] 16. So. n. Trinitatis
    176. 17. 9.2018 Mo a.. [38]
    177. 18. 9.2018 Di a.. [38]
    178. 19. 9.2018 Mi a.. [38]
    179. 20. 9.2018 Do a.. [38]
    180. 21. 9.2018 Fr a.. [38]
    181. 22. 9.2018 Sa ... [38] Herbst-Tagundnachtgleiche
    182. 23. 9.2018 So ... [38] 17. So. n. Trinitatis
    183. 24. 9.2018 Mo a.. [39] Sternzeichen Waage
    184. 25. 9.2018 Di a.. [39]
    185. 26. 9.2018 Mi a.. [39]
    186. 27. 9.2018 Do a.. [39]
    187. 28. 9.2018 Fr a.. [39]
    188. 29. 9.2018 Sa ... [39] Michaelis
    189. 30. 9.2018 So ... [39] 18. So. n. Trinitatis
    190. Erntedankfest (SO n Michaelis) [ev]
    191. September
    192. Wieviele Tage (Ultimo) hat der Monat? 30
    193. Wieviele Tage sind Arbeitstage? 20
    194. Summe der Wochenend-Tage dieses Monats: 10
    195. Summe der Feiertage dieses Monats: 0
    196. Summe der Feiertage, die auf Werktage fallen: 0
    197. 1.10.2018 Mo a.. [40]
    198. 2.10.2018 Di a.. [40]
    199. 3.10.2018 Mi afF [40] Tag der Deutschen Einheit [F]
    200. 4.10.2018 Do a.. [40]
    201. 5.10.2018 Fr a.. [40]
    202. 6.10.2018 Sa ... [40]
    203. 7.10.2018 So ... [40] 19. So. n. Trinitatis
    204. 8.10.2018 Mo a.. [41]
    205. 9.10.2018 Di a.. [41]
    206. 10.10.2018 Mi a.. [41]
    207. 11.10.2018 Do a.. [41]
    208. 12.10.2018 Fr a.. [41]
    209. 13.10.2018 Sa ... [41]
    210. 14.10.2018 So ... [41] 20. So. n. Trinitatis
    211. 15.10.2018 Mo a.. [42]
    212. 16.10.2018 Di a.. [42]
    213. 17.10.2018 Mi a.. [42]
    214. 18.10.2018 Do a.. [42]
    215. 19.10.2018 Fr a.. [42]
    216. 20.10.2018 Sa ... [42]
    217. 21.10.2018 So ... [42] 21. So. n. Trinitatis
    218. 22.10.2018 Mo a.. [43]
    219. 23.10.2018 Di a.. [43]
    220. 24.10.2018 Mi a.. [43] Sternzeichen Skorpion
    221. 25.10.2018 Do a.. [43]
    222. 26.10.2018 Fr a.. [43]
    223. 27.10.2018 Sa ... [43]
    224. 28.10.2018 So ... [43] 22. So. n. Trinitatis
    225. Ende der Sommerzeit (Normalzeit) (MEZ)
    226. 29.10.2018 Mo a.. [44]
    227. 30.10.2018 Di a.. [44]
    228. 31.10.2018 Mi a.. [44] Reformationstag [BB,MV,SN,ST,TH]
    229. Halloween
    230. Oktober
    231. Wieviele Tage (Ultimo) hat der Monat? 31
    232. Wieviele Tage sind Arbeitstage? 23
    233. Summe der Wochenend-Tage dieses Monats: 8
    234. Summe der Feiertage dieses Monats: 1
    235. Summe der Feiertage, die auf Werktage fallen: 1
    236. 1.11.2018 Do a.. [44] Allerheiligen [BW,BY,NW,RP,SL]
    237. 2.11.2018 Fr a.. [44] Allerseelen
    238. 3.11.2018 Sa ... [44]
    239. 4.11.2018 So ... [44] 23. So. n. Trinitatis
    240. 5.11.2018 Mo a.. [45]
    241. 6.11.2018 Di a.. [45]
    242. 7.11.2018 Mi a.. [45]
    243. 8.11.2018 Do a.. [45]
    244. 9.11.2018 Fr a.. [45]
    245. 10.11.2018 Sa ... [45]
    246. 11.11.2018 So ... [45] Martinstag (Martini)
    247. 24. So. n. Trinitatis
    248. Drittletzter SO des Kirchenjahres
    249. 12.11.2018 Mo a.. [46]
    250. 13.11.2018 Di a.. [46]
    251. 14.11.2018 Mi a.. [46]
    252. 15.11.2018 Do a.. [46]
    253. 16.11.2018 Fr a.. [46]
    254. 17.11.2018 Sa ... [46]
    255. 18.11.2018 So ... [46] Volkstrauertag
    256. 19.11.2018 Mo a.. [47]
    257. 20.11.2018 Di a.. [47]
    258. 21.11.2018 Mi a.. [47] Buß- und Bettag [SN]
    259. 22.11.2018 Do a.. [47]
    260. 23.11.2018 Fr a.. [47] Sternzeichen Schütze
    261. 24.11.2018 Sa ... [47]
    262. 25.11.2018 So ... [47] Totensonntag (Ewigkeitssonntag) [G]
    263. Christkönigsfest [rk]
    264. 26.11.2018 Mo a.. [48]
    265. 27.11.2018 Di a.. [48]
    266. 28.11.2018 Mi a.. [48]
    267. 29.11.2018 Do a.. [48]
    268. 30.11.2018 Fr a.. [48]
    269. November
    270. Wieviele Tage (Ultimo) hat der Monat? 30
    271. Wieviele Tage sind Arbeitstage? 22
    272. Summe der Wochenend-Tage dieses Monats: 8
    273. Summe der Feiertage dieses Monats: 0
    274. Summe der Feiertage, die auf Werktage fallen: 0
    275. 1.12.2018 Sa ... [48]
    276. 2.12.2018 So ... [48] 1. Advent
    277. 3.12.2018 Mo a.. [49]
    278. 4.12.2018 Di a.. [49]
    279. 5.12.2018 Mi a.. [49]
    280. 6.12.2018 Do a.. [49] Nikolaus
    281. 7.12.2018 Fr a.. [49]
    282. 8.12.2018 Sa ... [49] Mariä Empfängnis
    283. 9.12.2018 So ... [49] 2. Advent
    284. 10.12.2018 Mo a.. [50]
    285. 11.12.2018 Di a.. [50]
    286. 12.12.2018 Mi a.. [50]
    287. 13.12.2018 Do a.. [50]
    288. 14.12.2018 Fr a.. [50]
    289. 15.12.2018 Sa ... [50]
    290. 16.12.2018 So ... [50] 3. Advent
    291. 17.12.2018 Mo a.. [51]
    292. 18.12.2018 Di a.. [51]
    293. 19.12.2018 Mi a.. [51]
    294. 20.12.2018 Do a.. [51]
    295. 21.12.2018 Fr a.. [51] Winter-Sonnenwende
    296. 22.12.2018 Sa ... [51] Sternzeichen Steinbock
    297. 23.12.2018 So ... [51] 4. Advent
    298. 24.12.2018 Mo a.. [52] Heiligabend
    299. 25.12.2018 Di afF [52] 1. Weihnachtsfeiertag [F]
    300. 26.12.2018 Mi afF [52] 2. Weihnachtsfeiertag [F]
    301. 27.12.2018 Do a.. [52]
    302. 28.12.2018 Fr a.. [52]
    303. 29.12.2018 Sa ... [52]
    304. 30.12.2018 So ... [52] So. n. Weihnachten
    305. 31.12.2018 Mo a.. [ 1] Silvester
    306. Dezember
    307. Wieviele Tage (Ultimo) hat der Monat? 31
    308. Wieviele Tage sind Arbeitstage? 21
    309. Summe der Wochenend-Tage dieses Monats: 10
    310. Summe der Feiertage dieses Monats: 2
    311. Summe der Feiertage, die auf Werktage fallen: 2
    Alles anzeigen
  • Ende der strukturierten Arrays.

    Alle 4 Teile aneinander fügen und testen. Bei mir klappt es.

    XProfan X4


    Es sind aber auch Infos dabei, die in früheren Versionen funktionieren.

    Die Struktur-Arrays zum Beispiel gibt es ab X3. (Die wollte ich schon immer mal testen.)
  • Quellcode

    1. For i, 1, YearInfo.yNoOfDays%
    2. With DayInfo[i]
    3. xx = Format$("%2d",.dDay%) $ "." $ Format$("%2d",.dMonth%) $ "." $ Format$("%4d",.dYear%) $ " " $ Mid$(wds,(.dWeekday% - 1) * 2 + 1,2) $ " " $ \
    4. if(.dIsWorkday%,"a",".") $ if(.dIsHoliday%,"f",".") $ if(.dIsWorkHoliday%,"F",".") $ " [" $ Format$("%2d",.dWeekNo%) $ "] " $ get_Cal(.dDayno%, .dIsHoliday%)
    5. AddString(0, xx )
    6. EndWith
    7. Inc D
    8. If D > MonthInfo[M].mNoOfDays% ' Monatswechsel
    9. Select M
    10. CaseOf 1 : xx = "Januar" : CaseOf 2 : xx = "Februar" : CaseOf 3 : xx = "März" : CaseOf 4 : xx = "April" : CaseOf 5 : xx = "Mai" : CaseOf 6 : xx = "Juni"
    11. CaseOf 7 : xx = "Juli" : CaseOf 8 : xx = "August" : CaseOf 9 : xx = "September" : CaseOf 10 : xx = "Oktober" : CaseOf 11 : xx = "November" : CaseOf 12 : xx = "Dezember"
    12. EndSelect
    13. AddString(0, xx )
    14. With MonthInfo[M]
    15. AddString(0, "Wieviele Tage (Ultimo) hat der Monat? " $ Str$(.mNoOfDays%) )
    16. AddString(0, "Wieviele Tage sind Arbeitstage? " $ Str$(.mNoOfWorkdays%) )
    17. AddString(0, "Summe der Wochenend-Tage dieses Monats: " $ Str$(.mNoOfWeekend%) )
    18. AddString(0, "Summe der Feiertage dieses Monats: " $ Str$(.mNoOfHolidays%) )
    19. AddString(0, "Summe der Feiertage, die auf Werktage fallen: " $ Str$(.mNoOfWorkHolidays%) )
    20. AddString(0, "\n" )
    21. EndWith
    22. D = 1
    23. Inc M
    24. EndIf
    25. Inc WD : Case WD > 7 : Dec WD,7
    26. If WD = Beginning_of_the_Week ' Wochenwechsel
    27. AddString(0, "\n" )
    28. EndIf
    29. DP = DP + 1
    30. EndFor
    31. ' Kalenderdatei
    32. Declare int err
    33. MkDir "C:\TEMP"
    34. err = %IOResult
    35. var string Kalenderdatei = "C:\TEMP\KALENDER_" $ Str$(Y) $ "_TMP.txt"
    36. Move("ListToFile",Kalenderdatei)
    37. err = %IOResult
    38. ClearList 0
    39. Shell "NotePad " $ Kalenderdatei
    40. err = %IOResult
    41. Return 0
    42. EndProc
    43. // "BB|BE|BW|BY|HB|HE|HH|MV|NI|NW|RP|SH|SL|SN|ST|TH" (ISO 3166-2:DE)
    44. Create_CalendarInfo( 2014, dies_ist_mein_Bundesland)
    45. Create_CalendarInfo( 2015, dies_ist_mein_Bundesland)
    46. Create_CalendarInfo( 2016, dies_ist_mein_Bundesland)
    47. Create_CalendarInfo( 2017, dies_ist_mein_Bundesland)
    48. Create_CalendarInfo( 2018, dies_ist_mein_Bundesland)
    49. // Reset_Structures
    50. Dispose DayInfo[]
    51. Dispose MonthInfo[]
    52. Dispose YearInfo
    53. End
    Alles anzeigen
  • Quellcode

    1. set_Cal( Ostern - 2, "[F]", "Karfreitag #")
    2. set_Cal( Ostern , "[BB]", "Ostersonntag # (rk:1.So der Osterzeit)")
    3. set_Cal( Ostern + 1, "[F]", "Ostermontag #")
    4. set_Cal( Ostern + 39, "[F]", "Christi Himmelfahrt # (Vatertag/Herrentag)")
    5. set_Cal( Ostern + 49, "[BB]", "Pfingstsonntag # (7.So n Ostern)")
    6. set_Cal( Ostern + 50, "[F]", "Pfingstmontag #")
    7. set_Cal( Ostern + 53, "[BW,BY,HE,NW,RP,SL]", "Fronleichnam # (Corpus Domini, Corpus Christi)")
    8. Case Jahr >= 1934 : set_Cal( 1, 5, Jahr, "[F]", "Maifeiertag #")
    9. ' hier wird "deutschen" klein geschrieben
    10. xx = "Tag der deutschen Einheit #"
    11. If Between(Jahr,1954,1990)
    12. set_Cal( 17, 6, Jahr, "[F]", xx)
    13. ElseIf Jahr >= 1991
    14. set_Cal( 17, 6, Jahr, "[Gedenktag]", xx)
    15. EndIf
    16. set_Cal( 15, 8, Jahr, "[BY,SL]", "Mariä Himmelfahrt #")
    17. ' hier wird "Deutschen" groß geschrieben
    18. Case Jahr >= 1990 : set_Cal( 3, 10, Jahr, "[F]", "Tag der Deutschen Einheit #")
    19. xx = "Reformationstag #"
    20. Case Between(Jahr,1517,1989) : set_Cal( 31, 10, Jahr, " ", xx)
    21. Case Between(Jahr,1990,2016) : set_Cal( 31, 10, Jahr, "[BB,MV,SN,ST,TH]", xx) // Neue Bundesländer: Ländereinführungsgesetz vom 22. Juli 1990
    22. Case (Jahr = 2017) : set_Cal( 31, 10, Jahr, "[F]. Im Jahr 2017, dem 500. Jahr des Beginns der Reformation, ist der 31. Oktober einmalig ein gesamtdeutscher gesetzlicher Feiertag.",xx)
    23. Case Jahr >= 2018 : set_Cal( 31, 10, Jahr, "[BB,MV,SN,ST,TH]",xx)
    24. ' Case Jahr >= 2018 : set_Cal( 31, 10, Jahr, "[HB,HH,NI,SH,BB,MV,SN,ST,TH]",xx) // !!! *** in Planung *** !!!
    25. set_Cal( 1, 11, Jahr, "[BW,BY,NW,RP,SL]","Allerheiligen #")
    26. xx = "Buß- und Bettag #"
    27. Case Between(Jahr,1934,1938) : set_Cal( Vierter_Advent - 32, "[F]", xx)
    28. Case Between(Jahr,1946,1951) : set_Cal( Vierter_Advent - 32, "[BE,BW,HB,HE,HH,NI,NW,RP,SH,SL]", xx)
    29. Case Between(Jahr,1952,1980) : set_Cal( Vierter_Advent - 32, "[BE,BW,BY(ev),HB,HE,HH,NI,NW,RP,SH,SL]", xx)
    30. Case Between(Jahr,1981,1989) : set_Cal( Vierter_Advent - 32, "[BE,BW,BY,HB,HE,HH,NI,NW,RP,SH,SL]", xx)
    31. Case Between(Jahr,1990,1994) : set_Cal( Vierter_Advent - 32, "[F]", xx)
    32. Case Jahr >= 1995 : set_Cal( Vierter_Advent - 32, "[SN]", xx)
    33. set_Cal( 25, 12, Jahr, "[F]", "1. Weihnachtsfeiertag #")
    34. xmas = LastDat
    35. If (LastDat - 1) = Vierter_Advent
    36. set_Cal( 24, 12, Jahr, "", "4. Advent und Heiligabend")
    37. Else
    38. set_Cal( 24, 12, Jahr, "", "Heiligabend")
    39. set_Cal( Vierter_Advent, "", "4. Advent")
    40. EndIf
    41. Case dt("getDoW", xmas) <= 5 : set_Cal( dt("NextSo", xmas), "", "So. n. Weihnachten")
    42. set_Cal( 26, 12, Jahr, "[F]", "2. Weihnachtsfeiertag #")
    43. // Kalendertage
    44. set_Cal( 2, 2, Jahr, "", "Mariä Lichtmeß")
    45. set_Cal( 14, 2, Jahr, "", "Valentinstag")
    46. set_Cal( 25, 3, Jahr, "", "Mariä Verkündigung")
    47. set_Cal( 30, 4, Jahr, "", "Walpurgisnacht")
    48. Case Jahr >= 1933 : set_Cal(dt("FirstSo",dt("setDate",Jahr,5,1)) + 7, "", "Muttertag") // Muttertag: zweiter SO im Mai (Trick: erster SO + 7)
    49. Case Jahr >= 1964 : set_Cal( 5, 5, Jahr, "", "Europatag (Gründung des Europarates 1949)")
    50. Case Jahr >= 1985 : set_Cal( 9, 5, Jahr, "", "Europatag (Schuman-Erklärung (1950), mündete in EGKS u später EU)")
    51. set_Cal( 24, 6, Jahr, "", "Johannistag")
    52. set_Cal( 27, 6, Jahr, "", "Siebenschläfer")
    53. set_Cal( 29, 6, Jahr, "", "Peter und Paul")
    54. set_Cal( 24, 8, Jahr, "", "Bartholomäustag")
    55. set_Cal( 1, 9, Jahr, "", "Ägidii")
    56. set_Cal( 8, 9, Jahr, "", "Mariä Geburt")
    57. set_Cal( 29, 9, Jahr, "", "Michaelis")
    58. set_Cal( 31, 10, Jahr, "", "Halloween")
    59. set_Cal( 2, 11, Jahr, "", "Allerseelen")
    60. set_Cal( 11, 11, Jahr, "", "Martinstag (Martini)")
    61. set_Cal( 6, 12, Jahr, "", "Nikolaus")
    62. set_Cal( 8, 12, Jahr, "", "Mariä Empfängnis")
    63. set_Cal( 31, 12, Jahr, "", "Silvester")
    64. // Trinitatis-Sonntage (1..27)
    65. If Jahr >= 1334
    66. DP2 = Ostern + 56 + 7
    67. WhileLoop 1,27
    68. Case DP2 < Trinitatis_Stopp : set_Cal( DP2, Str$(&Loop), "#. So. n. Trinitatis")
    69. DP2 = DP2 + 7
    70. EndWhile
    71. EndIf
    72. // Jahreszeiten
    73. set_Cal( 21, 3, Jahr, "", "Frühlings-Tagundnachtgleiche")
    74. set_Cal( 21, 6, Jahr, "", "Sommer-Sonnenwende")
    75. set_Cal( 22, 9, Jahr, "", "Herbst-Tagundnachtgleiche")
    76. set_Cal( 21, 12, Jahr, "", "Winter-Sonnenwende")
    77. // Sommerzeit
    78. set_Cal( dt("LastSo",dt("setDate",Jahr, 3,1)), "(MESZ)", "Anfang der Sommerzeit #") // letzter SO im März
    79. set_Cal( dt("LastSo",dt("setDate",Jahr,10,1)), "(MEZ)", "Ende der Sommerzeit (Normalzeit) #") // letzter SO im Oktober
    80. // Erntedank rk & ev
    81. Case Jahr >= 1972 : set_Cal( dt("FirstSo",dt("setDate",Jahr,9,1)), "[rk]", "Erntedankfest (1. SO i Sept) #")
    82. Case Jahr >= 1770 : set_Cal( dt("NextSo",dt("setDate",Jahr,9,29)), "[ev]", "Erntedankfest (SO n Michaelis) #")
    83. xx = "Sternzeichen #"
    84. // Sternzeichen
    85. set_Cal( 21, 1, Jahr, "Wassermann", xx)
    86. set_Cal( 20, 2, Jahr, "Fische", xx)
    87. set_Cal( 21, 3, Jahr, "Widder", xx)
    88. set_Cal( 21, 4, Jahr, "Stier", xx)
    89. set_Cal( 21, 5, Jahr, "Zwillinge", xx)
    90. set_Cal( 22, 6, Jahr, "Krebs", xx)
    91. set_Cal( 23, 7, Jahr, "Löwe", xx)
    92. set_Cal( 24, 8, Jahr, "Jungfrau", xx)
    93. set_Cal( 24, 9, Jahr, "Waage", xx)
    94. set_Cal( 24, 10, Jahr, "Skorpion", xx)
    95. set_Cal( 23, 11, Jahr, "Schütze", xx)
    96. set_Cal( 22, 12, Jahr, "Steinbock", xx)
    97. // Advent
    98. ' Vierter_Advent = dt("Advent4", Jahr) // wurde weiter oben schon gesetzt
    99. set_Cal( Vierter_Advent - 7, "", "3. Advent")
    100. set_Cal( Vierter_Advent - 14, "", "2. Advent")
    101. set_Cal( Vierter_Advent - 21, "", "1. Advent")
    102. set_Cal( Vierter_Advent - 28, "", "Totensonntag (Ewigkeitssonntag) [G]")
    103. set_Cal( Vierter_Advent - 28, "", "Christkönigsfest [rk]")
    104. set_Cal( Vierter_Advent - 35, "", "Volkstrauertag")
    105. set_Cal( Vierter_Advent - 42, "", "Drittletzter SO des Kirchenjahres")
    106. // Ostern
    107. ' Ostern = dt("Easter", Jahr) // wurde weiter oben schon gesetzt
    108. // Karneval
    109. set_Cal( Ostern - 52, "", "Weiberfastnacht (Schmotziger DO) (-Karneval-)")
    110. set_Cal( Ostern - 51, "", "Rußiger Freitag (-Karneval-)")
    111. set_Cal( Ostern - 50, "", "Nelkensamstag (Schmalziger SA) (-Karneval-)")
    112. set_Cal( Ostern - 49, "", "Estomihi (7.So v Ostern)") // der mogelt sich VOR die Herrenfastnacht
    113. set_Cal( Ostern - 49, "", "Tulpensonntag (Herrenfastnacht) (-Karneval-)")
    114. set_Cal( Ostern - 48, "", "Rosenmontag (-Karneval-)")
    115. set_Cal( Ostern - 47, "", "Fastnacht (Veilchendienstag) (-Karneval-)")
    116. set_Cal( Ostern - 46, "", "Aschermittwoch (Beginn der Fastenzeit) (-Karneval-)")
    117. set_Cal( Ostern - 63, "", "Septuagesimae (9.So v Ostern)")
    118. set_Cal( Ostern - 56, "", "Sexagesimae (8.So v Ostern)")
    119. set_Cal( Ostern - 42, "", "Invokavit (6.FastenSo v Ostern)")
    120. set_Cal( Ostern - 35, "", "Reminiscere (5.FastenSo v Ostern)")
    121. set_Cal( Ostern - 28, "", "Okuli (4.FastenSo v Ostern)")
    122. set_Cal( Ostern - 21, "", "Laetare (3.FastenSo v Ostern)")
    123. set_Cal( Ostern - 14, "", "Judica (2.FastenSo v Ostern)")
    124. set_Cal( Ostern - 8, "", "[en] (Sat. of Lazarus)")
    125. set_Cal( Ostern - 7, "", "Palmsonntag (1.FastenSo v Ostern)")
    126. set_Cal( Ostern - 3, "", "Gründonnerstag")
    127. set_Cal( Ostern - 1, "", "Karsamstag (Ostersamstag)")
    128. set_Cal( Ostern + 7, "", "Quasimodogeniti (ev:1.So n Ostern)(rk:2.So der Osterzeit/Weißer Sonntag)")
    129. set_Cal( Ostern + 14, "", "Misericordias Domini (ev:2.So n Ostern)(rk:3.So der Osterzeit)")
    130. set_Cal( Ostern + 21, "", "Jubilate (ev:3.So n Ostern)(rk:4.So der Osterzeit)")
    131. set_Cal( Ostern + 28, "", "Kantate (ev:4.So n Ostern)(rk:5.So der Osterzeit)")
    132. set_Cal( Ostern + 35, "", "Rogate (ev:5.So n Ostern)(rk:6.So der Osterzeit)")
    133. set_Cal( Ostern + 42, "", "Exaudi (ev:6.So n Ostern)(rk:7.So der Osterzeit)")
    134. Case Y >= 1334 : set_Cal( Ostern + 56, "", "Trinitatis (8. So n Ostern; 1. SO n Pfingsten) Dreifaltigkeit/Dreieinigkeit")
    135. Case Y >= 1856 : set_Cal( Ostern + 63, "", "Herz Jesu Fest (2. SO n Pfingsten)")
    136. // --- Ausgabe der Daten ---
    137. ClearList 0
    138. var string wds = "MoDiMiDoFrSaSo"
    139. With YearInfo
    140. D = 1 : M = 1 : Y = .yYear%
    141. With DayInfo[1]
    142. WD = .dWeekday%
    143. DP = .dDP!
    144. EndWith
    145. AddString(0, "Kalender " $ Str$(Y) )
    146. AddString(0, "\nSchaltjahr: " $ if(.yIsLeap%,"Ja","Nein" ))
    147. AddString(0, "Feiertage berechnet für Bundesland - " $ Bundesland )
    148. AddString(0, "Wieviele Tage hat das Jahr? " $ Str$(.yNoOfDays%) )
    149. AddString(0, "Wieviele Tage davon sind Arbeitstage? " $ Str$(.yNoOfWorkdays%) )
    150. AddString(0, "Summe der Wochenend-Tage dieses Jahres: " $ Str$(.yNoOfWeekend%) )
    151. AddString(0, "Summe der Feiertage: " $ Str$(.yNoOfHolidays%) )
    152. AddString(0, "Summe der Feiertage, die auf Werktage fallen: " $ Str$(.yNoOfWorkHolidays%) )
    153. AddString(0, "Nr der ersten Woche des Jahres (kann auch 53 sein; Vorjahr): " $ Str$(.yFirstWeek%) )
    154. AddString(0, "Anzahl der Wochen des Jahres: " $ Str$(.yNoOfWeeks%) )
    155. AddString(0, "Nr der letzten Woche des Jahres (kann auch 1 sein; Folgejahr): " $ Str$(.yLastWeek%) )
    156. AddString(0, "\n" )
    157. EndWith
    Alles anzeigen