[gambafeliz]

Hola

Intento calcular una garantía. Pero me ocurre lo siguiente:

Abs(DateDiff(Date, Val(sFechaCompra), gb.Year))

Tras poner esto en un label obtengo el número de años por lo general bien y digo por lo general por que existen casos donde esta cerca del un año pero que no lo ha echo y aun así me lo cuenta como año completo, ¿Es posible obtener solo años completos?

Os doy la fecha de compra para que prueben: 23/12/2017 (día/mes/año) el me devuelve 3 años pero ha pasado 2 y mucho (pero no es 3), mi deseo es que me diga años completos y no los incompletos.

Gracias.

[vuott]

me diga años completos

---

Una opción podría ser:

GAMBAS

Public Sub Main()
 
  Print DateDiff(CDate("12/23/2017"), Now, gb.Month) \ 12
 
End

---

[gambafeliz]

Gracias, vuott

Es una formula bonita como una pintura.