Skip to content

Instantly share code, notes, and snippets.

@jvmonjo

jvmonjo/calcula_trienis.vba

Created November 4, 2015 12:53
Show Gist options
  • Save jvmonjo/7fed1c4b7518217db16f to your computer and use it in GitHub Desktop.
Save jvmonjo/7fed1c4b7518217db16f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
calcula_trienis.vba
Public Function calculaTrienis(ingres As Date) As Integer
Dim anys As Integer
anys = Int((Date - ingres) / 365.25)
calculaTrienis = Fix(anys / 3)
End Function
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment