怎样用LOTUSSCRIPT获得当前日期？？

[sissi235]

怎样用LOTUSSCRIPT获得当前日期？？
若当前日期为TODAYDATE,那么昨天是不是TODAYDATE-1?
:-) :-) :-)

[死扛Lotus]

Dim dateTime As New NotesDateTime( "" )
dateTime.LSLocalTime = Now
date$=dateTime.DateOnly '获得当前日期
Call dateTime.AdjustDay( -1 ) '昨天

[liuyu0851]

Sub Click(Source As Button)
Dim ws As New NotesUIworkspace
Dim sess As New NotesSession
Dim uidoc As NotesUIdocument
Dim currdb, db1,db2
Dim doc As NotesDocument
Dim datetime As NotesDatetime
Set currdb = sess.currentDatabase
Set uidoc = ws.currentdocument
Set doc = uidoc.document
doc.n1=Now
doc.n2=Now-1

End Sub

[document]

date(),today()都可以得到今天的日期,昨天的是date()-1或者是today()-1,明天就是+1

[yjw0717yjw0717]

建一个计算域 公式为@now

hen 简单的