|
Dobrý den, nepracujte s textovým řetězcem (string) ale s proměnnou uchovávající datum a čas (Date).
Dim cas As Date
Dim planovany_cas As Date
'Načtení aktuálního času do proměnné cas
cas = DateTime.Now
'Přičtení 5-ti minut k aktuálnímu času do proměnné planovany_cas
planovany_cas = cas.AddMinutes(5)
Pak už si tuto proměnnou zformátujte dle libosti, např:
MsgBox(Format(planovany_cas, "HH:mm"))
S pozdravem Hellis
|