date value and timestamps

[middletree]

I know that if I have a full timestamp, and wrap the DateValue function
around it, it will give me mm/dd/yyyy. I can't seem to find a similar
function which would return a 2-digit year. Is there such a thing?

 

[Ray at]

AFAIK, no. Just like you can't do a formatdatetime and return "2:32 PM"
It's either "2:32:00 PM" or "14:32." I think that you'll have to manipulate
your date manually with some string manipulations or DatePart function to
return the date in the two digit year format. Just be aware that your
server may explode and your car will burst into flames when the clock
strikes midnight on the night of 12/31/2099.

Ray at work

 

[Ray at]

With default regional settings, that will also return the four digit year.

Ray at work

 

[middletree]

Thanks!

Interesting. I was not aware of that.
In that case, the "write your own" method:

Function shortDateString( oDate )
str = month( oDate ) & "/"
str = str & day( oDate ) & "/"
str = str & right( Year( oDate ), 2 )
shortDateString = str
End Function

Response.Write( shortDateString( Date ) )

Regards,
Peter

 

[dlbjr]

This will run faster:

Function shortDateString(oDate)
If IsDate(oDate) Then
Dim ar(4)
ar(0) = Month(oDate)
ar(1) = "/"
ar(2) = Day(oDate)
ar(3) = "/"
ar(4) = Right(Year(oDate),2)
shortDateString = Join(ar,"")
End If
End Function

-dlbjr

Discerning resolutions for the alms