Access - calcular periodo y presentar fecha

Hola!
Tengo una BD de documentos que que expiran a los 3 meses, 6 meses y un año. necesito una consulta que al escribir la fecha de ingreso me cuente el priodo de tiempo y me lo presente en fecha, me explico, al ingresar hoy 13/06/2006 me sume tres meses y lo presente como 13/09/2006. les agradezco infinitamente su ayuda.

Adile

Miratela funcion Datedif()

Gracias, pero no funciona. Lo deseo es que un documento cuya duracion es por ejemplo 3 meses al entrar caso y escriba la fecha de ingreso y el periodo de vida del documento (ejemplo 3 meses, 6 meses y 1 año) de diga la fecha de eliminar el documento.

Gracias de nuevo

Seguramente 2pl quiso decir que mirases la función DateAdd()
;-)

Saludos
José Bengoechea Ibaceta

Hola Chea, me falto una f (datediff) y esta es la función completa para Adile:

Public Function parendat(FECHA1 As Date, FECHA2 As Date)
Dim años As Integer
Dim meses As Integer
Dim dias As Integer

años = DateDiff("yyyy", FECHA1, FECHA2)

If Format(FECHA2, "mmdd") < Format(FECHA1, "mmdd") Then
años = años - 1
End If

meses = DateDiff("m", FECHA1, FECHA2) - (años * 12)

dias = DateDiff("d", Format(FECHA1, "dd"), Format(FECHA2, "dd"))

If dias < 0 Then
meses = meses - 1
dias = DateDiff("d", DateSerial(Year(FECHA2), Month(FECHA2) - 1, Day(FECHA1)), FECHA2)
End If

parendat = Str(años) & " años," & Str(meses) & " meses," & Str(dias) & " días"

End Function

Un cordial saludo de un Gaditano

Pero yo he entendido que lo que quiere es añadir meses en vez de restar fechas:

Nuevafecha =DateAdd ("m",3,mifecha)

Saludos
José Bengoechea Ibaceta

Llevas razón Chea, el que habia entendido mal era yo.
Saludos

Gracias, muchas gracias a todos, pude resolver.