/ Published in: Visual Basic
This function removes all leading zeros at the beginning of a string.
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Private Function stripZeros(str As String) As String If (Left(str, 1) = "0" And Len(str) > 1) Then stripZeros = stripZeros(Mid(str, 2)) Else stripZeros = str End If End Function