如何来计算两个日期的差?

[ljy118]

如
先把字符型的变为日期型的
if date1>date2 then
print "迟到了"
end if

[shuiye]

Set Fdate=New NotesDateTime(ldate1)
Set Edate=New NotesDateTime(ldate2)
nday1=Edate.TimeDifference(Fdate)/3600/24+1


好好看一下NotesDateTime Class

[shuiye]

要公式的话，看看@Adjust
(date2-date1)/86400

[ljy118]

谢谢二位了............

[zelloss]

去看DateTime类

[freyild1979]

cdat()

[ljy118]

在代理中btime声明为什么类型啊(好像没有时间型)

[ljy118]

这个问题我没有表达清楚:再来说一次

是这样子的,在代理中怎么先把两个字符型的数据转变成日期型的,然后再比较大小,来显示相关的信息!

[cpl3113]

BStime = Cstr(Today())+" "+vwdoc.InBhour(0)+":"+vwdoc.InBmin(0)
EStime = Cstr(Today())+" "+vwdoc.Inehour(0)+":"+vwdoc.Inemin(0)
Btime = Cdat(BStime)
Etime = Cdat(EStime)
N = Etime - Btime
其中：
BStime 开始时间字符串 例： "2004-6-23 9:38"
Cdat 将字符串转化成时间
vwdoc 为包含时间域的Notes文档
InBhour(0) InBmin(0) 为文档中存储小时和分的域值
比较大小可以直接相减 结果单位为毫秒 可通过正负来判断大小

[ljy118]

继续讨谈