Sub Chkb1_CheckedChange(Checked As Boolean)
If Chkb1.Checked = True Then
DoRestTimes
End If
End Sub
' This sub don't work. Gives date in Ticks but gives the right time
Sub DoRestTimes
p.Hours =11
Lbl9Hr.Visible = True
dim newDate6 as long = DateUtils.AddPeriod(DateTime.now,p)
Lbl9Hr.Text = DateUtils.TicksToString(newDate6)
End Sub
' this sub works. Give date and time
Sub Lbl9Hr_Click
P.Hours = 9
Dim newDate As Long = DateUtils.AddPeriod(DateTime.Now, P)
Lbl9Hr.Text = DateUtils.TicksToString(newDate)
End Sub