五金加工厂怎么做网站,sem竞价托管,seo建站的步骤,公司营销外包大家好#xff0c;才是真的好。
今天我们介绍的是时间日期处理#xff0c;其实以前也讲过#xff0c;主要是通过LotusScript中的NotesDateTime类来进行时间计算。
但是这里也存在一个问题#xff1a;就是时间日期类的比较只能计算出秒#xff0c;不能计算出毫秒。
毕竟…大家好才是真的好。
今天我们介绍的是时间日期处理其实以前也讲过主要是通过LotusScript中的NotesDateTime类来进行时间计算。
但是这里也存在一个问题就是时间日期类的比较只能计算出秒不能计算出毫秒。
毕竟有一句老话叫做“失之毫秒谬之千里”。
很多人想计算得出代理程序执行所花的时间有的代理程序一瞬间就执行完了可能不到一秒那我们就想知道它花了多少毫秒。
其实没问题notes也可以轻松实现不过采用的是Java代码方式对的Java比较容易计算出毫秒时间。
要实现该功能首先在Notes数据库中新建一个Java脚本库例如名字叫ElapsedTime,方代码选择Java如下图所示 等会我们可以在lotusssript中调用Java代码。这种方式前面我们也介绍过这种方式叫做叫LS2J。
接着刚才的Java代码库打开之后重命名为ElapsedTime.java如下图 双击打开写上下面一段Java 代码
import java.util.*;public class ElapsedTime {private Date startDate new Date();private Date endDate new Date();public void start() {startDate new Date();}public void end() {endDate new Date();}public long duration() {long t1 startDate.getTime();long t2 endDate.getTime();long difference t2 - t1;return difference;}}效果如下图所示 没问题的话就保存关闭。
接着创建一个新的代理程序选择编程语言LotusScript如下图 通过在(Options)中写入语句Uselsx *javacon和Use ElapsedTime来调用Java库 接着写lotusscript代码
Dim js As JAVASESSIONDim timerClass As JAVACLASSDim timerObject As JavaObjectDim diff As LongSet js New JAVASESSIONSet timerClass js.GetClass(ElapsedTime)Set timerObject timerClass.CreateObjectCall timerObject.start ... Process here ...Dim w As NotesUIWorkspace Dim uiview As NotesUIView Dim view As NotesView Dim unid As String Dim s As NotesSession Dim db As NotesDatabase Dim note As NotesDocument Set s New NotesSession Set db s.CurrentDatabase Set viewdb.GetView(allDesignElements)Set note view.Getfirstdocument()Do Until note Is NothingSet noteview.Getnextdocument(note) LoopCall timerObject.enddiff timerObject.duration()MsgBox 遍历所有设计元素总共花费 CStr(diff) 毫秒.效果如下图所示 该代码是遍历数据库中所有设计元素可能比较多我在Notse客户端上运行一下看执行完成需要多少毫秒的时间。 才297毫秒。
要是你用秒来计数可能都是1或0。
该方式参考了站点https://breakingpar.com/bkp/home.nsf/0/87256B280015193F87256EAF007B2235
今天就介绍到这里吧。
最后欢迎搜索公众号“协作者”来关注我。
