Lee's Code: Convert DateTime to XSD format

Lee's Code A web programmer's toolbox.

SEARCH SITE

HOME | ABOUT LEE | CONTACT | SEARCH

Navigation

ASP Code and Tips
CSS Code and Tips
HTML Code and Tips
JavaScript
RSS Code and Tips
T-SQL Scripts and Tips
XML Code and Tips

Lee's Code RSS Feed

Latest Additions

ASP - Create Radio But...
Extract XSD Date and T...
Convert DateTime to XS...
Form Button Working an...
Refresh Opening Page...

Links

Recommendations

Evolve Online

Powered by
Evolve Online

Convert DateTime to XSD format

By: Lee A. Shurie
Subject:	ASP XSD Date Time Format
Language:	ASP
Rating:	Rated 2 times. Rate or review this item: 1 2 3 4 5
See it in action
Information I couldn't find a function to convert date and time to XSD DateTime format ( [-]CCYY-MM-DDThh:mm:ss[Z\|(+\|-)hh:mm] ) so I wrote one. Use this function to convert any of the common date/time formats to XSD Date Time Format which is sometimes used in data-transfer applications and often in XML feeds.
Code <% '<!-- Function to convert date and time to XSD date-time format [-]CCYY-MM-DDThh:mm:ss[Z\|(+\|-)hh:mm] --> '<!-- Offset is the timexone offset from GMT (defaults to zero). --> '<!-- Offset format is [+/-]HH:MM --> '<!-- Written by Lee Shurie, lee@ievolveonline.com. --> Function FormatDateXSD(ThisDate, Offset) varThisDate = ThisDate If Not isDate(varThisDate) Then varThisDate = Now() Response.Write "<br>Date: " & varThisDate If Offset = "" Then Offset = "+00:00" If Not inStr(Offset, ":") > 0 Then Offset = Offset & ":00" Response.Write "<br>Offset from Zulu: " & Offset OffsetArray = Split(Offset, ":") OffsetHours = OffsetArray(0) If Len(OffsetHours) < 3 Then If Left(OffsetHours, 1) <> "+" AND Left(OffsetHours, 1) <> "-" Then OffsetHours = "-" & OffsetHours Else OffsetHours = Left(OffsetHours, 1) & "0" & Right(OffsetHours, 1) End If End If OffsetMinutes = OffsetArray(1) If Len(OffsetMinutes) = 1 Then OffsetMinutes = "0" & OffsetMinutes varThisYear = Year(varThisDate) varThisMonth = Month(varThisDate) If Len(varThisMonth) = 1 Then varThisMonth = "0" & varThisMonth varThisDay = Day(varThisDate) If Len(varThisDay) = 1 Then varThisDay = "0" & varThisDay varThisHour = Hour(varThisDate) If Len(varThisHour) = 1 Then varThisHour = "0" & varThisHour varThisMinute = Minute(varThisDate) If Len(varThisMinute) = 1 Then varThisMinute = "0" & varThisMinute varThisSecond = Second(varThisDate) If Len(varThisSecond) = 1 Then varThisSecond = "0" & varThisSecond strXSDFormattedDate = varThisYear & "-" & varThisMonth & "-" & varThisDay & "T" & varThisHour & ":" & varThisMinute & ":" & varThisSecond If Not InStr(OffsetHours, "00") > 0 OR OffsetMinutes <> "00" Then strXSDFormattedDate = strXSDFormattedDate & OffsetHours & ":" & OffsetMinutes End If FormatDateXSD = strXSDFormattedDate End Function '<!-- How to call the function --> Response.Write "<font face='arial' size=2>" Response.Write "<br>XSD Format: <strong><em>" & FormatDateXSD(Now(), "00:00") & "</em></strong><br> " 'or varDate = "5/16/2010 8:13:19 AM" Response.Write "<br>XSD Format: <strong><em>" & FormatDateXSD(varDate, "-7:00") & "</em></strong><br> " 'or varDate = "1/23/2010 8:13:19 PM" strOffset = "+5:30" Response.Write "<br>XSD Format: <strong><em>" & FormatDateXSD(varDate, strOffset) & "</em></strong><br> " Response.Write "</font>" %>
Instructions Copy the function into your ASP page and call it as instructed in the code sample. You can also put the function in a separate ASP page and # include it in your main ASP page.
Keywords:asp function convert date time to xsd date format


	HOME \| ABOUT LEE \| CONTACT \| SEARCH

Copyright © 2001 - 2010 by Lee A. Shurie