Function Vrijeme(Datum As Date) As Date
Dim VS As String

VS = Day(Datum) & "." & Month(Datum) & "." & Year(Datum) _
& " " & Hour(Datum) & ":" & Minute(Datum) + 1
Datum = VS
End Function