Per convertire una stringa in formato “gg/mm/aaaa” in un oggetto di tipo DateTime, è possibile utilizzare la seguente funzione:
Private Function ToDateTime(ByVal _
dataGG_MM_AAAA As String) As DateTime
Dim myCultureInfo As New _
System.Globalization.CultureInfo("it-IT", _
True)
Dim formato As String = "dd/MM/yyyy"
Return _
System.DateTime.ParseExact(dataGG_MM_AAAA, _
formato, myCultureInfo)
End Function
Per testare questa funzione, invece, potete provare il seguente codice:
Private Sub Form1_Load(ByVal sender _
As System.Object, _
ByVal e As System.EventArgs) _
Handles MyBase.Load
Dim dataStringa As String
Dim data As Date
dataStringa = "01/03/2008"
data = ToDateTime(dataStringa)
MessageBox.Show(Month(data)) ' <-- visualizza "3"
End Sub