
	ASP Shopping Cart, Forum & BBS - all for $20 from CodeToad Plus!

Home || ASP | ASP.Net | C++/C# | DHTML | HTML | Java | Javascript | Perl | VB | XML || CodeToad Plus! || Forums || RAM

Search Site:

Home » ASP » Article

A Better Moustrap: FmtDate to replace FormatDateTime

Article by:

Jeremy M (5/15/2004)

	Add to Favourites
	Tell a friend

Sponsored by:

FindMyHosting - Web Hosting Search

Summary:

An example of a simple-to-use replacement for the visual basic script function FormatDateTime.

Viewed: 5146 times

Rating (18 votes):

4.2 out of 5

Rate this Article

Read Comments

Post Comments

A Better Moustrap: FmtDate to replace FormatDateTime

Have you ever been frustrated with the lack of options with visual basic script's built in function FormatDateTime? If so, then this function is for you- and it demonstrates how simple it is to build very complex search-and-relace functions.

Once you've added the two functions below to your ASP or VBS file, you can call the function just like any other function. Two parameters are required, the first is the date/time value you want to re-format, and the second parameter is the format you want. For all the different options you can use in the format, check out the comments at the top of FmtDate.

I'm not the original author of this function, but I've added and changed a lot of it to make it more useful. I've used it and modified so much for so many years, I don't even know where the original version came from.

Here it is, have fun!

example:

Select All Code

FmtDate("1/1/2003","%B %d%O, %Y (%a)")

returns

Select All Code

January 1st, 2003 (Wednesday)

Here's the function(s). You need both for it to work properly! FmtDate calls

Select All Code

Function FmtDate(byVal strDate, byRef strFormat)

 ' Accepts strDate as a valid date/time,
 ' strFormat as the output template.
 ' The function finds each item in the
 ' template and replaces it with the
 ' relevant information extracted from strDate
'%B %d%O,%Y
 ' Template items (example)
 ' %m Month as a decimal (02)
 ' %B Full month name (February)
 ' %b Abbreviated month name (Feb )
 ' %d Day of the month (23)
 ' %O Ordinal of day of month (eg st or rd or nd)
 ' %j Day of the year (54)
 ' %Y Year with century (1998)
 ' %y Year without century (98)
 ' %w Weekday as integer (0 is Sunday)
 ' %a Abbreviated day name (Fri)
 ' %A Weekday Name (Friday)
 ' %H Hour in 24 hour format (24)
 ' %h Hour in 12 hour format (12)
 ' %N Minute as an integer (01)
 ' %n Minute as optional if minute <> 0
 ' %S Second as an integer (55)
 ' %P AM/PM Indicator (PM)

' On Error Resume Next

 Dim intPosItem
 Dim int12HourPart
 Dim str24HourPart
 Dim strMinutePart
 Dim strSecondPart
 Dim strAMPM

 ' Insert Month Numbers
 strFormat = Replace(strFormat, "%m", _
          DatePart("m", strDate), 1, -1, vbBinaryCompare)

 ' Insert non-Abbreviated Month Names
 strFormat = Replace(strFormat, "%B", _
          MonthName(DatePart("m", strDate), _
          False), 1, -1, vbBinaryCompare)

 ' Insert Abbreviated Month Names
 strFormat = Replace(strFormat, "%b", _
          MonthName(DatePart("m", strDate), _
          True), 1, -1, vbBinaryCompare)

 ' Insert Day Of Month
 strFormat = Replace(strFormat, "%d", _
          DatePart("d",strDate), 1, _
          -1, vbBinaryCompare)

 ' Insert Day of Month Ordinal (eg st, th, or rd)
 strFormat = Replace(strFormat, "%O", _
          GetDayOrdinal(Day(strDate)), _
          1, -1, vbBinaryCompare)

 ' Insert Day of Year
 strFormat = Replace(strFormat, "%j", _
          DatePart("y",strDate), 1, _
          -1, vbBinaryCompare)

 ' Insert Long Year (4 digit)
 strFormat = Replace(strFormat, "%Y", _
          DatePart("yyyy",strDate), 1, _
          -1, vbBinaryCompare)

 ' Insert Short Year (2 digit)
 strFormat = Replace(strFormat, "%y", _
          Right(DatePart("yyyy",strDate),2), _
          1, -1, vbBinaryCompare)

 ' Insert Weekday as Integer (eg 0 = Sunday)
 strFormat = Replace(strFormat, "%w", _
          DatePart("w",strDate,1), 1, _
          -1, vbBinaryCompare)

 ' Insert Abbreviated Weekday Name (eg Sun)
 strFormat = Replace(strFormat, "%a", _
          WeekDayName(DatePart("w",strDate,1),True), 1, _
          -1, vbBinaryCompare)

 ' Insert non-Abbreviated Weekday Name
 strFormat = Replace(strFormat, "%A", _
          WeekDayName(DatePart("w",strDate,1),False), 1, _
          -1, vbBinaryCompare)

 ' Insert Hour in 24hr format
 str24HourPart = DatePart("h",strDate)
 If Len(str24HourPart) < 2 then str24HourPart = "0" & _
                                                 str24HourPart
 strFormat = Replace(strFormat, "%H", str24HourPart, 1, _
          -1, vbBinaryCompare)

 ' Insert Hour in 12hr format
 int12HourPart = DatePart("h",strDate) Mod 12
 If int12HourPart = 0 then int12HourPart = 12
 strFormat = Replace(strFormat, "%h", int12HourPart, 1, _
          -1, vbBinaryCompare)

 ' Insert Minutes
 strMinutePart = DatePart("n",strDate)
 If Len(strMinutePart) < 2 then _
          strMinutePart = "0" & strMinutePart
 strFormat = Replace(strFormat, "%N", strMinutePart, _
          1, -1, vbBinaryCompare)

 ' Insert Optional Minutes
 If CInt(strMinutePart) = 0 then
  strFormat = Replace(strFormat, "%n", "", 1, _
           -1, vbBinaryCompare)
 Else
  If CInt(strMinutePart) < 10 then _
           strMinutePart = "0" & strMinutePart
  strMinutePart = ":" & strMinutePart
  strFormat = Replace(strFormat, "%n", strMinutePart, _
           1, -1, vbBinaryCompare)
 End if

 ' Insert Seconds
 strSecondPart = DatePart("s",strDate)
 If Len(strSecondPart) < 2 then _
          strSecondPart = "0" & strSecondPart
 strFormat = Replace(strFormat, "%S", strSecondPart, 1, _
          -1, vbBinaryCompare)

 ' Insert AM/PM indicator
 If DatePart("h",strDate) >= 12 then
   strAMPM = "PM"
 Else
   strAMPM = "AM"
 End If

 strFormat = Replace(strFormat, "%P", strAMPM, 1, _
          -1, vbBinaryCompare)

