Ayuda con fechas

EL_Bordi
04 de Mayo del 2006
Estoy utilizando una funcion para calcular la diferencia de dias entre una determinada fecha con respecto de la actual, lo hago de la siguiente manera:

rsulfecha = DateDiff("d", ("30/04/2006"), Date)
El problema con el que me encuentro es el siguiente: en esta funcion para poder calcular la diferencia es necesario introducir la fecha en formato dd/mm/yyyy. Yo solamente tengo los dias que quiero restarle a la fecha actual.
EJ: fecha actual:03/05/2006 - 30 dias
El resultado que necesito seria 27/04/2006
Agradeceria calquier tipo de ayuda. Gonzalo

Rosa
04 de Mayo del 2006
Parece que lo que estás buscando es la función datedd. Ej:

DateAdd("d", -30, Date)