per formattare le date oltre a maskedit esistono ocx apposite, ma dopo averle provate preferisco farlo da codice

per la data

Private Sub txtFields_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode <> 8 Then
If Index = 5 Then
MiData = txtFields(Index).Text
If Len(MiData) = 2 Then
txtFields(Index).Text = MiData & "/"
txtFields(Index).SelStart = 3
ElseIf Len(MiData) = 5 Then
txtFields(Index).Text = MiData & "/"
txtFields(Index).SelStart = 6
ElseIf Len(MiData) = 10 Then
txtFields(Index + 1).SetFocus
End If
End If
End If
End Sub

per l'ora

Private Sub txtFields_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode <> 8 Then
If Index = 2 Then
MiOra = txtfields(Index).Text
If Len(MiOra) = 2 Then
txtfields(Index).Text = MiOra & "."
txtfields(Index).SelStart = 3
ElseIf Len(MiOra) = 5 Then
txtfields(Index + 1).SetFocus
End If
End If
end sub

nb si tratta di una matrice di text di cui alla 2 l'ora e alla 5 la data e chiaramente dichiarare le variabili miora e midata

by
gyonny

PS.