PB实现客户机与服务器时间的统一???

[fanzs007]

如题，网上搜索不到

date ld_dqdate
datetime ld_dq
string ls_Serverdate,ls_clientdate

ls_clientdate=string(Date(Today()),"yyyy-mm-dd")
select to_char(sysdate, 'yyyy-mm-dd ') into :ls_Serverdate from dual;

messagebox("ls_clientdate",ls_clientdate)
messagebox("ls_Serverdate",ls_Serverdate)

if ls_clientdate=ls_Serverdate then
messagebox("提示!","您的电脑日期和服务器日期一致!")
else
messagebox("提示!","您的电脑日期不对,请修改!")
cb_1.enabled=false

end if

电脑的日期和服务器的日期一致的,为什么ls_clientdate还是不等于ls_Serverdate 呢

[newease]

获取服务器时间

select top 1 getdate()
into:ldt_time
from sysusers;

[glint]

ls_clientdate和ls_Serverdate，都是精确到毫秒的吧，所以这里还是一致，建议只判断到例如相差不对于30秒，即认为时间一致

[fanzs007]

select top 1 getdate() into:ldt_time from sysusers; \\
这个报错。。。

ls_clientdate和ls_Serverdate，都是字符 messagebox显示的是日期。。就是想判断两个日期一致的???

[fanzs007]

int i
date date1, date2

date1 =Date(Today())
date2 =Date(ls_Serverdate)
i=DaysAfter(date1, date2)

messagebox("asdf",i)