主题：时间问题，求助

Dim chk as winform.CheckBox = e.form.controls("CheckBox3")
dim d as date =format(date.now,"hh:mm:ss")
If chk.checked = true then
    e.Sender.ReadOnly =BooleanEnum.True
    MessageBox.Show("已签过到了!!", "提示")
Else
    if d>#16:00:00#  then
        e.Sender.ReadOnly =BooleanEnum.True
        MessageBox.Show("太迟了,不能签到!!", "提示")
    elseif d<#14:00:00# then
        e.Sender.ReadOnly =BooleanEnum.True
        MessageBox.Show("太早了,到两点后再签到吧!!", "提示")
       
    End if
End if

以上是我在“考勤表”窗口中对下午上班签到的筛选框的MouseDown事件中写的代码，但是每到下午两点以后（包括3、4点）去签到，即勾选对应的复选框时，还是提示：太早了,到两点后再签到吧，而不能签到，我估计是时间问题，不知我对时间的处理是否有问题？

没测试出来。

 if d>#16:00:00#  then   改为：  if d>"16:00:00"  then  试试看～

dim d as date =format(date.now,"HH:mm:ss")
HH,是24小时制的,hh,是12小时制的,如要用"hh",那就要改14点为02点了

我用
dim d as date =format(date.now,"hh:mm:ss")
dim d as date =format(date.now,"T")
测试都没有问题。

我用它的文件做了测试,用"hh",就没反映

谢谢，解决了。