Calcular dias, meses y años entre dos fechas

[fiorella3247]

Hola Compañeros de ForosdelWeb

Tenía full rato que no pasaba por aca... La razón de mi visita se debe a una inquietud que tengo... y no logro resolver...

Necesito determinar los días, meses y años entre dos fecha (si aplica) por ejemplo:

FechaInicial = 24/04/2010
FechaActual=07/06/2010

Y que la funcion me devuelva: en variables

Años= 0
Meses= 1
Dias= 12

'************************************************* **************'
He encontrado este codigo y trate de adaptar... Es una funcion que me devuelve una cadena en un formato algo asi: YYYY/MM/DD ... Luego fuera de la funcion trato el resultado por una cadena... ok

Pero la funcion no esta funcionando del todo bien... Porque al pasar la FechaInicial y la FechaActual ... me devuelve 0 años... 2 meses ... y -20 dias ...

Código:

Public Function Calcular_Ultima_Visita(FechaInicial As Date, FechaActual As Date) As String
    Dim Anios, Meses, Dias As Variant    
    '**************************************************'
    Anios = DateDiff("yyyy", FechaInicial, FechaActual)
    If Format(FechaActual, "yyyy-mm-dd") < DateSerial(Year(FechaActual), Month(FechaInicial), Day(FechaInicial)) Then
        Anios = Anios - 1
    End If
    FechaInicial = DateAdd("YYYY", Años, FechaInicial)

    Meses = DateDiff("m", FechaInicial, FechaActual)
    If Format(FechaActual, "yyyy-mm-dd") < DateSerial(Year(FechaActual), Month(FechaInicial), Day(FechaInicial)) Then
        Meses = Meses - 1
    End If
    FechaInicial = DateAdd("m", Meses, FechaInicial)

    Dias = DateDiff("d", FechaInicial, FechaActual)
    If Format(FechaActual, "yyyy-mm-dd") < DateSerial(Year(FechaActual), Month(FechaInicial), Day(FechaInicial)) Then
        Dias = Dias - 1
    End If
    FechaInicial = DateAdd("d", Dias, FechaInicial)

    Calcular_Ultima_Visita = Anios & "/" & Meses & "/" & Dias
    
End Function

Aca usan la funcion DateSerial que de verdad lo termino de entender... Y cuando a la variable FechaInicial le agregan los dias de la misma FechaInicial tampoco lo comprendo...

Por favor me dan una asesoria... Gracias

Saludos y Éxitos

[lokoman]

Hola!!
Creo que esto te puede ayudar:

Código vb:

Private Sub Command1_Click()
    Dim Fecha1 As Date, Fecha2 As Date
    Fecha1 = "24/04/2010"
    Fecha2 = "07/06/2010"
    
  
    MsgBox DateDiff("d", Fecha1, Fecha2) & " Dias " & _
           DateDiff("m", Fecha1, Fecha2) & " Mes " & _
           DateDiff("yyyy", Fecha1, Fecha2) & " Años "
End Sub
 

Pero desde el 24 de abril hasta el 7 de junio no hay 12 dias...

[erbuson]

Hola lokoman, creo que la vas a liar aun un poco mas, ya que por lo menos a mi tu funcion me dice que entre estas fechas hay 44 dias y 2 meses por lo que me da la extraña sensación de que no es esa la intención.

Es mas, acabo de hacer una prueba que nunca se me hubiera ocurrido y o bien lo utilizamos mal o el DateDiff devuelve verdaderas barbaridades.

Ya que por ejemplo

datediff("m", cdate("31/01/2010"), cdate("01/02/2010"))

Devuelve 1 mes, o sea una canallada ya que por lo menos en mi pueblo hay 1 día. Intentaré indagar por donde nos equivocamos o me equivoco.

Saludos ¿ a ver quien lo encuentra antes ?

[fiorella3247]

Hola lokoman !!!!

Gracias por tu respuesta...

Fijate que tú te enfocas en las horas, los segundos y los minutos...

Porque parte de dia... en el caso del DateDiff... yo no quiero las horas... solo los años, los meses y los dias... y de hecho probe la función que me enviastes... aun sin embargo sigue enviando la cantidad de dias errados... me dice que entre 26/04/2010 y el 07/06/2010 hay 0 años, 2 meses y 42 dias ...

