FUNÇÃO PERSONALIZADA RETORNA DIFERENÇA DE DIAS ENTRE DUAS DATAS,
-ANOS, MESES E DIAS.

' - - - - - - -  - - - - - --  -- - - - - - - - - - - - - -
Function Decorrido
(DataInicial As Date, DataFinal As Date, TipoRetorno As Integer)
    Dim AnoInicial As Integer
    Dim AnoFinal As Integer
    Dim MesInicial As Integer
    Dim MesFinal As Integer
    Dim DiaInicial As Integer
    Dim DiaFinal As Integer
   
    AnoInicial = Year(DataInicial)
    MesInicial = Month(DataInicial)
Este artigo é exclusivo para assinantes. Descubra as vantagens
  • 473 Cursos
  • 10K Artigos
  • 100 DevCasts
  • 30 Projetos
  • 80 Guias
Tenha acesso completo