Private Sub GetCurrentDateFromTextField (DateString As String) As Long
Try
Dim ticks As Long = DateTime.DateParse(DateString)
If DateTime.GetYear(ticks) >= minYear And DateTime.GetYear(ticks) <= maxYear Then
Return ticks
End If
Catch
'invalid date
End Try 'ignore
Return 0
End Sub