is there shorter way to write this?

[Guest]

is there shorter way to write this? :

$MON = @MON

If $MON = 1 Then

$m1 = "January"

$m2 = "jan"

$m3 = "01"

$m4 = "1"

ElseIf $MON = 2 Then

$m1 = "February"

$m2 = "feb"

$m3 = "02"

$m4 = "2"

............

....................

(until "December")

EndIf

?

Edited August 26, 2012 by Guest

[BrewManNH]

Look at the _DateToMonth function

[Guest]

Thank you!

[skin27]

Btw you can create a simple array of the data you want:

#include <Array.au3>
Local $hMonths[13][5]
Local $months = StringSplit("January,February,March,April,May,June,Juli,August,September,October,November,December",",")
For $i=1 to 12 Step 1
$hMonths[$i][1] = $months[$i]
$hMonths[$i][2] = StringLower(StringLeft($months[$i],3))
If $i < 10 then
$hMonths[$i][3] = "0" & $i
Else
$hMonths[$i][3] = $i
EndIf
$hMonths[$i][4] = 1
Next
_ArrayDisplay($hMonths)