Function Vrijeme(Datum As Date) As Date
Dim VS As String
Dim D As String
Dim M As String
Dim Y As String
Dim H As String
Dim MIN As String
Dim MIN1 As String
Dim S As String
Dim korekcijaS As Double
Dim korekcijaM As Double
Dim korekcijaM1 As Double
D = Day(Datum)
M = Month(Datum)
Y = Year(Datum)
S = Second(Datum)
korekcijaS = IIf(S > 30, 1, 0)
MIN = Minute(Datum) + korekcijaS
korekcijaM = IIf(MIN < 60, 1, 0)
korekcijaM1 = IIf(MIN = 60, 1, 0)
MIN1 = MIN * korekcijaM
H = Hour(Datum) + korekcijaM1
VS = D & "." & M & "." & Y & " " & H & ":" & MIN1
Vrijeme = VS
End Function