MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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.]

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    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 : 35
    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)

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    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!




    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    FabianoJesus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    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!

    Ronaldo Costa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    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: Dom 04 Dez 2016, 01:52