Prikazi cijelu temu 06.08.2013 20:50
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Skola Vb-a za napredne
Ja sam htio sve da napravim u jednoj proceduri ali ideja mi nije bas neka.
Mogli smo mi kroz optional godina i poslati neki parametar i opet da vratimo godine, takodje smo mogli vratiti godine kroz neki drugi parametar ulaza.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function Osoba(Ime As String, DatumRodjenja As Date, Optional Godina As Integer) As Integer
  2. Dim Dani As Integer
  3.  
  4. Dani = Date - DatumRodjenja
  5. Godina = Dani / 365
  6. Ime = Dani / 365
  7. Osoba = Dani Mod 365
  8. End Function
  9. Private Function Mujo()
  10. Dim StarostG As Integer
  11. Dim JosDana As Integer
  12. Dim Ime As String
  13.  
  14. Ime = "Mujo"
  15. JosDana = Osoba(Ime, "01.01.1957", StarostG)
  16. MsgBox " MujoIma: " & Int(Ime) & " godina i " & JosDana & " Dana"
  17. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.