Get the Day of the week..?

[cypher175]

Is there a way to get the day of the week in word format like:

Mon

Tue

Wed

Thur

Fri

Sat

Sun

[Zedna]

#Include <Date.au3>

_DateDayOfWeek($iDayNum[,  $iShort = 0])

[xroot]

Here is a simple way using a Com Control.

Func StartVBS()

Global $VBS=""

$VBS=ObjCreate("MSScriptControl.ScriptControl")

$VBS.Language="VBScript"

EndFunc

Func MonthName($mNum,$aBBv=False)

Return $VBS.Eval("MonthName("&$mNum&","&$aBBv&")")

EndFunc

Func WeekDayName($wNum,$aBBv=False)

Return $VBS.Eval("WeekDayName("&$wNum&","&$aBBv&")")

EndFunc

StartVBS()

$TXT="Short Month Name "&MonthName(@Mon,True)&@crlf

$TXT&="Short Week Name "&WeekDayName(@wDay,True)&@crlf

$TXT&="Long Month Name "&MonthName(@Mon)&@crlf

$TXT&="Long Week Name "&WeekDayName(@wDay)&@crlf

msgbox(0,"VBS ScriptControl",$TXT)

$VBS=0

[FireFox]

@xroot

Please use code for your scripts like this :

Func StartVBS()
Global $VBS=""
$VBS=ObjCreate("MSScriptControl.ScriptControl")
$VBS.Language="VBScript"
EndFunc

Func MonthName($mNum,$aBBv=False)
Return $VBS.Eval("MonthName("&$mNum&","&$aBBv&")")
EndFunc

Func WeekDayName($wNum,$aBBv=False)
Return $VBS.Eval("WeekDayName("&$wNum&","&$aBBv&")")
EndFunc

StartVBS()
$TXT="Short Month Name "&MonthName(@Mon,True)&@crlf
$TXT&="Short Week Name "&WeekDayName(@wDay,True)&@crlf
$TXT&="Long Month Name "&MonthName(@Mon)&@crlf
$TXT&="Long Week Name "&WeekDayName(@wDay)&@crlf

msgbox(0,"VBS ScriptControl",$TXT)
$VBS=0

Cheers, FireFox.

[system24]

#Include <Date.au3>
$Day =  _DateDayOfWeek(@WDAY, 1)