Fehcas En Vb6

[sebastianarroyo]

 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

[Lord Trancos 2]

 Puedes usar la funcion DateAdd o bien algo tan sencillo como una resta:

NuevaFecha = FechaActual - 30