xsited1

Dim today, year, month, day As String
        year = DateTime.Today.Year.ToString
        If year.Length = 1 Then
            year = "0" + year
        End If
        month = DateTime.Today.Month.ToString
        If month.Length = 1 Then
            month = "0" + month
        End If
        day = DateTime.Today.Day.ToString