主题：系统日期问题

老师，请问下，如果电脑系统日期时间有被人修改了，那么表A的A列会自动输入修改前的日期时间，B列会自动自动输入修改后的日期时间，C列会自动输入登入的用户用，这样的代码要怎么写，谢谢！

需要做一个定时器，定时获取系统日期 http://www.foxtable.com/webhelp/scr/0657.htm

 

编写代码，如

 

static pd As Date = Date.now
Dim d As Date = Date.Now
If pd > d Then '如果之前的时间大于之后的时间
    msgbox("修改了")
    msgbox(pd)
    msgbox(d)
End If
pd = d

老师，我不是要弹出提示框，我是要自动输入时间，比如说现在是10：00点，员工这时把时间改为10:30分，那么A列就会自动输入10:00，B列会自动输入10:30，C列会自动输入用户登入名。

 

增加行不会写？addnew

 

赋值不会写？ r("第一列") = pd

是的，老师，不好意思确实不会写，麻烦老师帮我写下，谢谢！

static pd As Date = Date.now
Dim d As Date = Date.Now
If pd > d Then '如果之前的时间大于之后的时间
    msgbox("修改了")
    msgbox(pd)
    msgbox(d)
    Dim nr = Tables("表a").addnew
    nr("第一列") = pd
    nr("第二列") = d
End If
pd = d

老师，这段代码能帮我改下吗?我不想要跳出提示框，只有在系统时间变更时，第一列和第二列会自动输入修改前和修改后的时间，变更完后就不会每隔多少秒在输入或跳出提示框，直到下一次系统时间变更时才会再次自动输入。 static pd As Date = Date.now Dim d As Date = Date.Now If pd > d Then '如果之前的时间大于之后的时间     msgbox("修改了")     msgbox(pd)     msgbox(d)     Dim nr = Tables("表a").addnew     nr("第一列") = pd     nr("第二列") = d End If pd = d

呃...删除代码

 

   msgbox("修改了")
    msgbox(pd)
    msgbox(d)