[ScriptLibrary] Datum (Kalenderwoche, Feiertage, etc.)

[TMC]

Ich habe mir aus gegebenem Anlass eine ScriptLibrary erzeugt mit ein paar Datumsfunktionen:

%REM
'===========================================================================================
Public Functions are:
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   GetCalendarWeek
   --> Calculates the calendar week number (ISO 8601 standard) for a given date value.
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   GetWeekMonday
   --> Calculates the monday for a given calendar week and year
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   IsoWeekday
   --> Calculates the ISO-weekday for a given date value. (monday -> 0, ... , sunday -> 6)
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   WeekdayGerman
   --> Calculates the German weekday for a given date value.
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   WeekdayEnglish
   --> Calculates the English weekday for a given date value.
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   GetEasterSunday
   --> Calculates the Easter Sunday for a given year.
   --------------------------------------------------------------------------------------------------------------------------------------------------------------
   Public Holiday
   --> Returns the German public holiday for a given date value
'===========================================================================================
%END REM

Quellen waren
a) Excel Formel (für GetWeekMonday)
b) Anton Tauscher (hier im Forum mal eine DB gepostet)
c) Christian Meis (weit über's www verstreut: KW-Berechnung)
d) Einige Teile habe ich doch noch selber erstellt  

ScriptLibrary see attached. Einfach eine neue ScriptLib erstellen und importieren. Darauf achten dass "Option Public" gelöscht ist in den Declarations.

HTH irgendwem irgendwann.

Matthias

ScriptLib läuft auch unter R5 (dort habe ich es auch entwickelt) - aber irgendwo muss man ja posten da es Tipps&Tricks in R5 und R6 gibt-

[shiraz]

Die Berechnung von der Kalenderwoche ist fehlerhaft.
4.1.2010 wird als kw 1 (falsch) berechnet.

Gruß
Christian

[koehlerbv]

Ich habe ja keine Ahnung, welchen Standard Du verwendest, aber nach ISO 8601 (wie im Quellcode auch angegeben) und damit in Deutschland üblich stimmt das Ergebnis für den 04.01.2010!

Bernhard

[WernerMo]

Hallo,

das Ergebnis läßt sich über die Vorgaben beeinflussen, vgl. Bild unten.

Gruß Werner

[koehlerbv]

Aber nicht das Ergebnis dieser Function - das ist nur durch den Übergabeparameter beeinflussbar, Werner 

Bernhard

[shiraz]

Hallo Werner, Hallo Bernhard,

ich rede  nicht über Lotus 8.xx.


Gruß
Christian

[Axel]

Die Berechnung von der Kalenderwoche ist fehlerhaft.
4.1.2010 wird als kw 1 (falsch) berechnet.

Gruß
Christian

Was ist daran falsch?

Die Woche in der der 4.1. liegt ist die 1. Kalenderwoche 2010. Schau dir mal einen entsprechenden Kalender an.

Axel