iCentar » Forum » iC » Test_forum

#1

28.10.2016 18:10

Avko

Administrator

Registrovan od:28.05.2014
Postovi:4,970

Predmet:test vba kod

PreuzmiIzvorni kôd (Visual Basic):

Function BrSlovima(Broj) As String
'******************************************
'Ime: BrSlovima Function
'SadrÅ¾aj: ispisuje broj tekstom
'Autor: ZXZ
'Datum: 08 16, 2009, 12:34:16
'Adresa: Tuzla BiH
'Email: izonic@inet.ba
'Ulazni parametri:broj
'Izlazni parametri:broj ispisan tekstom
'*****************************************
Dim I1 As Integer, I2 As Integer
Dim N1 As Integer, N2 As Integer
Dim DioTri As String
Dim MjestoTri As Integer
Dim RodJ As Integer
Dim Strb As String
Dim Cifra As Integer
Dim Str(1 To 2) As String
'Broj = 112
N1 = Fix(Len(Format$(Broj)) / 3)
If Len(Format$(Broj)) Mod 3 > 0 Then
N1 = N1 + 1
End If
For I1 = 1 To N1
If I1 = 3 Then
RodJ = 1
Else
RodJ = 2
End If
If I1 = N1 Then
MjestoTri = 1
N2 = Len(Format$(Broj)) Mod 3
If N2 = 0 Then: N2 = 3
Else
N2 = 3
MjestoTri = Len(Format$(Broj)) - I1 * 3 + 1
End If
DioTri = Mid(Format$(Broj), MjestoTri, N2)
For I2 = 1 To N2
Cifra = Mid(DioTri, N2 - I2 + 1, 1)
If Cifra = 1 And Strb = "etiri" Then
Strb = "etr"
End If
If Cifra = 1 And Strb = "Å¡est" Then
Strb = "Å¡es"
End If
Str(1) = Cifre(Cifra, I2, I1)
If Str(1) = "naest" And Str(2) = "jedan" Then
Str(1) = "aest"
End If
If Str(1) = "nula" Then GoTo Petlja
If Cifra = 1 And I2 = 2 Then
If Str(2) = "nula" Then Str(1) = "deset"
Strb = Strb & Str(1)
Else
Strb = Str(1) & Strb
End If
Petlja:
Str(2) = Str(1)
Next I2
BrSlovima = Strb & ImenaB(DioTri, RodJ, I1) & BrSlovima
Strb = ""
Next I1
End Function
Function Cifre(Cifra As Integer, PoRedu As Integer, Rod As Integer) As String
Select Case Cifra
Case 0
Cifre = "nula"
GoTo Kraj
Case 1
If PoRedu = 1 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "jedan"
Else
Cifre = "jedna"
End If
ElseIf PoRedu = 2 Then
Cifre = "jeda"
End If
Case 2
If PoRedu = 1 Or PoRedu = 3 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "dva"
Else
Cifre = "dvije"
End If
ElseIf PoRedu = 2 Then
Cifre = "dva"
End If
Case 3
Cifre = "tri"
Case 4
If PoRedu = 1 Or PoRedu = 3 Then
Cifre = "etiri"
Else
Cifre = "etr"
End If
Case 5
If PoRedu = 2 Then
Cifre = "pe"
Else
Cifre = "pet"
End If
Case 6
If PoRedu = 2 Then
Cifre = "Å¡ez"
Else
Cifre = "Å¡est"
End If
Case 7
Cifre = "sedam"
Case 8
Cifre = "osam"
Case 9
If PoRedu = 2 Then
Cifre = "deve"
Else
Cifre = "devet"
End If
End Select
If PoRedu = 2 Then
If Cifra = 1 Then
Cifre = "naest"
Else
Cifre = Cifre & "deset"
End If
ElseIf PoRedu = 3 Then
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
Cifre = Cifre & "stotine"
ElseIf Cifra = 1 Then
Cifre = "stotinu"
ElseIf Cifra = 0 Then
Else
Cifre = Cifre & "stotina"
End If
End If
Kraj:
End Function
Function ImenaB(StrBr As String, Rod As Integer, PoRedu) As String
Dim Cifra As Integer
Dim Druga As Integer
If Val(StrBr) = 0 Then GoTo Kraj
Cifra = Val(Right(StrBr, 1))
If Len(StrBr) > 1 Then
Druga = Val(Mid(StrBr, Len(StrBr) - 1, 1))
End If
Select Case PoRedu
Case 1
'niÅ¡ta
Case 2
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "hiljada"
Else
ImenaB = "hiljade"
End If
Else
ImenaB = "hiljada"
End If
Case 3
If Cifra = 1 Then
If Druga = 1 Then
ImenaB = "miliona"
Else
ImenaB = "milion"
End If
Else
ImenaB = "miliona"
End If
Case 4
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarde"
End If
ElseIf Cifra = 1 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarda"
End If
Else
ImenaB = "milijardi"
End If
Case 5
End Select
Kraj:
End Function
'*--------------------------------------broj slovima kraj-------------------------------------------------

