https://foro.gambas-es.org/viewtopic.php?f=1&t=4967&p=28746#p28746
-----------------------------------
vuott
Sabado, 07 Noviembre 2015, 01:35

Re: Cómo Poder Hacer Cálculo Que Indique Años, Meses Y Días Entre Dos Fechas
-----------------------------------
[quote user="jsbsan" post="28744"]http://cursogambas.blogspot.com.es/2014/08/calculo-con-fechas-dateadd-y-datediff.html[/quote]

Bueno, yo propondría:

[code linenumbers=false syntax=gambas]Public Sub Main()

  Dim d1, d2 As Date
  Dim i As Integer
  
    d1 = Date(2010, 01, 01)
    d2 = Now
    
    i = DateDiff(d1, d2, gb.day)
    Print "Dias:", i
    
    Print i \ 365; ":"; (i Mod 365) \ 30; ":"; (i Mod 365) Mod 30

End[/code]


