Date of birth in "Dutch" format ddmmyyyy in userform and

[Alfx3]

As a newbe, I tried to receive the date of birth from a form in a local format: ddmmyyyy.
somewhere I messed up, but couldn't find a correct solution.
Can anybody tell me where I'm wrong and how to correct? Here's my code sofar:

Private Sub dtpGeboorteDatum_Exit(ByVal cancel As MSForms.ReturnBoolean)

If Left(dtpGeboorteDatum.Value, 2) > 31 Or Mid(dtpGeboorteDatum.Value, 3, 2) > 12 Then

MsgBox "Incorrect dat: please enter as ddmmjjjj", vbCritical​

dtpGeboorteDatum.Value = vbNullString​

dtpGeboorteDatum.SetFocus​

GoTo formulier​

Else


dDate = DateSerial(Year(Date), Month(Date), Day(Date))
If Not dDate Like "########" Or Len(dDate) <> 8 Then

MsgBox "Incorrect dat: please enter as ddmmjjj"​

dtpGeboorteDatum.SetFocus​

GoTo formulier​

End If
dDate = Mid(dDate, 5, 4) & "/" & Mid(dDate, 3, 2) & "/" & Left(dDate, 2)

If dDate <> dtpGeboorteDatum.Value Then dtpGeboorteDatum.Value = dDate
End If
formulier:
End Sub

 

[shg]

Maybe ...

Private Sub dtpGeboorteDatum_Exit(ByVal cancel As MSForms.ReturnBoolean)
  Dim sDate         As String
  Dim dDate         As Date
  Dim iDy           As Long
  Dim iMo           As Long
  Dim iYr           As Long

  sDate = dtpGeboorteDatum.Value

  If sDate Like "########" Then
    iDy = Left(sDate, 2)
    iMo = Mid(sDate, 3, 2)
    iYr = Mid(sDate, 5, 4)

    On Error GoTo Oops
    dDate = DateSerial(iYr, iMo, iDy)
    If iDy <> Day(dDate) Or iMo <> Month(dDate) Or iYr <> Year(dDate) Then GoTo Oops
    ' it's good; do whatever
    Exit Sub
  End If

Oops:
  MsgBox "Incorrect date: please enter as ddmmjjjj", vbCritical
  dtpGeboorteDatum.Value = vbNullString
  dtpGeboorteDatum.SetFocus
End Sub

 

[Alfx3]

Brilliant!just copy-paste and run..... and it works perfect
thanks a lot!

 

[shg]

You're welcome.