zivot je moja domovina.

#2

28.10.2016 18:25

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: test vba kod

E ja ovo nisam uspio ni iz tri pokusaja.
sad cu ponovo:

PreuzmiIzvorni kôd (Visual Basic):

'*----------------------------------broj slovima-----------------------------------------------------
'*--------------------------------------------------------------------------------------------------------
Function BrSlovima(Broj) As String
'******************************************
'Ime: BrSlovima Function
'SadrÅ¾aj: ispisuje broj tekstom
'Autor: ZXZ
'Datum: 08 16, 2009, 12:34:16
'Adresa: Tuzla BiH
'Email: izonic@inet.ba
'Ulazni parametri:broj
'Izlazni parametri:broj ispisan tekstom
'*****************************************
Dim I1 As Integer, I2 As Integer
Dim N1 As Integer, N2 As Integer
Dim DioTri As String
Dim MjestoTri As Integer
Dim RodJ As Integer
Dim Strb As String
Dim Cifra As Integer
Dim Str(1 To 2) As String
'Broj = 112
N1 = Fix(Len(Format$(Broj)) / 3)
If Len(Format$(Broj)) Mod 3 > 0 Then
N1 = N1 + 1
End If
For I1 = 1 To N1
If I1 = 3 Then
RodJ = 1
Else
RodJ = 2
End If
If I1 = N1 Then
MjestoTri = 1
N2 = Len(Format$(Broj)) Mod 3
If N2 = 0 Then: N2 = 3
Else
N2 = 3
MjestoTri = Len(Format$(Broj)) - I1 * 3 + 1
End If
DioTri = Mid(Format$(Broj), MjestoTri, N2)
For I2 = 1 To N2
Cifra = Mid(DioTri, N2 - I2 + 1, 1)
If Cifra = 1 And Strb = "
etiri" Then
Strb = "
etr"
End If
If Cifra = 1 And Strb = "Å¡est" Then
Strb = "Å¡es"
End If
Str(1) = Cifre(Cifra, I2, I1)
If Str(1) = "naest" And Str(2) = "jedan" Then
Str(1) = "aest"
End If
If Str(1) = "nula" Then GoTo Petlja
If Cifra = 1 And I2 = 2 Then
If Str(2) = "nula" Then Str(1) = "deset"
Strb = Strb & Str(1)
Else
Strb = Str(1) & Strb
End If
Petlja:
Str(2) = Str(1)
Next I2
BrSlovima = Strb & ImenaB(DioTri, RodJ, I1) & BrSlovima
Strb = ""
Next I1
End Function
Function Cifre(Cifra As Integer, PoRedu As Integer, Rod As Integer) As String
Select Case Cifra
Case 0
Cifre = "nula"
GoTo Kraj
Case 1
If PoRedu = 1 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "jedan"
Else
Cifre = "jedna"
End If
ElseIf PoRedu = 2 Then
Cifre = "jeda"
End If
Case 2
If PoRedu = 1 Or PoRedu = 3 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "dva"
Else
Cifre = "dvije"
End If
ElseIf PoRedu = 2 Then
Cifre = "dva"
End If
Case 3
Cifre = "tri"
Case 4
If PoRedu = 1 Or PoRedu = 3 Then
Cifre = "
etiri"
Else
Cifre = "
etr"
End If
Case 5
If PoRedu = 2 Then
Cifre = "pe"
Else
Cifre = "pet"
End If
Case 6
If PoRedu = 2 Then
Cifre = "Å¡ez"
Else
Cifre = "Å¡est"
End If
Case 7
Cifre = "sedam"
Case 8
Cifre = "osam"
Case 9
If PoRedu = 2 Then
Cifre = "deve"
Else
Cifre = "devet"
End If
End Select
If PoRedu = 2 Then
If Cifra = 1 Then
Cifre = "naest"
Else
Cifre = Cifre & "deset"
End If
ElseIf PoRedu = 3 Then
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
Cifre = Cifre & "stotine"
ElseIf Cifra = 1 Then
Cifre = "stotinu"
ElseIf Cifra = 0 Then
Else
Cifre = Cifre & "stotina"
End If
End If
Kraj:
End Function
Function ImenaB(StrBr As String, Rod As Integer, PoRedu) As String
Dim Cifra As Integer
Dim Druga As Integer
If Val(StrBr) = 0 Then GoTo Kraj
Cifra = Val(Right(StrBr, 1))
If Len(StrBr) > 1 Then
Druga = Val(Mid(StrBr, Len(StrBr) - 1, 1))
End If
Select Case PoRedu
Case 1
'niÅ¡ta
Case 2
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "hiljada"
Else
ImenaB = "hiljade"
End If
Else
ImenaB = "hiljada"
End If
Case 3
If Cifra = 1 Then
If Druga = 1 Then
ImenaB = "miliona"
Else
ImenaB = "milion"
End If
Else
ImenaB = "miliona"
End If
Case 4
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarde"
End If
ElseIf Cifra = 1 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarda"
End If
Else
ImenaB = "milijardi"
End If
Case 5
End Select
Kraj:
End Function
'*--------------------------------------broj slovima kraj-------------------------------------------------

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#3

