date format

-Dman100- · #1 (**permalink**) 09-15-04, 20:34

I'm using FormatDateTime with vbLongDate in the following line:

<%=FormatDateTime((rsBlogEntry.Fields.Item("blogDa te").Value), vbLongDate)%>

Which returns the format:
Wednesday, September 15, 2004

I was looking at the different date formats and couldn't find one that drops the day and just returns:

September 15, 2004

Is there a way to format the date this way? Thanks.
-Dman100-

rokslide · #2 (**permalink**) 09-22-04, 19:44

byo - build your own.... unfortunately... try this...

Code:

Function FormatDmanDate(myDate)
  Dim sMonth, sDay, sYear, tmpDate
  sMonth = MonthName(Month(myDate), false)
  sDay = Day(myDate)
  sYear = Year(myDate)
  tmpDate = sMonth & " " & sDay & ", " & sYear
  FormatDManDate = tmpDate
End Function

should be close hopefully....

Seppuku · #3 (**permalink**) 09-24-04, 11:15

Or you could split the original on the coma/space..

Code:

Dim newDate, dateArray
newDate = FormatDateTime((rsBlogEntry.Fields.Item("blogDate").Value), vbLongDate)

dateArray = Split(newDate, ", ")
newDate = dateArray(1) & ", " & dateArray(2)

Or go from the first occurance of the coma/space

Code:

Dim newDate
newDate = FormatDateTime((rsBlogEntry.Fields.Item("blogDate").Value), vbLongDate)

newDate = Mid(newDate, InStr(newDate, ", "), Len(newDate))

Many ways to skin a cat!

Internet Services

Web Development

Digital Marketing

Consumer Tech