Office中国论坛/Access中国论坛

标题: 这两段代码哪个运行更快? [打印本页]

作者: changweiren 时间: 2008-11-16 19:43
标题: 这两段代码哪个运行更快?
这两段代码

Private Sub Form_Current()
Dim PageFZ, PageFM As Integer
PageFZ = CurrentRecord / 6
PageFM = RecordsetClone.RecordCount / 6
      DPages = Int(IIf(CurrentRecord Mod 6 = 0, PageFZ, PageFZ + 1)) & "/" & _
               Int(IIf(RecordsetClone.RecordCount Mod 6 = 0, PageFM, PageFM + 1))
End Sub

和

Private Sub Form_Current()
Dim page0,  page1, As Integer

page0 = Int(IIf(CurrentRecord Mod 6 = 0, CurrentRecord / 6, CurrentRecord / 6 + 1))
page1 = Int(IIf(RecordsetClone.RecordCount Mod 6 = 0, _
         RecordsetClone.RecordCount / 6, _
         RecordsetClone.RecordCount / 6 + 1))
DPages = page0 & "/" & page1
End Sub

哪个运行更快?

作者: tmtony 时间: 2008-11-16 20:13
你自己在电脑测试一下即可知道
循环多次测试或者到系统时间判断一下用时
startime=Timer
用时 Timer-startime

如果 PageFM 多次用到,则第一种方法会快一些
如果在代码中不是多次用到,则可能第二种方法快一些.

作者: changweiren 时间: 2008-11-19 23:28
谢谢站长，我还没用过Timer，试试。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)