[vbnet]

.....

ConvertNumber2

كود :

Public Shared Function ConvertNumber2(ByVal Input As Double) As String
    Dim _num As String = Input.ToString
    Dim _int As String = ConvertNum(System.Math.Floor(Input))
    Dim _dec As String = String.Empty
    If _num.Contains(".") Then
        _dec = _num.ToString.Substring(_num.IndexOf(".") + 1)
    End If
    Return _int & IIf(_dec <> "", " And " & _dec & "/100", "")
End Function

.....