Ændre et decimaltal til helt tal uden komma

Denne funktion vil virke hvis du har dit tal i variablen tal - ellers skift StringTal = CStr(Variabel) - og får kører den den igennem - og bagefter har du et tal uden komma i variablen NewTal.

---
StringTal = CStr(Tal)

If InStr(StringTal,"#") <> 0 Then
  NewTal = CInt(Left(StringTal,InStr(StringTal,"#") - 2) & Right(StringTal,InStr(StringTal,"#") + 1))
Else
  NewTal = CInt(StringTal)
End If
---

Vil du have det som en funktion -  som du kan kalde med FjernKomma(tal):
--------------------
Function FjernKomma(tal)
  StringTal = CStr(tal)

  If InStr(StringTal,"#") <> 0 Then
    FjernKomma = CInt(Left(StringTal,InStr(StringTal,"#") - 2) & Right(StringTal,InStr(StringTal,"#") + 1))
  Else
    FjernKomma = CInt(StringTal)
  End If
End Function
-------------------

Eller hvad med:
Function FjernKomma(tal)
  FjernKomma = CInt(tal*100)
End Function

moses: Virker kun hvis der er 2 decimaler.

sone: Prøv at bennytte den funktion jeg lavede til dig - den er ligeglad med hvor mange decimaler der findes.

sone: ups - det var sku' ikke dig der stillede spørgsmålet..sorry..

Det letteste:

replace(CStr(Tal), ",", "")

Jeg har prøvet jeres forkellige løsninger, og de fjerne ganske vist decimalen, men det var ikke det der er hensigten. eks. tallet 122,50 skal ændres til 12250 og ikke 123

tune: min funktion ændrer sku' også 122,50 til 12250...