Esa respuesta que dio Dradi7 esta bien, pero también puedes utilizar el tipo Date y funciona de la misma manera
Código:
Dim fecha as Date
fecha = Now.AddMinutes(-30)
De esa forma le restas 30 min a la hora actual, pero si se supone que ya restaste la hora en el relog, no deberias de hacer eso, simplemente toma la hora normal.
Ahora que si quieres sacarle los dias, meses y años lo puedes hacer si tantas complicaciones.
Código:
Dim diadelmes as Integer=Now.Day() '1 a 30 ó 31
Dim diadelasemana as Integer=Now.DayOfWeek() '1 al 7 que corresponden a lunes, martes,etc
Dim diadelaño as Integer=Now.DayOfYear() ' 1 a 365
Dim minutos as Integer=Now.Minute() '0 a 59
Dim segundos as Integer=Now.Second() '0 a 59
Dim mes as Integer=Now.Month() '1 al 12
Dim year as Integer=Now.Year() 'formato largo 1985
Dim year2 as Integer=Now.ToString("yy") 'formato corto 85
Espero que te quede mas claro