Click here to Skip to main content
Click here to Skip to main content

ASP FormatDate

, 13 Feb 2009 CPOL
Rate this:
Please Sign up or sign in to vote.
Date Format function for VBScript / Classic ASP

Introduction

Visual Basic's Format function for formatting dates is missing from VBScript.

Without Format, it can be difficult to yield custom formatted dates.

Using the FormatDate function described below, your worries are over!

Using the Code

First find the format string's length.

Next, loop through every character in the format string.

Begin building a format block.

Handle the format block when the character changes (meaning either a new format block is starting, or we need to persist a separator character).

The various supported format blocks are translated through the SELECT CASE statement and the output string (formatted date) is appended. The CASE ELSE statement at the end will append separator characters or anything not understood as a format block string.

Keep looping until we are one past the end, and the final block or character will be handled.

Function FormatDate(strDate, strDateFmt)
  dim strRet
  dim i  
  dim formatBlock
  dim formatLength
  dim charLast
  dim charCur
  
  formatLength = len(strDateFmt)
  
  for i = 1 to formatLength + 1
    ' grab the current character
    charCur = mid(strDateFmt, i, 1)
    
    if charCur = charLast then
        ' The block is not finished. 
        ' Continue growing the block and iterate to the next character.
        formatBlock = formatBlock & charCur
    else
        ' we have a change and need to handle the previous block
        select case formatBlock
        case "mmmm"
            strRet = strRet & MonthName(DatePart("m",strDate),False)
        case "mmm"
            strRet = strRet & MonthName(DatePart("m",strDate),True)
        case "mm"
            strRet = strRet & right("0" & DatePart("m",strDate),2)
        case "m"
            strRet = strRet & DatePart("m",strDate)
        case "dddd"
            strRet = strRet & WeekDayName(DatePart("w",strDate,1),False)
        case "ddd"
            strRet = strRet & WeekDayName(DatePart("w",strDate,1),True)
        case "dd"
            strRet = strRet & right("0" & DatePart("d",strDate),2)
        case "d"
            strRet = strRet & DatePart("d",strDate)
        case "o"
            strRet = strRet & intToOrdinal(DatePart("d",strDate))
        case "yyyy"
            strRet = strRet & DatePart("yyyy",strDate)
        case "yy"
            strRet = strRet & right(DatePart("yyyy",strDate),2)
        case "y"
            strRet = strRet & cInt(right(DatePart("yyyy",strDate),2))
        case else
            strRet = strRet & formatBlock
        end select
        ' Block handled.  
        ' Now reset the block and continue iterating to the next character.
        formatBlock = charCur
    end if
    
    charLast = charCur
  next 'i
 
  FormatDate = strRet
End Function

History

  • 5/5/2008 v1.0
  • 2/13/2009 v2.0

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

amattice
Software Developer (Senior) AccessVia, Inc.
United States United States
No Biography provided

Comments and Discussions

 
GeneralGood Work PinmemberDhillon19-Feb-09 10:19 
GeneralGreater example PinmemberDieter_Van_Vaalwater13-Feb-09 9:52 
GeneralCool! PinmemberMember 464791429-Jun-08 15:17 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web02 | 2.8.141015.1 | Last Updated 13 Feb 2009
Article Copyright 2008 by amattice
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid