kwoty słownie - kod formuły.txt

Function S£OWNIE(x As Variant) As String 'dla liczb od -99 999.99 do 99 999.99
If x < 0 Then w = w & "minus "
x = Format(Abs(x), "000 000 000.00"): m = Left(x, 3): t = Mid(x, 5, 3): j = Mid(x, 9, 3): g = "0" & Right(x, 2)
Select Case m
Case 0
Case 1
w = "jeden milion "
Case Else
w = w & trzy(m)
If Mid(m, 2, 1) <> 1 And (Right(m, 1) = 2 Or Right(m, 1) = 3 Or Right(m, 1) = 4) Then w = w & "miliony " Else w = w & "milionów "
End Select
Select Case t
Case 0
Case 1
w = w & "jeden tysi¹c "
Case Else
w = w & trzy(t)
If Mid(t, 2, 1) <> 1 And (Right(t, 1) = 2 Or Right(t, 1) = 3 Or Right(t, 1) = 4) Then w = w & "tysi¹ce " Else w = w & "tysiêcy "
End Select
Select Case j
Case 0
If m = 0 And t = 0 Then w = w & "zero z³otych " Else w = w & "z³otych "
Case 1
If m = 0 And t = 0 Then w = w & "jeden z³oty " Else w = w & "jeden z³otych "
Case Else
w = w & trzy(j)
If Mid(j, 2, 1) <> 1 And (Right(j, 1) = 2 Or Right(j, 1) = 3 Or Right(j, 1) = 4) Then w = w & "z³ote " Else w = w & "z³otych "
End Select
Select Case g
Case 0
w = w & "zero groszy"
Case 1
w = w & "jeden grosz"
Case Else
w = w & trzy(g)
If Mid(g, 2, 1) <> 1 And (Right(g, 1) = 2 Or Right(g, 1) = 3 Or Right(g, 1) = 4) Then w = w & "grosze" Else w = w & "groszy"
End Select
S£OWNIE = w
End Function
Function trzy(x As Variant) As String
x3 = Val(Left(x, 1)): x2 = Val(Mid(x, 2, 1)): x1 = Val(Right(x, 1))
If x3 = 9 Then w = w & "dziewiêæset "
If x3 = 8 Then w = w & "osiemset "
If x3 = 7 Then w = w & "siedemset "
If x3 = 6 Then w = w & "szeϾset "
If x3 = 5 Then w = w & "piêæset "
If x3 = 4 Then w = w & "czterysta "
If x3 = 3 Then w = w & "trzysta "
If x3 = 2 Then w = w & "dwieœcie "
If x3 = 1 Then w = w & "sto "
If x2 = 9 Then w = w & "dziewiêædziesi¹t "
If x2 = 8 Then w = w & "osiemdziesi¹t "
If x2 = 7 Then w = w & "siedemdziesi¹t "
If x2 = 6 Then w = w & "szeœædziesi¹t "
If x2 = 5 Then w = w & "piêædziesi¹t "
If x2 = 4 Then w = w & "czterdzieœci "
If x2 = 3 Then w = w & "trzydzieœci "
If x2 = 2 Then w = w & "dwadzieœcia "
If x2 = 1 Then
If x1 = 9 Then w = w & "dziewiêtnaœcie "
If x1 = 8 Then w = w & "osiemnaœcie "
If x1 = 7 Then w = w & "siedemnaœcie "
If x1 = 6 Then w = w & "szesnaœcie "
If x1 = 5 Then w = w & "piêtnaœcie "
If x1 = 4 Then w = w & "czternaœcie "
If x1 = 3 Then w = w & "trzynaœcie "
If x1 = 2 Then w = w & "dwanaœcie "
If x1 = 1 Then w = w & "jedenaœcie "
If x1 = 0 Then w = w & "dziesiêæ "
End If
If x2 <> 1 Then
If x1 = 9 Then w = w & "dziewiêæ "
If x1 = 8 Then w = w & "osiem "
If x1 = 7 Then w = w & "siedem "
If x1 = 6 Then w = w & "szeϾ "
If x1 = 5 Then w = w & "piêæ "
If x1 = 4 Then w = w & "cztery "
If x1 = 3 Then w = w & "trzy "
If x1 = 2 Then w = w & "dwa "
If x1 = 1 Then w = w & "jeden "
End If
trzy = w
End Function