https://foro.gambas-es.org/viewtopic.php?f=1&t=4967&p=28748#p28748
-----------------------------------
shordi
Sabado, 07 Noviembre 2015, 07:37

Re: Cómo Poder Hacer Cálculo Que Indique Años, Meses Y Días Entre Dos Fechas
-----------------------------------
Prueba ésto:
[code linenumbers=false syntax=gambas]
Public Sub diferencia(dateDesde As Date, dateHasta As Date)
    Dim a, m, d As Integer
    Dim td As Date

    a = DateDiff(dateDesde, dateHasta, gb.Year)  
    a = IIf(DateAdd(dateDesde, gb.year, a) > dateHasta, a - 1, a) 
    m = DateDiff(dateDesde, datehasta, gb.month) Mod 12 
    td = DateAdd(datedesde, gb.year, a) 
    m = IIf(DateAdd(td, gb.month, m) > datehasta, m - 1, m) 
    td = DateAdd(td, gb.month, m) 
    d = DateDiff(td, datehasta, gb.day) 
    
    Print "Entre ";; dateDesde;; " a ";; dateHasta;; " hay ";; a;; " años,";; m;; " meses, ";; d;; " días"
    
End[/code]


