>
--001485f6c76205b20904902927ad
Content-Type: text/html; charset=ISO-8859-2
Content-Transfer-Encoding: quoted-printable
Zahvljujem pajdo,ve� sam par kodova skinuo ali ovaj dosada najbolje radi! ovo �e mi zna�ajno ubrzati rad u firmi, velika hvala!<br><br><div class="gmail_quote">2010/9/13 srdjan_m <span dir="ltr"><<a href="mailto:
[email protected]">
[email protected]</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Evo, ovo je funkcija prilago�ena na�em jeziku i dosta dobro funkcioni�e:<br>
<br>
<br>
Private Function NumToText(dblVal As Double) As String<br>
Static Ones(0 To 9) As String<br>
Static Teens(0 To 9) As String<br>
Static Tens(0 To 9) As String<br>
Static Thousands(0 To 4) As String<br>
Static bInit As Boolean<br>
Dim i As Integer, bAllZeros As Boolean, bShowThousands As Boolean<br>
Dim strVal As String, strBuff As String, strTemp As String<br>
Dim nCol As Integer, nChar As Integer<br>
<br>
'Only handles positive values<br>
Debug.Assert dblVal >= 0<br>
<br>
If bInit = False Then<br>
'Initialize array<br>
bInit = True<br>
Ones(0) = "nula"<br>
Ones(1) = "jedan"<br>
Ones(2) = "dva"<br>
Ones(3) = "tri"<br>
Ones(4) = "cetiri"<br>
Ones(5) = "pet"<br>
Ones(6) = "sest"<br>
Ones(7) = "sedam"<br>
Ones(8) = "osam"<br>
Ones(9) = "devet"<br>
Teens(0) = "deset"<br>
Teens(1) = "jedanaest"<br>
Teens(2) = "dvanaest"<br>
Teens(3) = "trinaest"<br>
Teens(4) = "cetrnaest"<br>
Teens(5) = "petnaest"<br>
Teens(6) = "sesnaest"<br>
Teens(7) = "sedamnaest"<br>
Teens(8) = "osamnaest"<br>
Teens(9) = "devetnaest"<br>
Tens(0) = ""<br>
Tens(1) = "deset"<br>
Tens(2) = "dvadeset"<br>
Tens(3) = "trideset"<br>
Tens(4) = "cetrdeset"<br>
Tens(5) = "pedeset"<br>
Tens(6) = "sezdeset"<br>
Tens(7) = "sedamdeset"<br>
Tens(8) = "osamdeset"<br>
Tens(9) = "devedeset"<br>
Thousands(0) = ""<br>
Thousands(1) = "hiljada" 'US numbering<br>
Thousands(2) = "milion"<br>
Thousands(3) = "milijarda"<br>
Thousands(4) = "bilion"<br>
End If<br>
'Trap errors<br>
On Error GoTo NumToTextError<br>
'Get fractional part<br>
strBuff = "dinara i " & Format((dblVal - Int(dblVal)) * 100, "00") & "/100"<br>
'Convert rest to string and process each digit<br>
strVal = CStr(Int(dblVal))<br>
'Non-zero digit not yet encountered<br>
bAllZeros = True<br>
'Iterate through string<br>
For i = Len(strVal) To 1 Step -1<br>
'Get value of this digit<br>
nChar = Val(mID$(strVal, i, 1))<br>
'Get column position<br>
nCol = (Len(strVal) - i) + 1<br>
'Action depends on 1's, 10's or 100's column<br>
Select Case (nCol Mod 3)<br>
Case 1 '1's position<br>
bShowThousands = True<br>
If i = 1 Then<br>
'First digit in number (last in loop)<br>
strTemp = Ones(nChar) & ""<br>
ElseIf mID$(strVal, i - 1, 1) = "1" Then<br>
'This digit is part of "teen" number<br>
strTemp = Teens(nChar) & ""<br>
i = i - 1 'Skip tens position<br>
ElseIf nChar > 0 Then<br>
'Any non-zero digit<br>
strTemp = Ones(nChar) & ""<br>
Else<br>
'This digit is zero. If digit in tens and hundreds column<br>
'are also zero, don't show "thousands"<br>
bShowThousands = False<br>
'Test for non-zero digit in this grouping<br>
If mID$(strVal, i - 1, 1) <> "0" Then<br>
bShowThousands = True<br>
ElseIf i > 2 Then<br>
If mID$(strVal, i - 2, 1) <> "0" Then<br>
bShowThousands = True<br>
End If<br>
End If<br>
strTemp = ""<br>
End If<br>
'Show "thousands" if non-zero in grouping<br>
If bShowThousands Then<br>
If nCol > 1 Then<br>
strTemp = strTemp & Thousands(nCol 3)<br>
End If<br>
'Indicate non-zero digit encountered<br>
bAllZeros = False<br>
End If<br>
strBuff = strTemp & strBuff<br>
Case 2 '10's position<br>
If nChar > 0 Then<br>
strBuff = Tens(nChar) & "" & strBuff<br>
End If<br>
Case 0 '100's position<br>
<br>
If nChar = 1 Then<br>
Ones(1) = "jedna"<br>
strBuff = Ones(nChar) & "stotina" & strBuff<br>
End If<br>
If nChar = 2 Or nChar = 3 Or nChar = 4 Then<br>
Ones(2) = "dve"<br>
strBuff = Ones(nChar) & "stotine" & strBuff<br>
End If<br>
If nChar > 4 Then<br>
strBuff = Ones(nChar) & "stotina" & strBuff<br>
End If<br>
End Select<br>
Next i<br>
<br>
'Convert first letter to upper case<br>
strBuff = "SLOVIMA: " & LCase$(Left$(strBuff, 1)) & mID$(strBuff, 2)<br>
EndNumToText:<br>
'Return result<br>
NumToText = strBuff<br>
Exit Function<br>
NumToTextError:<br>
strBuff = "#Error#"<br>
Resume EndNumToText<br>
End Function<br>
<font color="#888888"><br>
--<br>
<a href="
http://www.elitesecurity.org/p2692926" target="_blank">
http://www.elitesecurity.org/p2692926</a><br>
</font><div><div></div><div class="h5"><br>
Prijave/odjave: <a href="
http://www.elitesecurity.org/pracenje#409492" target="_blank">
http://www.elitesecurity.org/pracenje#409492</a><br>
<br>
Ne menjajte sledece dve linije ukoliko odgovarate putem emaila!<br>
esauth:409492:c8d4acf4eaeac6e1c3cc5367071b9fde<br>