Find Decimal Position in Number

Function DecimalPos(&sNumberStr) Returns number
   Local number &nReturn;
   If All(&sNumberStr) Then
      Return Round(Value(&sNumberStr / 100), 2)
   Else
      Return 0;
   End-If;
End-Function;