try this

IF NOT sRain THEN
 IF InStr(LCase(sRain), "x") > 0 OR InStr(sRain, "-") > 0 THEN
   fRain=0
 ELSE
   TRY fRain = CFloat(sRain)
   IF ERROR THEN fRain=-1  'Not a Valid Number
 ENDIF
ELSE
 fRain=-1
ENDIF

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
what you do best, core application coding. Discover what's new with 
Crystal Reports now.  http://p.sf.net/sfu/bobj-july
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to