Comments on VBScript Date Format Functions - ILoveJackDaniels.com

Comment on VBScript Date Format Functions

Comment by Steven Cheshire ( http:// )

I'm trying to call a function in ASP VBScript

<%=Month(Now())%>
Which qives the result for the current month as
1, 2, 3 etc to 12 depending upon the current month.

However, I need the month to be returned as a double number... i.e February to be returned as 02 as opposed to 2 which happens with <%=Month(Now())%>

Any help much appreciated.

Comment on VBScript Date Format Functions

Comment by Nerijus ( http:// )

Matts code works for me. Thank you

Comment on VBScript Date Format Functions

Comment by Randy Syring ( http://rcs-comp.com )

Note that in my summary function above, there is a bug that can set the local incorrectly.

' Test to see if intTimeStamp looks valid. If not, they have passed a normal date
if not (isnumeric(intTimeStamp)) then
if isdate(intTimeStamp) then
intTimeStamp = DateDiff("S", "01/01/1970 00:00:00", intTimeStamp)
else
formatDate = ""
'RETURN LOCALE TO ORIGINAL SETTING
SetLocale(OriginalLocale)
exit function
end if
end if

Comment on VBScript Date Format Functions

Comment by Matt in Richmond, Virginia ( http:// )

I like the idea, but decided to modify it to use traditional VB date/time formatting. Here is what I've come up with. I have only tested it as a standalone vbscript, but it should be fairly robust and bullet proof.

You pass usrFormatDateTime two parameters:

* A date (preferably a valid one or it will default to Now()).
* A standardized date/time format, e.g. ddd mm/dd/yyyy

The script uses regular expressions to trap the correct sequences and return a properly formatted date.

Example:

usrFormatDateTime("03/17/2007","dddd MMMM dd, yyyy")

returns Saturday, March 17, 2007

Function usrFormatDateTime(dtmInputDate,strDateTimeFormat)
'Required Parameters:
'
'dtmInputDate : A Date String or Date Value.
'strDateTimeFormat : A String specifying the desired format using Microsoft MSDN standards.
'
'Date/Time Standard Formats - Case-Sensitive.
'********************************************
'M : Months 1-12
'MM : Months 01-12
'MMM : Month Names in three-char abbreviated format
'MMMM : Month Names
'd : Days 1-31
'dd : Days 01-31
'ddd : Day Names in three-char abbreviated format
'dddd : Day Names
'yy : Two-digit Year
'yyyy : Four-digit Year
'h : Hours 1-12, 12-hour format
'hh : Hours 01-12, 12-hour format
'H : Hours 0-23, 24-hour format
'HH : Hours 00-23,24-hour format
'm : Minutes 0-59
'mm : Minutes 00-59
's : Seconds 0-59
'ss : Seconds 00-59
't : AM or PM

'Use Current Date and Time if value passed is not a date.
If Not IsDate(dtmInputDate) then
dtmInputDate = Now()
End if

Dim strFormattedDateTime

'Prepare a regular expression object to manage search and replace of formatting strings.
Dim objFormattedDateRegExp
Set objFormattedDateRegExp = New RegExp
objFormattedDateRegExp.IgnoreCase = False
objFormattedDateRegExp.Global = True

strFormattedDateTime = strDateTimeFormat

'The following presume that Sunday is first day of the week.
'Refer to documentation on the WEEKDAYNAME() and WEEKDAY() functions, to adjust if needed.
Dim intMonth
Dim intDay
Dim intYear
Dim intHour
Dim intMinute
Dim intSecond
Dim strWeekday
Dim strMonth
Dim strAMPM

intMonth = Month(dtmInputDate)
intDay = Day(dtmInputDate)
intYear = Year(dtmInputDate)
intHour = Hour(dtmInputDate)
intMinute = Minute(dtmInputDate)
intSecond = Second(dtmInputDate)
strWeekday = WeekdayName(Weekday(dtmInputDate))
strMonth = MonthName(intMonth)
strAMPM = "AM"

'Replace the Month format.
'************************
objFormattedDateRegExp.Pattern = "MMMM"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, strMonth)
objFormattedDateRegExp.Pattern = "MMM"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, UCase(Left(strMonth,3)))
objFormattedDateRegExp.Pattern = "MM"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right("0" & intMonth,2))
'Watch out for m's in the month name or month name abbrev.
objFormattedDateRegExp.Pattern = "(M(?=[^AaBbOo])|M$)~^([Ee]M)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intMonth)

'Replace the Day format.
'************************
objFormattedDateRegExp.Pattern = "dddd"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, strWeekday)
objFormattedDateRegExp.Pattern = "ddd"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, UCase(Left(strWeekday,3)))
objFormattedDateRegExp.Pattern = "dd"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right("0" & intDay,2))
'Watch out for m's in the day name or day name abbrev.
objFormattedDateRegExp.Pattern = "(d(?=[^EeAaNn])|d$)^([Nn]d|[Ss]d|[Ii]d|[Rr]d)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intDay)

