Format a date in VBscript to alphanumeric

Question

Is there a way to format a date in vbscript to this: 30-Nov-2013 or even 30-November-2013? I've googled all day and i'm still coming up with nothing.

Answer 1

Try this:

document.write("The current system date is: ")
document.write(DatePart("d", Date) & "-" & MonthName(DatePart("m", Date)) & "-" & DatePart("yyyy", Date) )
document.write(DatePart("d", Date) & "-" & MonthName(DatePart("m", Date), 1) & "-" & DatePart("yyyy", Date) )

Use DatePart to get day, month and year from a date. Use MonthName to get month name.

Answer 2

使用DatePart的另一种方法是Day ， Month和Year函数：

Day(Date) & "-" & MonthName(Month(Date)) & "-" & Year(Date)

Answer 3

Or using FormatDateTime with vbLongDate (=1).

d = Split(FormatDateTime(Now, 1))
ReDim Preserve d(2)
d = Join(d, "-")
WScript.Echo d