Kontrollera indata

Hata decimaltal - eller rättare sagt hata regional settings som gör att man får olika decimaltecken beroende på datorns inställningar. Vi behöver en funktion som kollar upp vilket decimaltecken som gäller och gör replace till detta.

function myDecimalCrap (sNum)
       sDec = mid(cstr(1/2),2,1)
       sNum = replace(sNum, ".", sDec)
       sNum = replace(sNum, ",", sDec)
       if isnumeric (sNum) then
              myDecimalCrap = Cdbl(sNum)
       else
              myDecimalCrap = -1
       end if
end function

När du får resultatet från denna funktion är det bara att kontrollera om returen är större än eller lika med 1.

Thanx!