none
Cantidad de meses entre dos fechas RRS feed

  • Pregunta

  • Estimados

    Como puedo calcular la cantidad de meses entre dos fechas.

    Ejemplo:

    Fecha Inicio: 08/04/2019

    Fecha Fin: 08/10/2019

    Debería calcular 6 meses.

    Fecha Inicio:01/04/2019

    Fecha Fin :31/04/2019

    Debería calcular 1 mes

    lunes, 15 de abril de 2019 20:52

Todas las respuestas

  • Hola  

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una posible solución para tu problema.

    https://social.msdn.microsoft.com/Forums/es-ES/a5bb98d9-78f2-434b-89f2-8581bc967f89/cantidad-de-meses-entre-fechas?forum=vbes

    https://social.msdn.microsoft.com/Forums/es-ES/3d63a050-4465-4daf-a94e-132ff37630d2/calcular-cantidad-de-semanas-y-meses-entre-rango-de-fechas?forum=sqlserveres

    https://social.msdn.microsoft.com/Forums/es-ES/cb299d31-6987-4f32-bc8d-4f96c370ee62/dias-meses-y-aos-entre-dos-fechas-vb-net?forum=vbes

    Gracias por usar los foros de MSDN.

    Carlos Ruiz
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y 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.
    lunes, 15 de abril de 2019 21:32
  • Hola. Puedes usar la función Datediff 

    diff = dateDiff(DateInterval.Month, startDate, endDate)


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó, vótala como útil. Saludos

    lunes, 15 de abril de 2019 22:45
  • Prodria ser una solución

    Dim FechaInicio As Date ="20190401"
    Dim FechaFin As Date="20190431"
    Dim CantMes As Integer

    CantMes = DateDiff(DateInterval.Month, FechaInicio, FechaFin)

    'En caso la fecha fin sea el último día del mes
    If FechaFin.Day > 1 And FechaFin = DateSerial(Year(FechaFin), Month(FechaFin) + 1, 0) Then
     CantMes += 1
    End If


    lunes, 15 de abril de 2019 23:04