Diferencia Fechas

[srodrig11]

Hola Amigos

tengo el siguiente inconveniente y la verdad estoy perdido un poco con este tema, estoy realizando un sistema en VB 6 en donde el modulo de garantias debe realizar lo siguiente:

Un producto que se compro en 10/02/2007 no tiene garantia por que la fecha de hoy es 19/02/2009 solamente se da garantia a los productos en donde no pase un año, es decir solo recibe hasta el año 2008 mes 02 sin importar el dia.

les agradezco la colaboracion en esta diferencia de fechas

[gepd]

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

[Fann_Lavigne]

Con DateDiff puedes saber la diferencia de fechas en el lapso de tiempo (dias mes años etc) que desees