Pokusaj sa
dRezultat = Format(neki_izraz, "hh:nn")
gdje ce "neki_izraz" biti rezultat tvog oduzimanja vremena.
npr:
Dim dDate, dDate1 As Date
dDate1 = Now() - (1 / 24) 'ovdje oduzimam 1 sat od trenutnog vremena
dDate = Format(dDate1, "hh:nn:ss")
MsgBox dDate
----There is no place like 127.0.0.1-----