28.10.2016 18:26

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: test vba kod

PreuzmiIzvorni kôd (Visual Basic):

'*----------------------------------broj slovima-----------------------------------------------------
'*--------------------------------------------------------------------------------------------------------
Function BrSlovima(Broj) As String
'******************************************
'Ime: BrSlovima Function
'SadrÅ¾aj: ispisuje broj tekstom
'Autor: ZXZ
'Datum: 08 16, 2009, 12:34:16
'Adresa: Tuzla BiH
'Email: izonic@inet.ba
'Ulazni parametri:broj
'Izlazni parametri:broj ispisan tekstom
'*****************************************
Dim I1 As Integer, I2 As Integer
Dim N1 As Integer, N2 As Integer
Dim DioTri As String
Dim MjestoTri As Integer
Dim RodJ As Integer
Dim Strb As String
Dim Cifra As Integer
Dim Str(1 To 2) As String
'Broj = 112
N1 = Fix(Len(Format$(Broj)) / 3)
If Len(Format$(Broj)) Mod 3 > 0 Then
N1 = N1 + 1
End If
For I1 = 1 To N1
If I1 = 3 Then
RodJ = 1
Else
RodJ = 2
End If
If I1 = N1 Then
MjestoTri = 1
N2 = Len(Format$(Broj)) Mod 3
If N2 = 0 Then: N2 = 3
Else
N2 = 3
MjestoTri = Len(Format$(Broj)) - I1 * 3 + 1
End If
DioTri = Mid(Format$(Broj), MjestoTri, N2)
For I2 = 1 To N2
Cifra = Mid(DioTri, N2 - I2 + 1, 1)
If Cifra = 1 And Strb = "
etiri" Then
Strb = "
etr"
End If
If Cifra = 1 And Strb = "Å¡est" Then
Strb = "Å¡es"
End If
Str(1) = Cifre(Cifra, I2, I1)
If Str(1) = "naest" And Str(2) = "jedan" Then
Str(1) = "aest"
End If
If Str(1) = "nula" Then GoTo Petlja
If Cifra = 1 And I2 = 2 Then
If Str(2) = "nula" Then Str(1) = "deset"
Strb = Strb & Str(1)
Else
Strb = Str(1) & Strb
End If
Petlja:
Str(2) = Str(1)
Next I2
BrSlovima = Strb & ImenaB(DioTri, RodJ, I1) & BrSlovima
Strb = ""
Next I1
End Function
Function Cifre(Cifra As Integer, PoRedu As Integer, Rod As Integer) As String
Select Case Cifra
Case 0
Cifre = "nula"
GoTo Kraj
Case 1
If PoRedu = 1 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "jedan"
Else
Cifre = "jedna"
End If
ElseIf PoRedu = 2 Then
Cifre = "jeda"
End If
Case 2
If PoRedu = 1 Or PoRedu = 3 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "dva"
Else
Cifre = "dvije"
End If
ElseIf PoRedu = 2 Then
Cifre = "dva"
End If
Case 3
Cifre = "tri"
Case 4
If PoRedu = 1 Or PoRedu = 3 Then
Cifre = "
etiri"
Else
Cifre = "
etr"
End If
Case 5
If PoRedu = 2 Then
Cifre = "pe"
Else
Cifre = "pet"
End If
Case 6
If PoRedu = 2 Then
Cifre = "Å¡ez"
Else
Cifre = "Å¡est"
End If
Case 7
Cifre = "sedam"
Case 8
Cifre = "osam"
Case 9
If PoRedu = 2 Then
Cifre = "deve"
Else
Cifre = "devet"
End If
End Select
If PoRedu = 2 Then
If Cifra = 1 Then
Cifre = "naest"
Else
Cifre = Cifre & "deset"
End If
ElseIf PoRedu = 3 Then
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
Cifre = Cifre & "stotine"
ElseIf Cifra = 1 Then
Cifre = "stotinu"
ElseIf Cifra = 0 Then
Else
Cifre = Cifre & "stotina"
End If
End If
Kraj:
End Function
Function ImenaB(StrBr As String, Rod As Integer, PoRedu) As String
Dim Cifra As Integer
Dim Druga As Integer
If Val(StrBr) = 0 Then GoTo Kraj
Cifra = Val(Right(StrBr, 1))
If Len(StrBr) > 1 Then
Druga = Val(Mid(StrBr, Len(StrBr) - 1, 1))
End If
Select Case PoRedu
Case 1
'niÅ¡ta
Case 2
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "hiljada"
Else
ImenaB = "hiljade"
End If
Else
ImenaB = "hiljada"
End If
Case 3
If Cifra = 1 Then
If Druga = 1 Then
ImenaB = "miliona"
Else
ImenaB = "milion"
End If
Else
ImenaB = "miliona"
End If
Case 4
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarde"
End If
ElseIf Cifra = 1 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarda"
End If
Else
ImenaB = "milijardi"
End If
Case 5
End Select
Kraj:
End Function
'*--------------------------------------broj slovima kraj-------------------------------------------------

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#4

