'Autor Bogdan57

'Zbudowalem, dla wlasnych potrzeb, prosciutki formularz 
'drukujacy wplaty lub przelewy. 
'Ta funkcja zamienia zapis cyfrowy 
'na tekst w formacie *xxx*xxx*xxx*xxx*
'Moze ktos to wykorzysta.
  
Function trzy(ile)
'np.: 53241,38 = *pie*trz*dwa*czt*jed*zl*trz*osi*gr*
 
Dim licz, licz1
Dim pisz
Dim A, B
Dim OL, OL1, dl As Integer
pisz = Array("zer", "jed", "dwa", "trz", "czt", "pie", "sze", "sie", "osi", "dzi")
ile = Format(ile, "######.00")
dl = Len(ile)
licz = "*"
For A = 1 To dl - 3
    OL = Mid(ile, A, 1)
    licz = licz & pisz(OL) + "*"
Next A
If licz = "*" Then licz = "*zer*"
For B = dl - 1 To dl
    OL1 = Mid(ile, B, 1)
    licz1 = licz1 & pisz(OL1) + "*"
Next B
trzy = licz & "zl*" & licz1 & "gr*"
End Function

Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie.
Tylko zarejestrowani użytkownicy mogą pisać komentarze.

Powered by AkoComment 2.0!