Dim td As TimeDialog
Dim today As Long
DateTime.DateFormat = "dd.MM.yyyy"
Dim dd As DateDialog
dd.ShowCalendar=True
dd.Year=DateTime.GetYear(DateTime.Now)
dd.Month=DateTime.GetMonth(DateTime.Now)
dd.DayOfMonth=DateTime.GetDayOfMonth(DateTime.Now)
td.Hour= DateTime.GetHour(DateTime.Now)
td.Minute=DateTime.GetMinute(DateTime.Now)
td.Is24Hours=True
If dd.Show("Day of trip","Select date","OK","","Cancel",Null)=DialogResponse.POSITIVE Then
today=dd.DateTicks
NumberFormat(dd.Month,2,0)
EditText3.Text=NumberFormat (dd.DayOfMonth,2,0) & "." & NumberFormat(dd.Month,2,0) & "." & dd.Year
Log("today: " & today)
End If