Restar fechas y que devuelva en meses

[E N T E R]

Necesito restar 2 fechas entre si y quiero que me devuelva en meses.
Lo hago así pero me trae mal el mes por ejemplo si resto (10/01/2001) - (03/02/2012) ya me dice que es 1 mes pero todavía no es falta 7 dias.

Este es mi codigo:

Código: (VB) [Seleccionar]

lblCuotas.Caption = Format(txtFecha2.Text, "mm") - Format(txtFecha1.Text, "mm")

[raul338]

Usa la funcion DateDiff, usando asi

DateDiff("m", Date, FechaARestar)

y te daran cuantos meses hay de hoy a esa fecha

[E N T E R]

Me da el mismo resultado raul.

Código: (VB) [Seleccionar]

lblCuotas.Caption = DateDiff("m", txtFecha2.Text, txtFecha1.Text)
Si por ejemplo resto (15/01/2012) - (10/03/2012) son 1 mes recién faltan todavía 5 días para que se cumpla 2 meses. yo no quiero que cuente si faltan días.

[PilusoVB]

Así me funciona a mi(siempre que se valide que la segunda fecha ingresada sea mayor a la primera), con "ww" como argumento de DateDiff obtenemos la cantidad de semanas entre fechas, si lo dividimos por 4 (semanas que tiene un mes), obtenemos un entero que es la cantidad de meses entre las fechas.

Código: (VB) [Seleccionar]

lbl.Caption = DateDiff("ww", t1.Text, t2.Text)
 lbl.Caption = lbl.Caption \ 4

[cobein]

Teniendo en cuenta la logica que pretenden aplicar algo asi podria funcionar

Código: [Seleccionar]

Option Explicit

Private Sub Form_Load()
    Debug.Print RestarMeses(CDate("10/1/12"), CDate("3/2/12"))
End Sub

Private Function RestarMeses(dInicio As Date, dFin As Date) As Long
    RestarMeses = DateDiff("m", dInicio, dFin)
    If Day(dInicio) >= Day(dFin) Then
        RestarMeses = RestarMeses - 1
    End If
End Function


[E N T E R]

Es así mismo cobein solo que no funciona el

parece por que solo te marca cuando es mayor o sea si pones:

Código: (VB) [Seleccionar]

Debug.Print RestarMeses(CDate("10/01/2012"), CDate("10/02/2012"))me devuelve 0

Ahora si aumento 1 día mas devuelve a 1

Código: (VB) [Seleccionar]

Debug.Print RestarMeses(CDate("10/01/2012"), CDate("11/02/2012"))

[cobein]

Quita el = de esta linea.

If Day(dInicio) >= Day(dFin) Then

[E N T E R]

Espectacular cobein . muchas gracias man.

Saludos !!!