'Replace the Year format.
'************************
objFormattedDateRegExp.Pattern = "yyyy"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intYear)
objFormattedDateRegExp.Pattern = "yy"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right(intYear,2))

'Replace the Hour format.
'************************
'24-Hour format
objFormattedDateRegExp.Pattern = "HH"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right("0" & intHour,2))
objFormattedDateRegExp.Pattern = "(H(?=[^Uu])|H$)^([Cc]H|[Tt]H)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intHour)

'12-Hour format
'At this point, you are done with the intHour formatted in 24-hour time, so drop it to a 12-Hour format.
If intHour > 12 Then
intHour = intHour - 12
strAMPM = "PM"
End If
If intHour = 0 Then
intHour = 12
End If
objFormattedDateRegExp.Pattern = "hh"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right("0" & intHour,2))
objFormattedDateRegExp.Pattern = "(h(?=[^Uu])|h$)^([Cc]h|[Tt]h)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intHour)

'Replace the Minute format.
'************************
objFormattedDateRegExp.Pattern = "mm"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right("0" & intMinute,2))
objFormattedDateRegExp.Pattern = "(m(?=[^AaBbOo])|m$)^([Ee]m)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intMinute)

'Replace the Second format.
'************************
objFormattedDateRegExp.Pattern = "ss"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, Right("0" & intSecond,2))
objFormattedDateRegExp.Pattern = "(s(?=[^TtEeUuDdAa])|s$)^([Uu]s|[Ee]s|[Rr]s)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, intSecond)

'Replace the AM/PM format.
'************************
objFormattedDateRegExp.Pattern = "(t(?=[^HhUuEeOo])|t$)^([Ss]t|[Aa]t|[Pp]t|[Cc]t)"
strFormattedDateTime = objFormattedDateRegExp.Replace(strFormattedDateTime, strAMPM)

usrFormatDateTime = strFormattedDateTime

End Function

Comment on VBScript Date Format Functions

