Como descomponer rangos de fecha en años y meses

[Gakex]

Hola cachucha10 no entendi bien tu pregunta pero seguro que vas a necesitar crear una funcion o un subprocedimiento para que te de todas las fechas que tengan que salir.

por aqui te dejo algo que encontre

Código:

Option Explicit

' recibe las dos fechas como parámetros
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Calcular(Fecha_Inicial As Date, _
                     Fecha_Final As Date)

    
    Const Formato As String = "#,##0"
    
    Me.Cls
    Me.Print "Calcular Intervalos entre las fechas  " & Fecha_Inicial & _
             "  hasta :" & Fecha_Final & vbNewLine & String(150, "-") & vbNewLine
                                   
    
    Me.Print Format(DateDiff("s", Fecha_Inicial, Fecha_Final), Formato) & " segundos"
    Me.Print Format(DateDiff("n", Fecha_Inicial, Fecha_Final), Formato) & " minutos"
    Me.Print Format(DateDiff("h", Fecha_Inicial, Fecha_Final), Formato) & " horas"
    
    Me.Print Format(DateDiff("y", Fecha_Inicial, Fecha_Final), Formato) & " dias"
    Me.Print Format(DateDiff("WW", Fecha_Inicial, Fecha_Final), Formato) & " semanas"
    Me.Print Format(DateDiff("m", Fecha_Inicial, Fecha_Final), Formato) & " meses"
    Me.Print Format(DateDiff("yyyy", Fecha_Inicial, Fecha_Final), Formato) & " años"
    
End Sub

Private Sub Command1_Click()
    ' le pasa las dos fechas a la función
    Call Calcular("01/01/2000", Date)
End Sub

Private Sub Form_Load()

    Me.AutoRedraw = True
    Command1.Caption = "calcular intervalos "

End Sub

Las lineas de arriba te dicen cuantos segundos, minutos, horas.... años hay entre dos fechas.

Puedes comprobar el resultado en la imagen de abajo



Ejemplo que esta en www.Recursosvisualbasic.com.ar