Sign in to follow this  
Followers 0
cypher175

Get the Day of the week..?

5 posts in this topic

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

Mon

Tue

Wed

Thur

Fri

Sat

Sun

Share this post


Link to post
Share on other sites



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

Share this post


Link to post
Share on other sites

@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.


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

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


[center]It's a question of mind over matter, if I don't mind, it doesn't matter.[/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0