Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Для начала:

Public Function funTest()     Dim i As Long     Dim strTest As String     Dim bytTest As Byte               bytTest = 7     Debug.Print "Select Case_Byte Start", Time()     For i = 0 To 5000000         Select Case bytTest             Case Is = 1             Case Is = 2             Case Is = 3             Case Is = 4             Case Is = 5             Case Is = 6             Case Is = 7         End Select     Next i     Debug.Print "Select Case_Byte End", Time()     Debug.Print          strTest = "Ñóááîòà"     Debug.Print "If_Text Start", Time()     For i = 0 To 5000000         If strTest = "G" Then             ElseIf strTest = "Ïîíåäåëüíèê" Then             ElseIf strTest = "Âòîðíèê" Then             ElseIf strTest = "Ñðåäà" Then             ElseIf strTest = "×åòâåðã" Then             ElseIf strTest = "Ïÿòíèöà" Then             ElseIf strTest = "Ñóááîòà" Then             ElseIf strTest = "Âîñêðåñåíüå" Then         End If     Next i     Debug.Print "If_Text End", Time()     Debug.Print      End Function 'If_Text Start 0:25:35 'If_Text End   0:25:44 ' 'Select Case_Byte Start      0:25:44 'Select Case_Byte End        0:25:44

Там где непонятки, это "Понедельник", "Вторник" и т.д. Сайт перекинул без моего участия.