I am trying to input a time using the datepicker. It returns 1:00:00
from:
Sub lbltime_click
date_index = 2
DatePicker1.Mode = DatePicker1.MODE_TIME
DatePicker1.Visible = True
DatePicker1.Ticks = DateTime.DateParse("12/08/1942")
DatePicker1.Left=5
DatePicker1.Top=250
Button12.Visible = True
Button2.Visible = True
End Sub
'
' this is the retrun button after time selected
'
Sub Button12_click
Button12.Visible = False
Button2.Visible = False
DatePicker1.Visible = False
If date_index = 1 Then
lblfirstDate.Text = " " & DateTime.Date(DatePicker1.Ticks)
Else
LblTime.Text =" " & DateTime.Time(DatePicker1.MODE_TIME)
End If
End Sub
from:
Sub lbltime_click
date_index = 2
DatePicker1.Mode = DatePicker1.MODE_TIME
DatePicker1.Visible = True
DatePicker1.Ticks = DateTime.DateParse("12/08/1942")
DatePicker1.Left=5
DatePicker1.Top=250
Button12.Visible = True
Button2.Visible = True
End Sub
'
' this is the retrun button after time selected
'
Sub Button12_click
Button12.Visible = False
Button2.Visible = False
DatePicker1.Visible = False
If date_index = 1 Then
lblfirstDate.Text = " " & DateTime.Date(DatePicker1.Ticks)
Else
LblTime.Text =" " & DateTime.Time(DatePicker1.MODE_TIME)
End If
End Sub