https://foro.gambas-es.org/viewtopic.php?f=1&t=4967&p=28743#p28743
-----------------------------------
kike1965
Viernes, 06 Noviembre 2015, 21:50

Re: Cómo Poder Hacer Cálculo Que Indique Años, Meses Y Días Entre Dos Fechas
-----------------------------------
[quote user="shordi" post="28742"]Saca la diferencia entre las dos fechas en días y haz el cálculo tú mismo. Es simple: divide entre 365 el resto entre 30 y el resto son los días... más o menos.[/quote]

Gracias por responder Shordi, pero el problema es que no puedo aplicar matemática ya que en factor años, meses y días me encuentro con la dificultad de años bisiestos, meses con 28, 29, 30 ó 31 días.

Estoy tratando con esto, pero no me va

[code linenumbers=false syntax=gambas]Public Sub Button1_Click()
  
  Dim A As Date
  Dim B As Date
  
  A = DateBox1.Value
  B = DateBox2.Value
  
  TextBox1.Text = Year(B) - Year(A) 
    If Month(A) > Month(B) Then 
    TextBox3.Text = TextBox3.Text - 1 
  End If 
  
  TextBox2.Text = Month(B) - Month(A)
    If Month(A) > Month(B) Then
      TextBox2.text = 12 - (TextBox2.Text * -1)
    Endif
    
  'TextBox3.Text =
  
End
[/code]

Cordiales saludos.


