none
Amortizacion trimestral y semestral RRS feed

  • Pregunta

  • Buen dia estoy creando una amortización y necesito que la misma se de en Meses, Trimestres, Semestres y años.

    pero no se como programarla para que los pazos entre pago y pago sean trimestrales o semestrales, mi código es el siguiente:

    Fecha1 = DateTimePicker1.Value
    
    Dim LINEA As New ListViewItem(I)
                    If Cb_TipoPeriodo.Text = "Mensual" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Trimestral" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Semestral" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Anual" Then
                        LINEA.SubItems.Add(Fecha1.AddYears(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    End If
    
                    LINEA.SubItems.Add(CuotaFija.ToString("N2"))
                    LINEA.SubItems.Add(Amortizacion.ToString("N2"))
                    LINEA.SubItems.Add(Intereses.ToString("N2"))
                    LINEA.SubItems.Add(SaldoPendiente.ToString("N2"))
                    LINEA.SubItems.Add(idCodigo.ToString)

    Gracias por sus respuestas.


    JorgeLeonardoDC

    lunes, 22 de mayo de 2017 19:43

Respuestas

  •  Dim LINEA As New ListViewItem(I)
                    If Cb_TipoPeriodo.Text = "Mensual" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Trimestral" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths((I - 1) * 3).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Semestral" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths((I - 1) * 6).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Anual" Then
                        LINEA.SubItems.Add(Fecha1.AddYears(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    End If


    ya lo arregle esto fue lo que hice!

    JorgeLeonardoDC


    • Editado JorgeDiazC lunes, 22 de mayo de 2017 21:27
    • Marcado como respuesta JorgeDiazC lunes, 22 de mayo de 2017 21:27
    lunes, 22 de mayo de 2017 21:27

Todas las respuestas

  •  Dim LINEA As New ListViewItem(I)
                    If Cb_TipoPeriodo.Text = "Mensual" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Trimestral" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths((I - 1) * 3).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Semestral" Then
                        LINEA.SubItems.Add(Fecha1.AddMonths((I - 1) * 6).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    ElseIf Cb_TipoPeriodo.Text = "Anual" Then
                        LINEA.SubItems.Add(Fecha1.AddYears(I - 1).ToShortDateString) '(I-1) PARA QUE EMPIECE A CONTAR EN EL MISMO MES
                    End If


    ya lo arregle esto fue lo que hice!

    JorgeLeonardoDC


    • Editado JorgeDiazC lunes, 22 de mayo de 2017 21:27
    • Marcado como respuesta JorgeDiazC lunes, 22 de mayo de 2017 21:27
    lunes, 22 de mayo de 2017 21:27
  • Hola JorgeLeonardoDC,

    Gracias por visitar los foros y compartir con nosotros tu solución.

    Saludos

    Joyce

    __________________________________________________________________________________________
    Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, hace que sea más fácil para los otros visitantes encontrar la solución  más tarde. Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. Este contenido es proporcionado "tal  cual" y no implica ninguna responsabilidad de parte de Microsoft.

    miércoles, 24 de mayo de 2017 16:00
    Moderador