Private Sub Command_Click()
Dim Dana As Integer
Dim Vrijeme As Single

Dana = Me.Dpovrat - Me.Dpolaska
Vrijeme = Me.Vpovratka - Me.Vpolaska
Me.Udana = Dana + 1
Me.Usati = Format(Vrijeme, "HH")
Me.Umin = Format(Vrijeme, "nn")
End Sub