Kontrollera indata

Hej!

Hur gör jag för att med vb-script kontrollera att indata är ett positivt tal mellan 1 och 100. Decimaltal är tillåtet.

Både komma och punkt kan vara tillåtet (tror jag, det går ju att göra en replace på)

Tack på förhand!

mvh
Henrik

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! :birp