Našel jsem si na netu nějaký kód který jsme si upravil takhle, ale pořád nemůžu přijít na to jak odečíst celý čas a ne jen hodinu ;) Private Sub Command1_Click() Dim FirstDate As Date Dim IntervalType As String Dim Number As Integer Dim Msg IntervalType = "h" FirstDate = InputBox("zadej datum") Number = InputBox("zadej hodinu") Msg = "New date: " & _ DateAdd(IntervalType, -Number, FirstDate) MsgBox Msg End Sub
|