Calendario in Visual Basic 6 con il DtPicker

Tramite il controllo DtPicker in visual Basic è possibile scegliere una data e riportarla in un altro oggetto presente su di una form o su di una variabile.
Prima di utilizzare questo controllo e inserire del codice, ad esempio sull'evento "_Change", è bene selezionare il componente nel progetto come rappresentato nella figura successiva.

Scelta del componente:


Un esempio che riporta in output la data formattata con giorno/mese/anno:

Function dateFormat(valore As Variant) As Variant
    If IsNull(valore) Then
        dateFormat = "Null"
    Else
        dateFormat = Format(valore, "dd/mm/yyyy")
    End If
End Function

Private Sub DTPicker1_Change()
    Label1.Caption = dateFormat(DTPicker1.Value)
End Sub

Output: