Regular Time

I have been looking for an easy way to to use the VBScript FormatDateTime function to get me a time like: 3:47 PM.
For whatever reason.. you can't do that! So try this:
<%

Response.Write sTime(Now())
Private Function sTime(dtime)
hr = hour(dtime)
mn = minute(dtime)
  if hr > 12 then
  hr = hr - 12
  ampm = "PM"
  else
  ampm = "AM"
  end if
IF len(mn) = 1 then mn = 0 & mn

sTime = hr & ":" & mn & " " & ampm
End Function

%>


The Result: -3:12 PM

NOTE: This is SERVER time, not client time!

Thanks for the suggestion Ellen!
9:12 AM

asp time timepart time part


Back To Top
© 1998 - 2014 psacake.com | My3C's

Version 7.0a | Advertise on this site