Dim strf1 As StringFunctions
Dim b As EditText
b=Sender
Dim keuzeDate As String
Dim ret As Int
Dim Dd As DateDialog
If passeddate="" Then
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
Else
Dd.Year = strf1.Mid(passeddate,7,4)
Dd.Month= strf1.Mid(passeddate,4,2)
Dd.DayOfMonth = strf1.Mid(passeddate,1,2)
End If
ret=Dd.show("Start/end date", "", "OK", "CANCEL", "",Null)
If ret=DialogResponse.CANCEL Then
Return
Else
keuzeDate=NumberFormat(Dd.DayOfMonth,2,0) & "-" & NumberFormat(Dd.month,2,0) & "-" & Dd.Year
b.Text=keuzeDate
'Msgbox(NumberFormat(Dd.DayOfMonth,2,0) & "-" & NumberFormat(Dd.month,2,0) & "-" & Dd.Year,"Datum")
End If