以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  时间问题，求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2988)
--  作者：shixia
--  发布时间：2009/6/2 11:32:00
--  时间问题，求助
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点）去签到，即勾选对应的复选框时，还是提示：太早了,到两点后再签到吧，而不能签到，我估计是时间问题，不知我对时间的处理是否有问题？
--  作者：八婺
--  发布时间：2009/6/2 12:18:00
--  
没测试出来。
--  作者：mr725
--  发布时间：2009/6/2 12:30:00
--  
 if d>#16:00:00#  then   改为：  if d>"16:00:00"  then  试试看～
--  作者：yangming
--  发布时间：2009/6/2 12:47:00
--  
dim d as date =format(date.now,"HH:mm:ss")
HH,是24小时制的,hh,是12小时制的,如要用"hh",那就要改14点为02点了
[此贴子已经被作者于2009-6-2 12:50:09编辑过]
--  作者：八婺
--  发布时间：2009/6/2 12:49:00
--  
以下是引用yangming在2009-6-2 12:47:00的发言：
dim d as date =format(date.now,"HH:mm:ss")


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

[此贴子已经被作者于2009-6-2 12:49:33编辑过]
--  作者：yangming
--  发布时间：2009/6/2 12:52:00
--  
我用它的文件做了测试,用"hh",就没反映
--  作者：shixia
--  发布时间：2009/6/2 15:33:00
--  
dim d as date =format(date.now,"HH:mm:ss")
HH,是24小时制的,hh,是12小时制的,如要用"hh",那就要改14点为02点了

谢谢，解决了。