MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Retornar o nº do dia do ano

    Compartilhe
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

    [Resolvido]Retornar o nº do dia do ano

    Mensagem  Ronaldo Costa em Sex 06 Fev 2015, 17:11

    Olá pessoal!

    Gostaria de uma rotina que retornasse o nº do dia em relação ao ano.

    Ex: O dia tem 365 dias, 25/05/2015 é o dia nº ___ do ano.

    grato
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    Registrado : 04/04/2010

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  Avelino Sampaio em Sex 06 Fev 2015, 17:19

    Olá!

    Pode usar a função dateDiff(). Exemplo:

    datediff("d",#01/01/2015#,#05/25/2015#) ::::> 144 dias

    Aguardamos
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  Roberto_1977 em Ter 10 Fev 2015, 14:51

    Boa tarde,

    Só um pequeno ajusto... sem querer tirar mérito ao grande mestre Avelino.
    eu adaptei um pouco mais para poder comparar sempre com o ultimo dia do ano corrente, assim não precisa todos anos alterar a data do ultimo dia do ano.

    Me.SuaCaixaTexto.Value = DateDiff("d", Me.CaixaTextoData.Value, 12 & "/" & 31 & "/" & year(Now))

    Abraço... Cool


    .................................................................................
    Para saber como marcar tópico como [Resolvido] Click Aqui [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  Ronaldo Costa em Dom 22 Fev 2015, 10:26

    Vou esclarecer o que realmente quero:

    Tenho um sistema para escola.
    As escolas precisam prestar informações ao INEP através do EducaCenso.
    O EducaCenso tem o que chamamos de data de referência, que é sempre a última quanta feira do mês de maio.

    Gostaria de uma função que verificasse qual é a última quarta-feira do mês de maio e me informasse a data no formato dd/mm/aaaa.


    grato

    FabianoJesus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 22/03/2012

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  FabianoJesus em Qui 12 Mar 2015, 01:22

    Segue em anexo a função que montei e um exemplo do seu uso.
    Ela retorna o último dia procurado do mês desejado.
    Você pode chamar a função conforme o exemplo abaixo:
    UltimoDiaMes (5 , vbWednesday )
    O valor retornado será 27/05/2015

    Segue abaixo o código da função:
    Public Function UltimoDiaMes(ByVal parMes As Integer, ByVal parDiaDesejado As VbDayOfWeek) As String
       Dim varData As Date
       Dim varUltimaData As Date
       
       varData = 1 & "/" & parMes & "/" & Year(Date)
       For x = 1 To 31
           If Month(varData) > parMes Then Exit For
           If parDiaDesejado = Weekday(varData) Then
               varUltimaData = varData
           End If
           
           varData = varData + 1
       Next x
       
       UltimoDiaMes = Format(varUltimaData, "dd/mm/yyyy")
    End Function


    Basta copiar o código da função para um módulo.
    Att.
    Anexos
    Funcao.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 6 vez(es)
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3384
    Registrado : 04/04/2010

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  Avelino Sampaio em Qui 12 Mar 2015, 09:58

    Fabiano,

    conheça também esta solução dada ao amigo Roberto

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!



    FabianoJesus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 22/03/2012

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  FabianoJesus em Qui 12 Mar 2015, 10:57

    Olha só !
    Realmente muito mais prático,
    Obrigado!
    avatar
    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 171
    Registrado : 14/03/2011

    Re: [Resolvido]Retornar o nº do dia do ano

    Mensagem  Ronaldo Costa em Sab 14 Mar 2015, 00:44

    Simplesmente fatástico!

      Data/hora atual: Qua 26 Jul 2017, 17:37