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