Session.LCID=1040
strData = giorno & "/" & mese & "/" & anno
contr = IsDate(strData)