Change j in CHR to 57: times remain the same.
But for me was surprise that difference is enough small (10-20%).
Bravo, Bob

Code:
#Compile Exe #Register None Function PbMain Dim x As String * 11, i As Long, j As Long, t1 As Single, t2 As Single, t3 As Single t1 = Timer For i = 1 To 100000 For j = 0 To 9 x = Chr$(48, 49, 50, 51, 52, 53, 54, 55, 56, j) Next Next t2 = Timer For i = 1 To 1000000 x = "0123456789" Next t3 = Timer MsgBox "CHR = " + Format$(t2-t1, "#.##"),, Format$(t3 - t2, "#.##") End Function
E-MAIL: [email protected]
Leave a comment: