<%
' ##################################
public function CAL_CheckTIMEINPUT(byVal ST, byVal ET)

dim sH
if intTimeFormat=24 then
	if timevalue(ST)>=timevalue("23:59:00") then
'
	else
		if  timevalue(ET)>=timevalue("23:59:00") then
			CAL_CheckTIMEINPUT = " (" & replace(formatdatetime(ST, vbLONGTIME),":00 ","") & "- ... )"
		else
			CAL_CheckTIMEINPUT = " (" & replace(formatdatetime(ST, vbLONGTIME),":00 ","") & "-" & replace(formatdatetime(ET, vbLONGTIME),":00 ","") & ")"
		end if
	end if
else
	if timevalue(ST)>=timevalue("23:59:00") then
'
	else
		if  timevalue(ET)>=timevalue("23:59:00") then
			CAL_CheckTIMEINPUT = " (" & replace(formatdatetime(ST, vbLONGTIME),":00 ","") & "- ... )"
		else
			CAL_CheckTIMEINPUT = " (" & replace(formatdatetime(ST, vbLONGTIME),":00 ","") & "-" & replace(formatdatetime(ET, vbLONGTIME),":00 ","") & ")"
		end if
	end if
end if
end function

%>