这两段代码哪个运行更快?

changweiren

这两段代码

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

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

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

changweiren

谢谢站长，我还没用过Timer，试试。