Lee's Code: Extract XSD Date and Time

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

Extract XSD Date and Time

By: Lee A. Shurie
Subject:	ASP - Extract XSD Date and Time
Language:	ASP
Rating:	Rated 7 times. Rate or review this item: 1 2 3 4 5 Read Reviews
See it in action
Information Here is a classic ASP script I wrote to convert XSD formatted date and time info to vbGeneralDate format.
Code <% '<!-- Function to convert date and time from XSD date-time format [-]CCYY-MM-DDThh:mm:ss[Z\|(+\|-)hh:mm] to vbGeneralDate format MM/DD/YYYY HH:MM:SS [AM/PM] --> '<!-- Written by Lee Shurie, lee@ievolveonline.com. --> Function ExtractDateXSD(ThisDate) If inStr(ThisDate, "T") Then 'split the date part and the time part of the XSD string DateArray = Split(ThisDate, "T") strDatePart = DateArray(0) strTimePart = DateArray(1) If inStr(strDatePart, "-") Then 'Split out the month, day, and year DatePartArray = Split(strDatePart, "-") varThisYear = DatePartArray(0) varThisMonth = DatePartArray(1) varThisDay = DatePartArray(2) strExtractedDate = varThisMonth & "/" & varThisDay & "/" & varThisYear End If If Len(strTimePart) > 8 Then 'Separate the time component from the GMT offset strOffset = Right(strTimePart, 6) strTimePart = Left(strTimePart, 8) End If If inStr(strTimePart, ":") Then 'split the hours, minutes, and seconds TimePartArray = Split(strTimePart, ":") varThisHour = TimePartArray(0) varThisMinute = TimePartArray(1) varThisSecond = TimePartArray(2) strExtractedDate = strExtractedDate & " " & varThisHour & ":" & varThisMinute & ":" & varThisSecond & " " & strAmPm End If If inStr(strOffset, ":") Then 'Get the offset hours and minutes OffsetArray = Split(strOffset, ":") varOffsetHours = OffsetArray(0) varOffsetMinutes = OffsetArray(1) End If If isEmpty(varOffsetHours) OR Not isNumeric(varOffsetHours) Then varOffsetHours = 0 If isEmpty(varOffsetMinutes) OR Not isNumeric(varOffsetMinutes) Then varOffsetMinutes = 0 End If If isDate(strExtractedDate) Then strExtractedDate = FormatDateTime(strExtractedDate, vbGeneralDate) If varOffsetHours <> 0 Then strExtractedDate = DateAdd("h", varOffsetHours, strExtractedDate) If varOffsetMinutes <> 0 Then strExtractedDate = DateAdd("n", varOffsetMinutes, strExtractedDate) strExtractedDate = FormatDateTime(strExtractedDate, vbGeneralDate) ExtractDateXSD = strExtractedDate Else ExtractDateXSD = "Error: extracted date is not valid." End If End Function '<!-- How to call the function --> Response.Write "<font face='arial' size=2>" Response.Write "<br>XSD Format: 2010-07-13T04:32:47+00:00" Response.Write "<br>vbGeneralDate Format: <strong><em>" & ExtractDateXSD("2010-07-13T04:32:47+00:00") & "</em></strong>" 'or strDate = "2010-06-01T22:32:47-07:00" Response.Write "<br> <br>XSD Format: " & strDate Response.Write "<br>vbGeneralDate Format: <strong><em>" & ExtractDateXSD(strDate) & "</em></strong><br> " Response.Write "</font>" %>
Instructions Place the function in your ASP page or in an included script.
Keywords:ASP, xsd date time, XSD date, extract


	HOME \| ABOUT LEE \| CONTACT \| SEARCH

Copyright © 2001 - 2010 by Lee A. Shurie