Access - sumar meses a una fecha

Hola

existen en acces alguna funcion que sume meses a una fecha? no me vale multiplicar por 30 los meses y sumarselo a la fecha, ya que hay meses de 31 dias.

He intentado hacer una funcion como esta:

Public Function SumarMesesFecha(fecha, mescant) As Date
Dim dia As String
Dim mes As String
Dim anyo As String
Dim resto As Integer
Dim diasasumar As Integer
Dim resultado As String

dia = Day(fecha)
mes = Month(fecha)
anyo = Year(fecha)

resto = Format(mescant / 12)
diasasumar = CInt(mescant - (resto * 12))

resultado = dia & (CStr(CInt(mes) + diasasumar)) & (CStr(CInt(anyo) + resto))
SumarMesesFecha = CDate(resultado)
End Function

el problema es que no se como hacer para que en la division si me sale 7,5 o 7,4 o 7,8,... solo me coja el numero entero, es decir el 7.

gracias

No se exactamente el alcance de lo que necesitas. Mira a ver si te vale esto:
Mesfinal=Format(Fechaactual,mm)+MesesASumar