| 1 | #include <date.au3> |
|---|
| 2 | ; |
|---|
| 3 | Local $iDayNum |
|---|
| 4 | Local $sDayName |
|---|
| 5 | ; |
|---|
| 6 | For $iDayNum = 1 to 7 |
|---|
| 7 | $sDayName = _DateDayOfWeek($iDayNum) ; Name of Day |
|---|
| 8 | Select |
|---|
| 9 | case $iDayNum = 1 |
|---|
| 10 | if $sDayName <> "Sunday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 11 | "Name should be Sunday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 12 | case $iDayNum = 2 |
|---|
| 13 | if $sDayName <> "Monday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 14 | "Name should be Monday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 15 | case $iDayNum = 3 |
|---|
| 16 | if $sDayName <> "Tuesday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 17 | "Name should be Tuesday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 18 | case $iDayNum = 4 |
|---|
| 19 | if $sDayName <> "Wednesday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 20 | "Name should be Wednesday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 21 | case $iDayNum = 5 |
|---|
| 22 | if $sDayName <> "Thursday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 23 | "Name should be Thursday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 24 | case $iDayNum = 6 |
|---|
| 25 | if $sDayName <> "Friday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 26 | "Name should be Friday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 27 | case $iDayNum = 7 |
|---|
| 28 | if $sDayName <> "Saturday" then MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, _ |
|---|
| 29 | "Name should be Saturday, it is " & $sDayName & " For Day Number " & $iDayNum) |
|---|
| 30 | case Else |
|---|
| 31 | MsgBox(16, "Test Dayname Error Autoit version " & @AutoItVersion, "DayNum is invalid " & $iDayNum) |
|---|
| 32 | EndSelect |
|---|
| 33 | Next ;$iDayNum |
|---|
| 34 | ; |
|---|
| 35 | exit |
|---|
