Good Double

Posted on April 11, 2013October 26, 2015 By David Kittell

Function GoodDouble(s)
	On Error Resume Next
	If len(s) > 0 then
		s = CDbl(s)
		GoodDouble = s
	Else
		GoodDouble = 0
	End If
	If Err Then GoodDouble = 0
End Function

Function	String	Value
GoodDouble	55	55
GoodDouble	55.55	55.55
GoodDouble	55.45	55.45
GoodDouble	SomeText	0

Originally Posted on April 11, 2013
Last Updated on October 26, 2015

All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.

Related

ASP Code VB