| 1 | #include <Date.au3> |
|---|
| 2 | #include <GUIConstantsEx.au3> |
|---|
| 3 | #include <WindowsConstants.au3> |
|---|
| 4 | #include <DateTimeConstants.au3> |
|---|
| 5 | |
|---|
| 6 | |
|---|
| 7 | Opt('MustDeclareVars', 1) |
|---|
| 8 | |
|---|
| 9 | Example() |
|---|
| 10 | |
|---|
| 11 | Func Example() |
|---|
| 12 | Local $Date, $msg |
|---|
| 13 | GUICreate("Get date", 210, 190) |
|---|
| 14 | |
|---|
| 15 | $Date = GUICtrlCreateMonthCal(_NowCalcDate(), 10, 10,Default,Default,$WS_BORDER+$MCS_WEEKNUMBERS, 0x00000000) |
|---|
| 16 | GUISetState() |
|---|
| 17 | ; |
|---|
| 18 | MsgBox(0,"Todays weeknumber","Todays " & _NowCalcDate() & " weeknumber is " & _WeekNumberISO()) |
|---|
| 19 | |
|---|
| 20 | ; Run the GUI until the dialog is closed or timeout |
|---|
| 21 | |
|---|
| 22 | Do |
|---|
| 23 | $msg = GUIGetMsg() |
|---|
| 24 | If $msg = $Date Then MsgBox(0, "debug", "calendar clicked") |
|---|
| 25 | Until $msg = $GUI_EVENT_CLOSE |
|---|
| 26 | |
|---|
| 27 | MsgBox(0, $msg, GUICtrlRead($Date), 2) |
|---|
| 28 | EndFunc ;==>Example |
|---|
