codice:
Dim data As DateTime = DateTime.Now
Console.WriteLine(Data.ToString("MM"))
HTH