/ Snippet Library - View Code

Visual Basic / Math / Check if Decimal Number

Snippet details

ID: 376

Viewed: 1342

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Check if Decimal Number

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate Function IsDecimal(ByVal oValue As Variant) As Boolean ' Dim sValue As String ' sValue = CStr(oValue) IsDecimal = False ' ' Should really do extra checking here for the decimal speficier determined ' from the Locale API routines ' If IsNumeric(sValue) Then If InStr(1, oValue, ".") Then IsDecimal = True End If End If ' End Function

No Reviews to show