Gestion de pagos quincenales

[Gakex]

Hola Tengo una dudad espero que me puedan ayudar

Resulta que estoy haciendo un programa para la gestion de pagos quincenales pero no se como calcular las quincenas, es decir como averiguar en que dias del mes puedo cobrar una quincena a una persona que me debe dinero.

[erbuson]

Hola, no se si conoces la funcion DateAdd que te permite sumas valores a una fecha para conseguir otra, por ejemplo:

DateAdd("d", 15, Date) ' Aqui sumamos 15 dias a la fecha e hoy

Si es una posible solución a tu problema y necesitas mas datos, comenta.

Saludos

[Gakex]

Gracias erbuson

Mira
El detalle es que no todos los meses son de 30 dias y solo en años bisiestos febrero tiene 29 dias, al sumar quince dias las fechas se corren por ejemplo partiendo desde los primeros dias de feb
q1 - 15/feb/yyyy
q2 - 2/marzo/yyyy
q3 - 17/marzo/yyyy
q4 - 1/abril/yyyy

estaba pensando en hacer una funcion que me diera las proximas n fechas donde son quincenas, como es un sistema de cobro por quincenas, practicamente los dias 15 y 30, en el caso de febrero la segunda semana seria el 28 ó 29 en años bisiestos.

pero como saber cuantos dias tiene cada mes.
que año es bisiesto, para calcular la segunda quincena de febrero.

estoy pensando en una funcion digamos quincenas.
y parametros la fecha actual, utilizo la fecha del sistema( Date ), el numero de quincenas que solicito de 2 a 10 quincenas(como plaso minimo y maximo) y que me regrese las fechas de las siguientes n quincenas que le solicite, para esto es el segundo parametro y el primero para averiguar desde donde empesar a buscar.

ojala me puedan ayudar con algunas funciones de fechas para conocer el mes en el que estamos, el dia en el que estamos, el año, cuantos dias tiene cada mes y cuando es año bisiesto.

creo que eso me serbiria bastante.

[erbuson]

Hola, en primer lugar puedes utilizar esta función que te devuelve si un año es bisiesto ya que el único problema leyendo tu mensaje es en estos años puesto que al parecer para los demás meses siempre serán 15 y 30

Código vb:

Function EsBisiesto(ByVal Anno As Integer) As Boolean
  If Day(DateAdd("d", -1, DateSerial(Anno, 3, 1))) = 29 Then EsBisiesto = True
End Function
 

La primera quince SIEMPRE será día 15 y la segunda día 30 si no es Febrero. En este último caso será 28 o 29 dependiendo de si Bisiesto = True

Si he entendido mal o quedan dudas comenta.

Saludos

[Gakex]

Si parese que por ahi va la cosa, voi a intentarlo mas tarde y luego comento por aqui como voi con eso pero por ahora tengo que salir.

gracias

[Gakex]

Ya encontre lo que buscaba un manual muy completo sobre las funciones que tiene visual basic 6 para manejar fechas el detalle es que esta en ingles.

Por ejemplo para saber en que mes estamos
intMonth = Month(Now) ' intMonth = 8

aqui les dejo el enlace http://www.vb6.us/tutorials/date-tim...s-visual-basic para futuras referencias.

[erbuson]

Se agradece el aporte, aunque para los menos expertos en inglés (como es mi caso) aquí el enlace con Recursos Visual Basic en la lengua de Cervantes.

Funciones con Fechas

Saludos

[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

[lokoman]

Hola!!
Para estructurar mas la cosa, aqui está una funcion que calcula si es fin de semana... por si acaso los dias 15 ó 30 son sabado o domingo:

Código vb:

'Para usarlo
NombreDiaSemana = fDiaSemana(Date)
 
If NombreDiaSemana = "Sábado" Or NombreDiaSemana = "Domingo" Then 'Es un fin de semana
end if
 

Esta es la funcion:

Código vb:

Public Function fDiaSemana(pFecha As String)
    Select Case (Weekday(pFecha))
        Case 1: pFecha = "Domingo"
        Case 2: pFecha = "Lunes"
        Case 3: pFecha = "Martes"
        Case 4: pFecha = "Miércoles"
        Case 5: pFecha = "Jueves"
        Case 6: pFecha = "Viernes"
        Case 7: pFecha = "Sábado"
    End Select
    fDiaSemana = pFecha
End Function
 

[Gakex]

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.

[sauryjorge]

Me gusto mucho este tema y función, hice un arreglo menor para usarla dentro de un FOR para tener una lista de quincenas secuenciales.

Lo interesante de la función, es que trabaja bien tanto en VB6.0 como en VB.NET sin problemas.

Código vb:

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 = DateAndTime.Day(Fecha) : mes = Month(Fecha) : año = Year(Fecha)
 
        For x = 1 To Qnas
            Fechas = ""
            If dia <= 15 Then
                Fechas = DateSerial(año, mes, 15) & " "
                dia = 16
            Else
 
                UltDia = DateAndTime.Day(DateSerial(año, mes + 1, 0))
 
                If UltDia = 31 Then
                    Fechas = DateSerial(año, mes + 1, -1) & " "
                Else
                    Fechas = DateSerial(año, mes + 1, 0) & " "
                End If
 
                mes = mes + 1
                dia = 15
            End If
        Next
        CalcQuincenas = Fechas
    End Function
 

[jcnavamorffe]

Saludos..

estoy tratando de usar la funcion pero se me presento un detalle..

no puede haber un sabado, domingo o feriado..



alkguna ayuda?

[jlaosbarrios]

Hola veo que ustedes son unas maquinas quisiera ver si me pueden ayudar ya que estoy registrado en este foro y hasta ahora no recibo ninguna respuesta de ayuda.
Y me e facultado en escribirles a Uds.

[jlaosbarrios]

Hola estoy tratando de buscar una solución y lo que de momento e intentado hacer es un bucle el cual me a dado resultado pero me devuelve el valor en días
24/10/2014
25/10/2014
26/10/2014
27/10/2014
28/10/2014

y yo lo que busco es que me devuelva en meses.
24/10/2014
24/11/2014
24/12/2014
24/01/2015
24/02/2015

Estoy tomando el valor de Text1(14).Text que es donde ingreso la cantidad algo así ingreso en el text por ejemplo 5 y me devuelva 5 meses
y LblFecha que es donde muestro la fecha del sistema.

Private Sub Command1_Click()

Dim i As Date

For i = 1 To Text1(14).Text

MSFMovimientos.TextMatrix(i, 19) = DateValue(lblFecha + i)

Next i

End Sub

gracias de antemano.