FmtDate = strFormat

End Function ' FmtDate

Function GetDayOrdinal(byVal intDay)
 ' Accepts a day of the month as an integer and returns the
 ' appropriate suffix

 Dim strOrd

 Select Case right(intDay,1)
 Case 1
  strOrd = "st"
 Case 2
  strOrd = "nd"
 Case 3
  strOrd = "rd"
 Case Else
  strOrd = "th"
 End Select

 GetDayOrdinal = strOrd
End Function ' GetDayOrdinal

Useful Links

Web Hosting

Domain Names

Ram Upgrades

CodeToad Experts

Can't find the answer?
Our Site experts are answering questions for free in the CodeToad forums

Rate this article: Poor Excellent

View highlighted Comments

User Comments on 'A Better Moustrap: FmtDate to replace FormatDateTime'

To post comments you need to become a member. If you are already a member, please log in .

RELATED ARTICLES
MagicGrid by Abhijeet Kaulgud MagicGrid is an all-in-one grid for ASP programmers. It is a 3 Level Hierarchial Grid. You can Add, Edit, Delete Items under all the three levels. You can also cut-copy-paste Items from one level to other, It happens just by drag & drop!

ASP Format Date and Time Script by Jeff Anderson An ASP script showing the variety of date and time formats possible using the FormatDateTime Function.

Creating a Dynamic Reports using ASP and Excel by Jeff Anderson A simple way to generate Excel reports from a database using Excel.

ASP Shopping Cart by CodeToad Plus! Complete source code and demo database(Access, though SQL compatible) to an ASP database driven e-commerce shopping basket, taking the user through from product selection to checkout. Available to CodeToad Plus! Members

Create an ASP SQL Stored Procedure by Jeff Anderson A beginners guide to setting up a stored procedure in SQL server and calling it from an ASP page.

Email validation using Regular Expression by Jeff Anderson Using regular expression syntax is an exellent way to thoroughly validate an email. It's possible in ASP.

The asp:checkbox and asp:checkboxlist control by David Sussman, et al Checkboxes are similar to radio buttons, and in HTML, they were used to allow multiple choices from a group of buttons.

Creating an SQL Trigger by Jeff Anderson A beginners guide to creating a Trigger in SQL Server

Find Visitor Geographical location from IP address using ASP by Per Soderlind Where are your internet visitors coming from? Using simple ASP and the free GEOIP Database from Maxmind its quite easy to find out

ASP.NET Forum Source Code by ITCN Complete open source website Forum and Discussion Board programmed in Microsoft dot Net 1.1 Framework with Visual Basic.

Recent Forum Threads

•	execute an Excel macro when the sheet is changed from ASP.NET
•	Re: form
•	form
•	Re: Client-Side Progress Window
•	Re: Help: Trouble with z-Index and SELECT lists
•	Here ur answer ........Check it baby
•	MS Access connection in JSP
•	Re: How to associate a button in DataGrid button column with a javascript function (ASP.NET)???
•	Re: DHTML Menu Flashes with StyleSheets applied in IE

Recent Articles

	Communicating with the Database (Using ADO)
	MagicGrid
	Simple Thumbnail Browsing Solution
	Type Anywhere
	A Better Moustrap: FmtDate to replace FormatDateTime
	ASP.NET Forum Source Code
	Internal Search Engine
	Javascript Growing Window
	Simple date validation
	Search engine friendly URLs using ASP.NET (C#.NET)

Site Survey

Help us serve you better. Take a five minute survey. Click here!

submit a link - privacy - contact - advertise - hot links - link to us - submit your article