28.10.2016 19:08

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:mozda naslov da vidim

PreuzmiIzvorni kôd (Visual Basic):

'*----------------------------------broj slovima-----------------------------------------------------
'*--------------------------------------------------------------------------------------------------------
Function BrSlovima(Broj) As String
'******************************************
'Ime: BrSlovima Function
'SadrÅ¾aj: ispisuje broj tekstom
'Autor: ZXZ
'Datum: 08 16, 2009, 12:34:16
'Adresa: Tuzla BiH
'Email: izonic@inet.ba
'Ulazni parametri:broj
'Izlazni parametri:broj ispisan tekstom
'*****************************************
Dim I1 As Integer, I2 As Integer
Dim N1 As Integer, N2 As Integer
Dim DioTri As String
Dim MjestoTri As Integer
Dim RodJ As Integer
Dim Strb As String
Dim Cifra As Integer
Dim Str(1 To 2) As String
'Broj = 112
N1 = Fix(Len(Format$(Broj)) / 3)
If Len(Format$(Broj)) Mod 3 > 0 Then
N1 = N1 + 1
End If
For I1 = 1 To N1
If I1 = 3 Then
RodJ = 1
Else
RodJ = 2
End If
If I1 = N1 Then
MjestoTri = 1
N2 = Len(Format$(Broj)) Mod 3
If N2 = 0 Then: N2 = 3
Else
N2 = 3
MjestoTri = Len(Format$(Broj)) - I1 * 3 + 1
End If
DioTri = Mid(Format$(Broj), MjestoTri, N2)
For I2 = 1 To N2
Cifra = Mid(DioTri, N2 - I2 + 1, 1)
If Cifra = 1 And Strb = "
etiri" Then
Strb = "
etr"
End If
If Cifra = 1 And Strb = "Å¡est" Then
Strb = "Å¡es"
End If
Str(1) = Cifre(Cifra, I2, I1)
If Str(1) = "naest" And Str(2) = "jedan" Then
Str(1) = "aest"
End If
If Str(1) = "nula" Then GoTo Petlja
If Cifra = 1 And I2 = 2 Then
If Str(2) = "nula" Then Str(1) = "deset"
Strb = Strb & Str(1)
Else
Strb = Str(1) & Strb
End If
Petlja:
Str(2) = Str(1)
Next I2
BrSlovima = Strb & ImenaB(DioTri, RodJ, I1) & BrSlovima
Strb = ""
Next I1
End Function
Function Cifre(Cifra As Integer, PoRedu As Integer, Rod As Integer) As String
Select Case Cifra
Case 0
Cifre = "nula"
GoTo Kraj
Case 1
If PoRedu = 1 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "jedan"
Else
Cifre = "jedna"
End If
ElseIf PoRedu = 2 Then
Cifre = "jeda"
End If
Case 2
If PoRedu = 1 Or PoRedu = 3 Then
If Rod = 1 Or Rod = 3 Or Rod = 5 Then
Cifre = "dva"
Else
Cifre = "dvije"
End If
ElseIf PoRedu = 2 Then
Cifre = "dva"
End If
Case 3
Cifre = "tri"
Case 4
If PoRedu = 1 Or PoRedu = 3 Then
Cifre = "
etiri"
Else
Cifre = "
etr"
End If
Case 5
If PoRedu = 2 Then
Cifre = "pe"
Else
Cifre = "pet"
End If
Case 6
If PoRedu = 2 Then
Cifre = "Å¡ez"
Else
Cifre = "Å¡est"
End If
Case 7
Cifre = "sedam"
Case 8
Cifre = "osam"
Case 9
If PoRedu = 2 Then
Cifre = "deve"
Else
Cifre = "devet"
End If
End Select
If PoRedu = 2 Then
If Cifra = 1 Then
Cifre = "naest"
Else
Cifre = Cifre & "deset"
End If
ElseIf PoRedu = 3 Then
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
Cifre = Cifre & "stotine"
ElseIf Cifra = 1 Then
Cifre = "stotinu"
ElseIf Cifra = 0 Then
Else
Cifre = Cifre & "stotina"
End If
End If
Kraj:
End Function
Function ImenaB(StrBr As String, Rod As Integer, PoRedu) As String
Dim Cifra As Integer
Dim Druga As Integer
If Val(StrBr) = 0 Then GoTo Kraj
Cifra = Val(Right(StrBr, 1))
If Len(StrBr) > 1 Then
Druga = Val(Mid(StrBr, Len(StrBr) - 1, 1))
End If
Select Case PoRedu
Case 1
'niÅ¡ta
Case 2
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "hiljada"
Else
ImenaB = "hiljade"
End If
Else
ImenaB = "hiljada"
End If
Case 3
If Cifra = 1 Then
If Druga = 1 Then
ImenaB = "miliona"
Else
ImenaB = "milion"
End If
Else
ImenaB = "miliona"
End If
Case 4
If Cifra = 2 Or Cifra = 3 Or Cifra = 4 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarde"
End If
ElseIf Cifra = 1 Then
If Druga = 1 Then
ImenaB = "milijardi"
Else
ImenaB = "milijarda"
End If
Else
ImenaB = "milijardi"
End If
Case 5
End Select
Kraj:
End Function
'*--------------------------------------broj slovima kraj-------------------------------------------------

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#5

