none
VBA - Dia no Ano RRS feed

  • Pergunta

  • Olá pessoal,

    Preciso de uma função VBA que mostre o Dia no ano. Exemplo 19/06/2009 é o dia 146 no ano.

    Obrigado.

    • Movido Rogerio Jerez terça-feira, 10 de novembro de 2009 17:29 Movido para o Fórum Apropriado (De:Fórum MSDN)
    terça-feira, 9 de junho de 2009 14:37

Respostas

  • Mesmo sem VBA é possível, tanto no Excel como no Access.

    No VBA, basta isto:

    Date()-DateSerial(Year(Date()),1,0)

     

    Date() pode ser substituída por uma variável de data qualquer, como sugerido pelo colega Atadolfo.


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sábado, 10 de abril de 2010 01:45
    Moderador

Todas as Respostas

  • Seria algo como:

     

    Public Function DiaDoAno(data)

       Dim ano

       ano = CDate("01/01/" & Year(data))

       DiaDoAno = DateDiff("d", ano, data) + 1

    End Function


    Mas 19/06/2009 não seria o dia 170 ?

    quinta-feira, 25 de março de 2010 16:53
  • Mesmo sem VBA é possível, tanto no Excel como no Access.

    No VBA, basta isto:

    Date()-DateSerial(Year(Date()),1,0)

     

    Date() pode ser substituída por uma variável de data qualquer, como sugerido pelo colega Atadolfo.


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    sábado, 10 de abril de 2010 01:45
    Moderador
  • Beleza, vivendo e aprendendo :-)


    Alexandre

    segunda-feira, 12 de abril de 2010 17:02