Hi,
sowas ähnliches hatte ich während meiner Azubi-Zeit mal gebaut.
Grüße
AutoIt
;KW_Anzeiger 2.0
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <date.au3>
dim $now = StringLeft(_Now(),10)
$now = StringSplit($now,".")
$kw = _WeekNumberISO($now[3],$now[2],$now[1])
$now = $now[3] & "/" & $now[2] & "/" & $now[1]
$Form1 = GUICreate("Kalenderwoche", 375, 241, 192, 114)
$date = GUICtrlCreateMonthCal($now, 24, 24, 191, 189)
$lblkw = GUICtrlCreateLabel($kw, 240, 64, 120, 120)
GUICtrlSetFont(-1, 72, 400, 0, "Arial")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $date
$now = GUICtrlRead($date)
$now = StringSplit($now,"/")
$kw = _WeekNumberISO($now[1],$now[2],$now[3])
GUICtrlSetData($lblkw,$kw)
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Alles anzeigen