Format Date with No Separators

The FormatDateNoSep function returns mmddyyyy, or mmddyy.

Syntax:

noseparators = FormatDateNoSep(datevar,2 or 4)

Example Usage:

<% = FormatDateNoSep(date(),2) %>

Returns: 031110

and

<% = FormatDateNoSep(date(),4) %>

Returns: 03112010

ASP Source Code:
<%
Function FormatDateNoSep(DateValue, yrDig)
    Dim strYYYY
    Dim strMM
    Dim strDD

        strYYYY = CStr(DatePart("yyyy", DateValue))

        if yrDig = 2 then strYYYY = Right(strYYYY, 2)

        strMM = CStr(DatePart("m", DateValue))
        If Len(strMM) = 1 Then strMM = "0" & strMM

        strDD = CStr(DatePart("d", DateValue))
        If Len(strDD) = 1 Then strDD = "0" & strDD

        FormatDateNoSep = strMM & strDD & strYYYY

End Function
%>

My3C's
perrychicker

Back | Tell A Friend | Search this Site
© 1998 - 2010 psacake.com
Version 3.23

Send me One Million FREE Guaranteed Visitors