MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Retornar o nº do dia do ano

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 13/03/2011

    [Resolvido]Retornar o nº do dia do ano Empty [Resolvido]Retornar o nº do dia do ano

    Mensagem  Ronaldo Costa 6/2/2015, 15: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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 6/2/2015, 15:19

    Olá!

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

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

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 10/2/2015, 12: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
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 13/03/2011

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

    Mensagem  Ronaldo Costa 22/2/2015, 07: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
    avatar
    FabianoJesus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianoJesus 11/3/2015, 22: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
    [Resolvido]Retornar o nº do dia do ano AttachmentFuncao.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (2 Kb) Baixado 7 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 12/3/2015, 06:58

    Fabiano,

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

    http://maximoaccess.forumeiros.com/t22203-resolvidoidentificar-a-data-de-um-determinado-dia

    Sucesso!




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    FabianoJesus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabianoJesus 12/3/2015, 07:57

    Olha só !
    Realmente muito mais prático,
    Obrigado!
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 13/03/2011

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

    Mensagem  Ronaldo Costa 13/3/2015, 21:44

    Simplesmente fatástico!

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:09