This writes out the full date with the month as a word. If there is a better way to do this let me know. Leave comments if you want.
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: [ Long Date : March 8, 2002 ]
' Description:This writes out the full date with the month as a word. If there is a better way to do this let me know. Leave comments if you want.
' By: snowboardr
'
' Assumes:PWS / IIS
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=7318&lngWId=4'for details.'**************************************
Function WriteLongDate()
'//By Jason Howard
'//March 8, 2002
Dim ThisMonth
Dim ThisDay
Dim ThisYear
ThisMonth = month(date)
ThisDay = day(date)
ThisYear = year(date)
Select Case ThisMonth
Case 1
ThisMonth = "January"
Case 2
ThisMonth = "February"
Case 3
ThisMonth = "March"
Case 4
ThisMonth = "April"
Case 5
ThisMonth = "May"
Case 6
ThisMonth = "June"
Case 7
ThisMonth = "July"
Case 8
ThisMonth = "August"
Case 9
ThisMonth = "September"
Case 10
ThisMonth = "October"
Case 11
ThisMonth = "November"
Case 12
ThisMonth = "December"
End Select
Response.write(ThisMonth) & " " & ThisDay & ", " & ThisYear
set ThisMonth = Nothing
set ThisDay = Nothing
set ThisYear = Nothing
End Function
'To output this just do this anywhere on your page:
<% WriteLongDate %>
Hey here's a better way to do what you just did with the date, and the code is a lot shorter. <% 'March 8, 2002 Dim strDate strDate = Split (FormatDateTime(Date,1),",",2) Response.Write ( strDate(1) ) %> (If this comment was disrespectful, please report it.)
<% // Convertir une date en // Format: 01 janvier, 2002
function convertDate(oldDate) { var monthName = new Array("janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre");
var date = new Date(oldDate); var newDate = "Date de mise à jour: "; newDate += date.getDate(); newDate += " "; newDate += monthName[date.getMonth()]; newDate += ", "; newDate += date.getFullYear(); Response.Write(newDate); } %> (If this comment was disrespectful, please report it.)
[bateman]; You rock man, This is great. Easy "1" liner. Works like a charm.
Thank You
Wayne & Carr Barron Carrz-Fox-Fire Promotions (If this comment was disrespectful, please report it.)
4/22/2004 3:45:19 AM:
sir, i need code for differnce of 2 dates means,i want to calculate some operation which i have made already but not getting logic of differnce past date and present date. dates which
(If this comment was disrespectful, please report it.)
5/1/2005 8:33:37 PM:
wot if i want to retrive date from access database using SQL command in ASP?? have any answer??? pls reply back me at sanmah83@yahoo.com (If this comment was disrespectful, please report it.)
DateDiff(y,"StartDate","EndDate") (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 7 Users
3/8/2002 9:13:07 PM: 
