PMilTime Function

PMilTime Function:

The PMilTime function converts a normal time to a 24 hour military time.

Syntax:

time = PMilTime(timeinput)

Example Usage:

<%
response.write PMilTime("1:15 pm")
 ' returns 13:15

response.write PMilTime("1:15")
 ' returns 01:15

response.write PMilTime("6:32 pm")
 ' returns 18:32

response.write PMilTime("1:01")
 ' returns 01:01
%>

ASP Source Code:

<%
Private Function PMilTime(byVal dtime)
	dim hr,mn
	hr = hour(dtime) : mn = minute(dtime)
	if len(hr) = 1 then hr = 0 & hr
	if len(mn) = 1 then mn = 0 & mn
	PMilTime = hr & ":" & mn
End Function
%>