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.
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.
(14-10-2020, 10:57)gambafeliz escribió: me diga años completos
Una opción podría ser:
Código:
Public Sub Main()
Print DateDiff(CDate("12/23/2017"), Now, gb.Month) \ 12
EndÚltima modificación: 14-10-2020, 11:23 por vuott.
« Los horizontes perdidos nunca regresan. » (F. Battiato, 1983)
« Las ondas nunca regresan. » (Genesis: Ripples, 1976)
« Vita non suavis esse potest, nec Mors amara. » (...vuott)
Gracias, vuott
Es una formula bonita como una pintura.
Es una formula bonita como una pintura.
Última modificación: 14-10-2020, 11:40 por gambafeliz.