28.10.2016 19:10

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: test vba kod

igleda da je ipak do mene.
da nisam kopirao sve.
Sjecam se samo da sam izbjegavao kopirati ovaj rem na pocetku i na kraju gdje sam uokvirio da se ove procedure odnose na na istu stvar.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#6

08.11.2016 20:23

Sijedi

Clan

Registrovan od:05.07.2011
Postovi:40

Predmet:Re: test vba kod

I ja sam nekad napravio tu funkciju, davnoooo

PreuzmiIzvorni kôd (Visual Basic):

Function SlovimA(broj As Single)
Dim rez As String, Cjeli As Integer, Dec As Single, CBroj As String
Dim Duzina As Integer, i As Integer, Tric As String, cs As Integer, cj As Integer, cd As Integer
Dim dDec As String, Slov As String
Dim ImeBr(9) As String
On Error GoTo Greska
broj = Trim(broj)
If (broj = 0) Then
SlovimA = "nula"
Exit Function
End If
ImeBr(1) = "jedan"
ImeBr(2) = "dva"
ImeBr(3) = "tri"
ImeBr(4) = "
etiri"
ImeBr(5) = "pet"
ImeBr(6) = "Å¡est"
ImeBr(7) = "sedam"
ImeBr(8) = "osam"
ImeBr(9) = "devet"
rez = ""
Cjeli = Int(broj)
Dec = (broj - Cjeli) * 100
CBroj = Trim(Str(Cjeli)) ', 15)
Duzina = Len(CBroj)
CBroj = Space$(15 - Duzina) & CBroj
i = 1
Do While (i < 15)
Tric = Mid(CBroj, i, 3)
If (Tric <> " " And (Tric <> "001" Or i = 4)) Then
cs = Val(Mid(Tric, 1, 1))
cd = Val(Mid(Tric, 2, 1))
cj = Val(Mid(Tric, 3, 1))
If (cs = 1) Then
rez = rez + "sto"
ElseIf (cs = 2) Then
rez = rez + "dvije"
ElseIf (cs > 2) Then
rez = rez + ImeBr(cs)
End If
If (cs > 4) Then
rez = rez + "stotina"
ElseIf (cs > 1) Then
rez = rez + "stotine"
End If
Select Case cd
Case 4
rez = rez + "
etr"
Case 5
rez = rez + "pe"
Case 6
rez = rez + "Å¡ez"
Case 9
rez = rez + "deve"
Case Is > 1
rez = rez + ImeBr(cd)
Case 1
If (cj = 0) Then
rez = rez + "deset"
ElseIf (cj = 1) Then
rez = rez + "jeda"
ElseIf (cj = 4) Then
rez = rez + "
etr"
Else
rez = rez + ImeBr(cj)
End If
If (cj > 0) Then
rez = rez + "naest"
End If
Case Else
End Select
If (cd > 1) Then
rez = rez + "deset"
End If
If (cd <> 1 And cj <> 0 And (i = 13 Or Val(Tric) <> 1)) Then
If (cj = 2 And i <> 13 And i <> 7) Then
rez = rez + "dvije"
Else
rez = rez + ImeBr(cj)
End If
End If
If ((i = 1 Or i = 10) And cs + cd + cj <> 0) Then
rez = rez + "hiljad"
If (Val(Tric) = 1) Then
rez = rez + "u"
ElseIf (cj > 4 Or cj = 0) Then
rez = rez + "a"
ElseIf (cj > 1) Then
rez = rez + "e"
End If
ElseIf (i = 4 And cs + cd + cj <> 0) Then
rez = rez + "milijard"
If (Val(Tric) = 1) Then
rez = rez + "u"
ElseIf (cj > 4 Or cj = 0) Then
rez = rez + "i"
ElseIf (cj > 1) Then
rez = rez + "e"
End If
ElseIf (i = 7 And cs + cd + cj <> 0) Then
rez = rez + "milion"
If (cj <> 1) Then
rez = rez + "a"
End If
End If
ElseIf (Tric = "001") Then
rez = rez + "jedan"
End If
i = i + 3
Loop
dDec = Str(Val(Dec)) ', 2)
Slov = rez + " " + dDec + "/100"
SlovimA = Slov
Exit Function
Greska:
SlovimA = "NEIZRECIVO"
End Function

