LPARAMETERS tcContents LOCAL llIsNumber tcContents = ALLTRIM(tcContents) DO CASE CASE OCCURS('.', tcContents)>1 llIsNumber = .F. CASE LEN(tcContents) = 0 llIsNumber = .F. CASE LEN(CHRTRAN(tcContents,'0123456789.,$','')) = 0 llIsNumber = .T. OTHERWISE llIsNumber = (LEFT(tcContents,1) = '-' AND LEN(CHRTRAN(SUBSTR(tcContents,2),'0123456789.,$','')) = 0) ENDCASE RETURN llIsNumber