_GetKalenderwoche.au3

  • Ich hatte nach einem Script gesucht, dass mir die Kalenderwochen für ein Jahr mit Datum anzeigt, aber nichts Brauchbares gefunden... ergo habe ich es selbst geschrieben und wollte es nun mit euch teilen.


    Die Ausgabe für das Jahr 2020 sieht dann z.B. etwa so aus:

    Row|KW|Mo.|So.

    Row 0|1|30.12.2019|05.01.2020

    Row 1|2|06.01.2020|12.01.2020

    Row 2|3|13.01.2020|19.01.2020

    ...

    Row 50|51|14.12.2020|20.12.2020

    Row 51|52|21.12.2020|27.12.2020

    Row 52|53|28.12.2020|03.01.2021


    AutoIt: _GetKalenderwoche_Example.au3
    ;-- TIME_STAMP   2020-11-23 18:12:47   v 0.1
    
    #include <Array.au3>
    #include <Debug.au3>
    #include "_GetKalenderwoche.au3"
    
    Local $aKW = _GetKalenderwoche(@YEAR)
    _DebugArrayDisplay($aKW, '$aKW ' & @YEAR, '', 0, Default, 'KW|Mo.|So.')
  • Hi,


    sowas ähnliches hatte ich während meiner Azubi-Zeit mal gebaut.


    Grüße

    Simon nörgelt, Simon nervt - aber Simon verbessert die Welt. Glaubt er.

  • sowas ähnliches hatte ich während meiner Azubi-Zeit mal gebaut.

    Ja, schön, das kann man sicher auch gut gebrauchen... hier eine etwas erweiterte Version, die nicht nur auf Mausklick, sondern auch auf Tastatur (Pfeiltasten/PageUp/PageDown) und Mausrad reagiert.


    Hier noch eine überarbeitete Version aus #Post 1, die alle Wochentage anzeigt. Nicht benötigte Spalten/Wochentage können mit _ArrayExtract/_ArrayColDelete entfernen werden.