Muchas gracias ... pero no me sirve para lo que requiero...

[fiorella3247]

Hola Erbuson

Si... la función que nos envio locoman no satiface mis necesidades... de hecho la funcion que yo utilizo hasta cierto punto funciona bien... pero hay otras veces que no funciona... No se si te haras fijado en la funcion... Pero porfa pruebala si ¿?

Muchas gracias chicos lindos...

Saludos y Éxitos

[lokoman]

Iniciado por erbuson

Hola lokoman, creo que la vas a liar aun un poco mas, ya que por lo menos a mi tu funcion me dice que entre estas fechas hay 44 dias y 2 meses por lo que me da la extraña sensación de que no es esa la intención.

Es mas, acabo de hacer una prueba que nunca se me hubiera ocurrido y o bien lo utilizamos mal o el DateDiff devuelve verdaderas barbaridades.

Ya que por ejemplo

datediff("m", cdate("31/01/2010"), cdate("01/02/2010"))

Devuelve 1 mes, o sea una canallada ya que por lo menos en mi pueblo hay 1 día. Intentaré indagar por donde nos equivocamos o me equivoco.

Saludos ¿ a ver quien lo encuentra antes ?

Contando los dias desde el 24 de abril hasta el 07 de junio, hay 44 dias (aqui todo bien)

La diferencia de los meses (6-4=2) por eso sale dos...

Y eso lo encontré en la ayuda....
"When comparing December 31 to January 1 of the immediately succeeding year, DateDiff for Year ("yyyy") returns 1 even though only a day has elapsed."
(Al comparar diciembre 31 a enero 1 del año inmediatamente siguiente, DateDiff para Año ("yyyy") devuelve 1, incluso si sólo un día ha transcurrido.)

... , pero sigo en eso!!

[fiorella3247]

Hola Lokoman...
Al fin resolvi... Buscando en la web encontre este ejercicio... No usa mucho las funciones de vb 6.0 ... mas que todo es logica... Estaba hecho en php ... pero lo adapte a vb !!! Y lo mejor de todo es que funciona a la perfección...

Te lo dejo para que lo pruebes!!! Muchas gracias

Código vb:

Public Function Calcular(FechaInicio As Date, FechaActual As Date) As String
 
diaActual = DatePart("d", FechaActual)      
mesActual = DatePart("m", FechaActual)      
anioActual = DatePart("yyyy", FechaActual)  
'**************************************'
diaInicio = DatePart("d", FechaInicio)      
mesInicio = DatePart("m", FechaInicio)      
anioInicio = DatePart("yyyy", FechaInicio)      
 
B = 0
Mes = mesInicio - 1
 
' si el mes es febrero
If (Mes = 2) Then   ' *
    If ((anioActual / 4 = 0 And anioActual / 100! = 0) Or anioActual / 400 = 0) Then
        B = 29
    Else
        B = 28
    End If
ElseIf (Mes <= 7) Then  '*
    If (Mes = 0) Then
        B = 31
    ElseIf (Mes / 2 = 0) Then
        B = 30
    Else
        B = 31
    End If
    
ElseIf (Mes > 7) Then
    If (Mes / 2 = 0) Then
        B = 31
    Else
        B = 30
    End If
End If
    
   If ((anioInicio > anioActual) Or (anioInicio = anioActual And mesInicio > mesActual) Or (anioInicio = anioActual And mesInicio = mesActual And diaInicio > diaActual)) Then
        MsgBox "La fecha de inicio ha de ser anterior a la fecha Actual"
   Else
        If (mesInicio <= mesActual) Then
            Anios = anioActual - anioInicio
            If (diaInicio <= diaActual) Then
                Meses = mesActual - mesInicio
                Dias = diaActual - diaInicio
            Else
                If (mesActual = mesInicio) Then
                    Anios = Anios - 1
                End If
                Meses = (mesActual - mesInicio - 1 + 12) / 12
                Dias = B - (diaInicio - diaActual)
            End If
        Else
            Anios = anioActual - anioInicio - 1
  
        If (diaInicio > diaActual) Then
            Meses = mesActual - mesInicio - 1 + 12
            Dias = B - (diaInicio - diaActual)
        Else
            Meses = mesActual - mesInicio + 12
            Dias = diaActual - diaInicio
        End If
  End If
 
