Datum a čas po určité časové periodě
Public Function Calc_End_Date(Seconds As Single)
On Error GoTo ErrFn
Dim TimeNow As String
TimeNow = (Now + Seconds / 86400)
Calc_End_Date = Format(TimeNow, "DDDDD TTTTT")
Exit Function
ErrFn:
Err.Clear
Calc_End_Date = ""
End Function