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

ник: Дядя Федор
НЕ лень было проверить. Че-т резалты расходятся с Лукасом

str_to_num3 0,684 сек. 123456 NumFromString . 0,202 сек. 123,456 proverca 1,188 сек. 123 rgxpnum . 30,408 сек. 123456

где str_to_num3 без iif

Public Function str_to_num3(s As String) As Long Dim sn As String, snn As String Dim i As Integer sn = "" For i = 1 To Len(s)   snn = Mid(s, i, 1)   If IsNumeric(snn) Then sn = sn & snn Next str_to_num3 = CLng(sn) End Function

proverca медленнее