Ver Mensaje Individual
  #10 (permalink)  
Antiguo 18/10/2010, 01:52
Avatar de Gakex
Gakex
 
Fecha de Ingreso: enero-2009
Mensajes: 137
Antigüedad: 15 años, 10 meses
Puntos: 4
Respuesta: Gestion de pagos quincenales

Ho gracias lokoman pero yo tambien lo adapte de una forma diferente para que me muestre el nombre del dia, con el siguiente procedimiento se saca cada una de las fechas de la cadena entera de debuelve la funcion CalcQuincenas y primero calcula el dia de la semana y despues en base a eso el nombre del dia.

Código:
Fechas = CalcQuincenas(Quincenas, Me.MonthView1.Value)

    'El for agrega una nueva linea de una forma muy peculiar
    For x = 1 To Len(Fechas)
        Resumen = Resumen & vbCrLf & " No. " & No & vbTab & "  " & Trim(Mid(Fechas, x, 10)) & vbTab & WeekdayName(Weekday(Trim(Mid(Fechas, x, 10))))
        x = x + 10
        No = No + 1
    Next
    'La cadena formateada va un Textbox
    Me.txtResumen = Resumen
Ahora mismo el resultado que me arroja de las proximas 10 quincenas es el siguiente:

Código:
 No. 1      30/10/2010    Sábado
 No. 2      15/11/2010    Lunes
 No. 3      30/11/2010    Martes
 No. 4      15/12/2010    Miércoles
 No. 5      30/12/2010    Jueves
 No. 6      15/01/2011    Sábado
 No. 7      30/01/2011    Domingo
 No. 8      15/02/2011    Martes
 No. 9      28/02/2011    Lunes
 No. 10     15/03/2011    Martes
Asi se ve mejor, de momento no creo que sea importante que solo sean dias habiles, pero de no ser asi ya veremos como adaptarlo, pues ahi les dejo a los que anden buscando algo asi.
Saludos.