Solo tenías que reemplazar el valor entero "4" por esto:
DateInterval.Day. Lo que has hecho ha sido eliminar todos los demás argumentos...
Por ejemplo de:
DateAndtime.DateAdd(4, 180, time)
a:
DateAndtime.DateAdd(DateInterval.Day, 180, time)
...y así con el resto.
Saludos