Dani una cosa del genere andrebbe bene?
codice:Public Class alessio Public Function Maiuscolo(val) Dim testo as string Testo = val Maiuscolo = ucase(testo) End Function Public Function FanoDate(val) dim data as datetime data = System.Convert.ToDateTime(val) dim datastring as string datastring=data.tostring("dd/MM/yyyy") fanodate=datastring.Substring(0, 10) End Function End Class