Gestion de pagos quincenales

[Gakex]

Hola porfin pude crear una funcion que me diera las fechas en que son quincena, es decir los dias 15 y 30 de cada mes, 28 o 29 en febrero dependiendo, partiendo de una fecha calcula el numero de fechas solicitadas, y puede ir de 1 a mas de 100, pero creo que mas de 50 ya son muchas ademas las calcula con facilidad y sin demora.

aqui les dejo la funcion por si alguien mas la ocupa

Código:

Function CalcQuincenas(ByVal Qnas As Integer, ByVal Fecha As Date) As String
    '=======================================================
    'Calculo de las fechas que caen en quincena, es decir los dias 15 y 30 de cada mes con
    'dos parametros, Qnas como entero es el que nos dice cuantas fechas tenemos que buscar
    'apartir de la fecha indicada en el segundo parametro, en este caso es Fecha como Date.
    '========================================================
        
    Dim dia, mes, año As Integer
    Dim x As Integer
    Dim Fechas As String
    Dim UltDia As Integer
    
    dia = Day(Fecha): mes = Month(Fecha): año = Year(Fecha)
    
    For x = 1 To Qnas
        If dia <= 15 Then
            Fechas = Fechas & DateSerial(año, mes, 15) & " "
            dia = 16
        Else
            
            UltDia = Day(DateSerial(año, mes + 1, 0))

                If UltDia = 31 Then
                    Fechas = Fechas & DateSerial(año, mes + 1, -1) & " "
                Else
                    Fechas = Fechas & DateSerial(año, mes + 1, 0) & " "
                End If
                
            mes = mes + 1
            dia = 15
        End If
        
    Next
    CalcQuincenas = Fechas
    
End Function