Sumar un mes a una fecha...pero con dia fijo.

[juan007]

Desde ya agradecer cualquier ayuda sugerencia o critica.
Les comento que tengo que trabajar con la fecha del sistema, y a esta fecha sumarle un mes, en eso no hay problema ya que lo hago de esta forma:

Código:

fecha = Format(Date, "dd-mm-yyyy")
txtFecha=DateAdd("m", 1, fecha)

Hasta aca, no hay problemas pero se me hace necesario que la fecha quede siempre con dia 30.
Por ejemplo si la fecha de sistema es 14-07-2009 y si le sumo 1 mes ocupando La funcion DateAdd me quedaria 14-08-2009, pero necesito que le sume un mes y ademas quede apuntando siempre la dia 30 osea 30-08-2009 y bueno para el caso de febrero que me apunte al dia 28.

Bueno espero haberme explicado bien, nuevamente Gracias.

[Taribo007]

Copiate esta funcion en un modulo:

' ( @ @ )
'-----------------------------oOOo-(_)-oOOo--------------------------
'| CREADO POR: Andrés González García (Taribo) |
'| UTILIDAD: Devuelve el ultimo dia del mes |
'| FECHA: 21 de Abril de 2008 |
'| AGRADECIMIENTOS:Foro de Access y VBA |
'| OBSERVACIONES: http://www.mvp-access.com/foro/ |
'---------------------------------------Oooo.------------------------
' .oooO ( )
' ( ) ) /
' \ ( (_/
' \_)
Public Function UltimoDiaMes(Mes As Integer, Año As Integer) As Date
UltimoDiaMes = DateSerial(Año, Mes + 1, 1) - 1
End Function

Y la llamas asi:

Dim VarFecha As Date

VarFecha = DateAdd("m", 1, Date)
txtfecha = UltimoDiaMes(Month(VarFecha) + 1, Year(VarFecha))

Un saludo