codice:
<%
Function Controllo()
	ore = CInt(Left(StringaOre,2))
	minuti = CInt(Right(StringaOre,2))

	If 0 <= ore And  ore <= 23 And  0 <= minuti And minuti <= 60 Then
		Response.Write("Ora corretta") 
	Else
		Response.Write("Inserire ora corretta")
	End If

End function


StringaOre ="11.61"

'Controllo che abia usato 2 caratteri per le ore e due caratteri per i minuti spaziati dal punto
OrePunto = left(StringaOre,3)
if Right (OrePunto,1) = "." and Len(StringaOre) = 5 Then
	Controllo()
Else
	Response.Write ("Inserire la data: hh.mm")
End if
%>