AYUDA conteo de fechas

[rishart]

Hola amigos aka les presento un problema que me surgio en el sistema espero me puedan ayudar a como hacerle, en mi sistema hago una instruccion para fechas de pago de un credito que estoy otorgando, por ejemplo. si doy un credito hoy 28 de oct con pagos quincenales entonces mis fechas de pagos seria los dias 11 y 26 de cada mes contando que un mes trae 30 dias, pero en el caso de ocubre trae 31
mi problema es que no quiero que tome encuenta los meses que tra 31 dias es decir que a todos los meses los tome como 30 dias que omita el dia 31 y en el caso de febrero que omita el dia 29 alguien podria ayudarme con mi problema, aka les muestro con que instruccion hago que me calcule cada 15 dias las fechas

Código:

 Dim diaFinal As DateTime = hoy.AddDays(7)

con ese codigo le sumo los dias, alguien puede ayudarme a omitir los 31 de los meses y en el caso de febrero el dia 29

espero que alguien pueda ayudarme y les agradezco de antemano su ayuda. graciassss. saludos

[eperedo]

No entendí bien el tema de los pagos, pero creo que la solución va por comprobar primero la cantidad de días que tiene el mes:

Código vb.net:

Dim res As New System.Text.StringBuilder()
        '
        Dim dias_mes As Int32 = Date.DaysInMonth(Date.Now.Year, Date.Now.Month)
        Dim primera_cuota, segunda_cuota As Date
        '
        If dias_mes = 31 Then
            Dim dias_agregar As Int32 = 31 - 15
            primera_cuota = Date.Today.AddDays(dias_agregar)
            segunda_cuota = primera_cuota.AddDays(15)
            res.Append("Pagar los dias: ")
            res.Append(primera_cuota.ToShortDateString())
            res.Append(" y ")
            res.Append(segunda_cuota.ToShortDateString())
            MessageBox.Show(res.ToString())
        End If
 

Espero te de una idea, cualquier cosa me avisas.

[rishart]

Iniciado por eperedo

No entendí bien el tema de los pagos, pero creo que la solución va por comprobar primero la cantidad de días que tiene el mes:

Código vb.net:

Dim res As New System.Text.StringBuilder()
        '
        Dim dias_mes As Int32 = Date.DaysInMonth(Date.Now.Year, Date.Now.Month)
        Dim primera_cuota, segunda_cuota As Date
        '
        If dias_mes = 31 Then
            Dim dias_agregar As Int32 = 31 - 15
            primera_cuota = Date.Today.AddDays(dias_agregar)
            segunda_cuota = primera_cuota.AddDays(15)
            res.Append("Pagar los dias: ")
            res.Append(primera_cuota.ToShortDateString())
            res.Append(" y ")
            res.Append(segunda_cuota.ToShortDateString())
            MessageBox.Show(res.ToString())
        End If
 

Espero te de una idea, cualquier cosa me avisas.

Hola amigo muchas gracias el codigo funciona bien pero el problema es que aun cuenta los dias 31 de los meses que lo tienen y en el caso de feb el 29, a lo que me referia es omitir ese dia. por ejemplo


si doy un credito hoy 29 de oct. en 6 pagos quincenales entonces sin contar el 31 los pagos mensuales deben de ser los 14 y 29 de cada mes
en el caso de febrero en vez de que sea el 29 seria el 28 pero la sig fecha despues del 28 de feb seria el 14 de marzo es decir que sean fija las fechas con forme al plazo fijado... espero me haya dado a explica, sin mas por el momento me despido esperando puedan ayudarme muchas gracias :saludos:

[rishart]

Iniciado por rishart

Hola amigo muchas gracias el codigo funciona bien pero el problema es que aun cuenta los dias 31 de los meses que lo tienen y en el caso de feb el 29, a lo que me referia es omitir ese dia. por ejemplo


si doy un credito hoy 29 de oct. en 6 pagos quincenales entonces sin contar el 31 los pagos mensuales deben de ser los 14 y 29 de cada mes
en el caso de febrero en vez de que sea el 29 seria el 28 pero la sig fecha despues del 28 de feb seria el 14 de marzo es decir que sean fija las fechas con forme al plazo fijado... espero me haya dado a explica, sin mas por el momento me despido esperando puedan ayudarme muchas gracias :saludos:

hola amigos buenas tardes, alguien puede ayudarme a como le puedo hacer cuando al conteo de los dias, en dicho conteo me omita los dias 31 de los meses que lo traen

les agradezco mucho su ayuda gracias

[Valery-Net]

Puedes usar la siguiente función:

Private Function GetLastDayOfMonth(ByVal dtDate As DateTime) As DateTime

Dim dtTo As DateTime = dtDate

dtTo = dtTo.AddMonths(1)
dtTo = dtTo.AddDays(-(dtTo.Day))

Return dtTo

End Function

Te servirá para evaluar y devolver si la fecha que le pases como parámetro tiene 31 días y en base a ello realizas tus cálculos.