'Primer 7: Konverzija kursa (ugradjene i definisane konstante) Sub kursKonst() 'Deklaracije podataka Const NBS_KURS As Double = 107 Dim dinIznos As Double Dim evrIznos As Double Dim izbor As String Dim sPoruka As String sPoruka = "Izaberite konverziju: unesite" & vbNewLine sPoruka = sPoruka & vbTab & "D za (Dinari -> Evri)" & vbNewLine sPoruka = sPoruka & vbTab & "E za (Evri -> Dinari)" izbor = InputBox(sPoruka) If izbor = "D" Then 'Unos podataka = Ulaz dinIznos = InputBox("Unesite dinarski iznos") 'Obrada evrIznos = dinIznos / NBS_KURS 'Izlaz sPoruka = "Dinari -> Evri" & vbNewLine sPoruka = sPoruka & "Kurs:" & vbTab & NBS_KURS & vbNewLine sPoruka = sPoruka & "Dinari: " & vbTab & Format(dinIznos, ".##") & vbNewLine sPoruka = sPoruka & "Evri: " & vbTab & Format(evrIznos, ".##") ElseIf izbor = "E" Then 'Unos podataka = Ulaz evrIznos = InputBox("Unesite iznos u evrima") 'Obrada dinIznos = evrIznos * NBS_KURS 'Izlaz sPoruka = "Evri -> Dinari" & vbNewLine sPoruka = sPoruka & "Kurs:" & vbTab & NBS_KURS & vbNewLine sPoruka = sPoruka & "Evri: " & vbTab & Format(evrIznos, ".##") & vbNewLine sPoruka = sPoruka & "Dinari: " & vbTab & Format(dinIznos, ".##") Else MsgBox "Nepostojeca opcija" End End If MsgBox sPoruka End Sub