Date Format Macro

[petes]

Friends -

I need a macro that will display the curret date in message box in the belwo format:

09_03_2014


Thanks a lot!!

 

[petes]

Guys I need this format in VB Script

Thanks!!

 

[WarPigl3t]

val = split(today(),"/")
val = val(0) & "_" & val(1) & "_" & val(2)

 

[ParamRay]

.
.

MsgBox (Replace(Date, "/", "_"))

 

[petes]

Today is not recognised in VB Script....Any other alternative??

Thanks

 

[RoryA]

You could use:

Sub ShowDate()
msgbox format(date, "mm_dd_yyyy")
end sub

 

[petes]

Guys I need this in VB script...

Only these formats are recognized by VB Script (Refer below URL)

VBScript Functions

 

[petes]

Text File will be stored as VBS to execute

Thanks!!

 

[RoryA]

If your regional settings are US, see post #4.

PS This being an Excel board, people will assume you want VBA since VBS has nothing to do with Excel.

 

[WarPigl3t]

You said that today() was not a vba method. My bad. But it is an excel function. So just call that function into a variable and split it.
Today = application.worksheetfunction.today()

Or use this...
Today = Format(Date.Now(), "mm/dd/yyyy")

Then the rest of the code...
var = split(Today,"/")
Output = var(0) & "_" & var(1) & "_" & var(2)
Msgbox Output