#7

09.11.2016 18:45

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: test vba kod

Nisam ni znao da ih ima toliko uradjenih.
Nekad su treabale a sad izgleda ne trebaju nigdje ili se varam.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#8

10.11.2016 11:05

Gjoreski

Administrator

Registrovan od:02.02.2009
Postovi:1,879

Predmet:Re: test vba kod

pa koriste se tih funkcija. Obicno svi mi koi rdimo komercijala mislim na aplikacije koi su nesto kao matrijalno i finansovo imamo tu funkciju.Samo sad sa internetom moze se naci lakse ta funkcija i skoro nikoje ne ja pravi ili je vec nasao gotova i ja koristi.

#9

10.11.2016 11:21

zxz

Administrator

Registrovan od:03.02.2009
Postovi:10,711

Predmet:Re: test vba kod

Ja sam je pravio cak dva puta.
Jednom uradio i izgubio negdje nisam mogao naci.
Ponovo sjeo i napravio ali i dalje mislim da se moze mnogo strukturalnije napraviti samo bi trebalo sjesti i razmisliti.

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.

#10

10.11.2016 21:58

Gjoreski

Administrator

Registrovan od:02.02.2009
Postovi:1,879

Predmet:Re: test vba kod

Opet cu da kazem kad jedna funkcija treba ti desetina puta u toku posla ne treba se puno truditi.

Stranice (1):1

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

iCentar → iC → Test_forum

Srodne teme

Ko je online?

Prijavi se

Izdvojeno