Высчитывание стажа работы

Private Sub esSpeedCompare()
'es 19.05.2003
'Процедура сравнения работы процедур или функций по скорости
'Пишет результат в Immediate окно
'--------------------------------------------------------------------
Dim intTest As Integer        'счетчик тестов
Dim lngReiterations As Long   'количество повторений теста
Dim i As Long                 'счетчик повторений
Dim t As Date                 'перменная таймера
Dim val As Variant            'для приема значений возвращаемых тестируемыми
 
On Error GoTo esSpeedCompare_Err
'Установка количества повторений теста :
    'много (считаем сразу тысячами...) - для быстрых
    lngReiterations = CLng(1000) * 10000
 
'отделяем линией от (возможных) предидущих результатов
    Debug.Print vbCrLf & "---------------------------------------------------------"
'Запуск 2-х тестов
    For intTest = 1 To 2
        t = Now
        For i = 1 To lngReiterations
            Select Case intTest
                
                Case 1 'ниже пишем певую тестируемую процедуру|функцию
                    
                    val = CLng(Date - #12/31/1899#)
                    
                Case 2 'ниже пишем вторую тестируемую процедуру|функцию
                    
                    val = DateDiff("d", #12/31/1899#, Date)
            
            
            End Select
        Next i
        'отчет.....
        Debug.Print "Тест-" & intTest & " (" & Format$(lngReiterations, "#,###") & _
            " повт.) работал: " & Format(Now - t, "hh:mm:ss")
    Next intTest
esSpeedCompare_Bye:
    Exit Sub
esSpeedCompare_Err:
    Debug.Print "Процедура сравнения работы функций по скорости привела к ошибке:" & vbCrLf & _
    Err.Description
    Resume esSpeedCompare_Bye
End Sub