DateTimePicker

Data de publicação: Apr 09, 2013 4:7:42 PM

Exercício 04 - DATAS

O exemplo mostra a obtenção de uma data com o DATETIMEPICKER.

Public Class Form1

Dim dn As Date

Dim mes As Integer

Dim ano As Integer

Dim dia As Integer

Private Sub Form1_Load

' Define como data máxima a data de hoje

calendario.MaxDate = System.DateTime.Now

' Define como data mínima 01-01-1960

calendario.MinDate = CDate("1-1-1960")

' Define o formato da data para o mais pequeno (tipo 01-01-2013)

calendario.Format = DateTimePickerFormat.Short

End Sub

Private Sub Button1_Click

dn = calendario.Value.Date

MsgBox("Nasceu na data: " & dn)

ano = dn.Date.Year

mes = dn.Date.Month

dia = dn.Date.Day

MsgBox("Nasceu no dia " & dia & " no mês de " & mes & , " no ano de " & ano)

End Sub

End Class