Как подсчитать разницу двух переменных типа время

[AHTOXA]

Имеются две строки, в обоих содержится время. Мне нужно посчитать разницу между ними и результат округлить до часов.

[corgi]

dim t1 as date
dim t2 as date
dim t3 as date
t1='первый текстбокх
t2='второй текстбокх
t3=t1-t2