Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
Schemerige starttime als DateTime = DateTimePicker1.Value
Schemerige endtime als DateTime = DateTimePicker2.Value
Als endtime < starttime="" then="" endtime="endtime.AddDays(1)" End="" If="" Dim="" results="" As="" TimeSpan="starttime" -="" endtime="" TextBox1="">
|