RosettaCodeData/Task/Increment-a-numerical-string/VBA/increment-a-numerical-string-1.vba

Public Function incr(astring As String) As String
'simple function to increment a number string
   incr = CStr(CLng(astring) + 1)
End Function
langs a-z 2013-04-10 22:43:41 -07:00			`Public Function incr(astring As String) As String`
			`'simple function to increment a number string`
			`incr = CStr(CLng(astring) + 1)`
			`End Function`