If FormatDateTime(TimeOfDay,DateFormat.ShortTime) >= FormatDateTime(DateTime.Parse(DsReadShift.tblShift.Rows(0).Item("StartTime")),DateFormat.ShortTime) And formatdatetime(DateTime.Now,DateFormat.ShortTime) <= formatdatetime(DateTime.Parse(DsReadShift.tblShift.Rows(0).Item("EndTime")),DateFormat.ShortTime) Then
vrStatus = "Logged In"
End If
works for me..