Comment by Hugh Abbott ( http://www.bespokelearningtools.com )

Worked for me - love it!
Also - really like the clean design of your site - simple, clean, bit of colour - loved it!

Keep it up.
Hugh Abbott
hugh.abbott@bespokelearningtools.com

Comment on VBScript Date Format Functions

Comment by Pisu ( http://www.thepisu.tk )

Sorry UDate fuction was wrong...

function UDate(oldDate)
Dim od, offset, nd, startDST, endDST
od = oldDate
' fill in your known bias here!
offset = 1
' find first Sunday in April
for i = 1 to 7
if weekday("4/" & i & "/" & year(od))=1 then
startDST = cdate("4/" & i & "/" & year(od))
exit for
end if
next
' find last Sunday in October
for i = 31 to 25 step -1
if weekday("10/" & i & "/" & year(od))=1 then
endDST = cdate("10/" & i & "/" & year(od))
exit for
end if
next
' subtract hour from offset if within DST
if cdate(od) >= startDST and cdate(od) < endDST then
offset = offset + 1
end if
nd = dateadd("h", offset*(-1), od)
UDate = DateDiff("s", "01/01/1970 00:00:00", nd)
end function

Comment on VBScript Date Format Functions

Comment by Pisu ( http://www.thepisu.tk )

I found a problem: Unix timestamp is UTC (timezone GMT without daylight saving), ASP Date is localized... So in example in Italy (GMT+1) in daylight saving period, the function "unUDate" give me a result 2 hour in advance... I found this solution (you have to set your offset from GMT...):

function UDate(oldDate)
Dim od, offset, nd, startDST, endDST
UDate = DateDiff("s", "01/01/1970 00:00:00", oldDate)
od = DateAdd("s", intTimeStamp, "01/01/1970 00:00:00")
' fill in your known bias here!
offset = 1
' find first Sunday in April
for i = 1 to 7
if weekday("4/" & i & "/" & year(od))=1 then
startDST = cdate("4/" & i & "/" & year(od))
exit for
end if
next
' find last Sunday in October
for i = 31 to 25 step -1
if weekday("10/" & i & "/" & year(od))=1 then
endDST = cdate("10/" & i & "/" & year(od))
exit for
end if
next
' subtract hour from offset if within DST
if cdate(od) >= startDST and cdate(od) < endDST then
offset = offset + 1
end if
nd = dateadd("h", offset*(-1), od)
unUDate = nd
end function

function unUDate(intTimeStamp)
Dim od, offset, nd, startDST, endDST
od = DateAdd("s", intTimeStamp, "01/01/1970 00:00:00")
' fill in your known bias here!
offset = 1
' find first Sunday in April
for i = 1 to 7
if weekday("4/" & i & "/" & year(od))=1 then
startDST = cdate("4/" & i & "/" & year(od))
exit for
end if
next
' find last Sunday in October
for i = 31 to 25 step -1
if weekday("10/" & i & "/" & year(od))=1 then
endDST = cdate("10/" & i & "/" & year(od))
exit for
end if
next
' subtract hour from offset if within DST
if cdate(od) >= startDST and cdate(od) < endDST then
offset = offset + 1
end if
nd = dateadd("h", offset, od)
unUDate = nd
end function

Comment on VBScript Date Format Functions

Comment by Randy Syring ( http://rcswebsolutions.wordpress.org/ )

As best as I can tell, here is the function with all the updates from the comments:

function formatDate(format, intTimeStamp)
Dim monthname()
Redim monthname(12)
monthname(1) = "January"
monthname(2) = "February"
monthname(3) = "March"
monthname(4) = "April"
monthname(5) = "May"
monthname(6) = "June"
monthname(7) = "July"
monthname(8) = "August"
monthname(9) = "September"
monthname(10) = "October"
monthname(11) = "November"
monthname(12) = "December"

dim unUDate, A

dim OriginalLocale
dim res
OriginalLocale = GetLocale
res = SetLocale("en-gb")

' Test to see if intTimeStamp looks valid. If not, they have passed a normal date
if not (isnumeric(intTimeStamp)) then
if isdate(intTimeStamp) then
intTimeStamp = DateDiff("S", "01/01/1970 00:00:00", intTimeStamp)
else
response.write "Date Invalid"
exit function
end if
end if

if (intTimeStamp=0) then
unUDate = now()
else
unUDate = DateAdd("s", intTimeStamp, "01/01/1970 00:00:00")
end if

unUDate = trim(unUDate)

'bug fix for midnight problems
If (Len(unUDate) <= 11) Then unUDate = Trim(unUDate) & " 00:00:00"

dim startM : startM = 1
dim startD : startD = InStr(startM, unUDate, "/")+1
dim startY : startY = InStr(startD, unUDate, "/")+1
dim startHour : startHour = InStr(startY, unUDate, " ")+1
dim startMin : startMin = InStr(startHour, unUDate, ":")+1
dim startSec : startSec = InStr(startMin+1, unUDate, ":")+1
dim dateMonth : dateMonth = mid(unUDate, startD, ((startY - 1) - startD))
dim dateDay : dateDay = mid(unUDate, 1, ((startD - 1) - 1))
dim dateYear : dateYear = Year(unUDate)
dim dateHour : dateHour = mid(unUDate, startHour, ((startMin - startHour) - 1))
dim dateMinute : dateMinute = mid(unUDate, startMin, 2)
dim dateSecond : dateSecond = mid(unUDate, InStr(startMin, unUDate, ":") + 1, 2)

format = replace(format, "%Y", right(dateYear, 4))
format = replace(format, "%y", right(dateYear, 2))
format = replace(format, "%m", dateMonth)
format = replace(format, "%n", cint(dateMonth))

' Response.Write CStr(cint(dateMonth))
' Response.Flush

format = replace(format, "%F", monthname(cint(dateMonth)))
format = replace(format, "%M", left(monthname(cint(dateMonth)), 3))
format = replace(format, "%d", dateDay)
format = replace(format, "%j", cint(dateDay))
format = replace(format, "%h", mid(unUDate, startHour, 2))
format = replace(format, "%g", cint(mid(unUDate, startHour, 2)))

if (cint(dateHour) > 12) then
A = "PM"
else
A = "AM"
end if
format = replace(format, "%A", A)
format = replace(format, "%a", lcase(A))

if (A = "PM") then format = replace(format, "%H", Right("00" & dateHour - 12, 2))
format = replace(format, "%H", dateHour)
if (A = "PM") then format = replace(format, "%G", left("0" & cint(dateHour) - 12, 2))
format = replace(format, "%G", cint(dateHour))

format = replace(format, "%i", dateMinute)
format = replace(format, "%I", cint(dateMinute))
format = replace(format, "%s", dateSecond)
format = replace(format, "%S", cint(dateSecond))
format = replace(format, "%L", WeekDay(unUDate))
format = replace(format, "%D", left(WeekDayName(WeekDay(unUDate)), 3))
format = replace(format, "%l", WeekDayName(WeekDay(unUDate)))
format = replace(format, "%U", intTimeStamp)
format = replace(format, "11%O", "11th")
format = replace(format, "1%O", "1st")
format = replace(format, "12%O", "12th")
format = replace(format, "2%O", "2nd")
format = replace(format, "13%O", "13th")
format = replace(format, "3%O", "3rd")
format = replace(format, "%O", "th")

formatDate = format
res = SetLocale(OriginalLocale)

end function

Comment on VBScript Date Format Functions

Comment by Ray ( http:// )

Why not just use the built-in functions like Month(unUDate), Day(unUDate), Year(unUDate), Hour(unUDate), Minute(unUDate), Second(unUDate)?

And why would you use a Unix Date if you unUDate it in formatDate()?

Comment on VBScript Date Format Functions

Comment by Ray ( http:// )

I fixed the midnight problem by adding the following line just above the dim statements:

If (Len(unUDate) <= 11) Then unUDate = Trim(unUDate) & " 00:00:00"

But, doesn't the month come before the day in UK notation?
Like 03/25/2007?