mm Podrías hacerlo de la siguiente manera
tomas la fecha de inicio de la garantía ejemplo
FechaInicial = "10-02-2007"
Luego con la función dateAdd le agregas un año
Código:
dateAdd("yyyy", 1, FormatDate(FechaInicial, dd/mm/yyyy"))
he agregado la funcion formatDate po si existiese un posible error de formato
ahora lo que haces es comprarla con el día de hoy
Código:
if fechaInicial <= Date then
'Todavía tiene plazo
else
garantía caducada
end if