Re: test if a string is a valid 'number'?

#include <windows.h>

typedef long ( *ISNUMERIC )( VARIANT* );

BOOL IsNumeric( LPTSTR szString )
{
   HINSTANCE hinstLib;
   ISNUMERIC ProcAdd;

   hinstLib = LoadLibrary( TEXT( "C:\\Program Files\\Common
Files\\Microsoft Shared\\VBA\\VBA6\\vbe6.dll" ) );

   if( hinstLib != NULL )
   {
       long lNumeric = 0;
       ProcAdd = (ISNUMERIC)GetProcAddress( hinstLib, "rtcIsNumeric" );

       if( NULL != ProcAdd )
       {
           VARIANT vtExpression;
           vtExpression.vt = VT_BSTR;
           vtExpression.bstrVal = SysAllocString( szString );
           __asm
           {
               lea eax, [vtExpression]
               push eax
               call (ProcAdd)
               mov lNumeric, eax
           }
           SysFreeString( vtExpression.bstrVal );
       }

       FreeLibrary( hinstLib );
       return ( lNumeric != 0 );
   }
   else return FALSE;
}

void main( void )
{
   BOOL bNumeric = IsNumeric( TEXT( "1245789.00" ) );
   bNumeric = IsNumeric( TEXT( "sdf1245789.00" ) );
   bNumeric = IsNumeric( TEXT( "+234.43E-24" ) );
   bNumeric = IsNumeric( TEXT( "12,234,345.00" ) );
   bNumeric = IsNumeric( TEXT( "sdf1245789.00" ) );
}