End If '*
 
Calcular = Anios & "/" & Meses & "/" & Dias
 
End Function
 

La funcion DatePart ... toma la parte de la fecha dependiendo del parametro ...

Saludos y Éxitos

[lokoman]

Muy bueno el ejercicio!!
Aqui dejo el mini proyecto que hice:
http://myfreefilehosting.com/f/189ac8d9a1_0.03MB

Y el codigo que usé:

Código vb:

Private Sub Command1_Click()
    Dim Mes(12) As Integer, Fecha1 As Date, Fecha2 As Date
    Dim TotalMes As Long, TotalAno As Long
    Dim Aux As Long, Aux2 As Long, DiferenciaDias As Long
    
    Fecha1 = DTPicker1.Value
    Fecha2 = DTPicker2.Value
    
    Mes(1) = 31
    Aux = DatePart("yyyy", Fecha1)
    
    If ((Aux / 4 = 0 And Aux / 100! = 0) Or Aux / 400 = 0) Then
        Mes(2) = 29
    Else
        Mes(2) = 28
    End If
    
    Mes(3) = 31
    Mes(4) = 30
    Mes(5) = 31
    Mes(6) = 30
    Mes(7) = 31
    Mes(8) = 31
    Mes(9) = 30
    Mes(10) = 31
    Mes(11) = 30
    Mes(12) = 31
    
    TotalAno = 0
    TotalMes = 0
    DiferenciaDias = 0
    Aux2 = 0
    
    Aux = DatePart("m", Fecha1)
    DiferenciaDias = DateValue(Fecha2) - DateValue(Fecha1)
    Aux2 = DiferenciaDias
    
    Do While Aux2 > 0
        If Aux = 12 Then
            Aux = 1
        Else
            Aux = Aux + 1
        End If
        Aux2 = (Aux2 - Mes(Aux))
        TotalMes = TotalMes + 1
    Loop
    
    If Aux2 < 0 Then TotalMes = TotalMes - 1
    TotalAno = TotalMes / 12
    
    MsgBox "Total de dias...: " & FormatNumber(DiferenciaDias, 0) & vbNewLine & _
           "Total de mes...: " & FormatNumber(TotalMes, 0) & vbNewLine & _
           "Total años......: " & FormatNumber(TotalAno, 0)
End Sub
 
Private Sub Form_Load()
    DTPicker1.Value = Date
    DTPicker2.Value = Date
End Sub
 

Usé una referencia a Microsoft Windows Common Controls 2.6 para usar un DTPicker para la seleccion de las fechas, el resto en un Command Button.

!!

[fiorella3247]

Hola Lokoman

Probe tu proyecto... y pues el problema del que te hablo sigue persitiendo... Se que evidentemente entre (por ejemplo) 28/04/2010 al 08/07/2010 hay 41 días... Y si muestras por pantalla 1 mes con 41 dias... Los usuarios (te lo digo porque me paso) diran que eso esta malo... que decir 41 dias ya equivale a otro mes...

Y una sugerencia... hay un control llamado aBox ... Es super fino... yo lo utilizo... Es un control para fechas... pero tiene mas funciones... Si te interesa me avisas!!!

Saludos y Éxitos

[IOT]

Entre esas fechas NO HAY 41 dias SINO 70 dias.
* 71 si se incluye la ultima fecha. (resultado deseado)
* 72 si se incluyen ambas fechas.

Por lo que 1 mes 41 dias es buena respuesta para esas fechas.

el codigo mas arriba esta mal en:

Código:

DiferenciaDias = DateValue(Fecha2) - DateValue(Fecha1)

* Un timestamp no se puede convertir a long

El problema reside en calcular fechas como: 31-12-2000 y 01-01-2001, aun que con un datediff podriamos obtener ese resultado

[hilda_fl]

Buenas tardes...disculpen tengo un duda acerca del tema sobre las fechas...me presenta el siguiente error DiferenciaDias = DateValue(Fecha2) - DateValue(Fecha1)...trato de identificar a q se debe .....pero antes de la ejecucion se muestra q necesito un TimeSpan..trato de incorporarlo pero no me la acepta ...agradecería mucho su aportacion..