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


2 participantes

    [Resolvido]Contagem de dias Apartir de uma data

    avatar
    Convidado
    Convidado


    [Resolvido]Contagem de dias Apartir de uma data Empty Contagem de dias Apartir de uma data

    Mensagem  Convidado 2/6/2011, 20:35

    Tenho em meu sistema uma data inserida ..
    Data 01/01/2009 -
    Como em uma consulta ou em um modulo fazer a diferenca em dias, da data atual?

    Se puderem ajudar, fico grato

    O exemplo de aniversario do JP da em anos.. mas eu precisava em dias...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  vieirasoft 2/6/2011, 20:59

    Date add


    http://office.microsoft.com/pt-br/access-help/funcao-dateadd-HA001228810.aspx
    avatar
    Convidado
    Convidado


    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  Convidado 2/6/2011, 21:55

    Vierão.. Pesquisando cheguei no seguinte código:

    Public Function DifData()
    Dim TheDate As Date ' Declare variables.
    Dim Msg
    TheDate = Me.Data_da_Prisão
    Msg = MsgBox("Dias de Prisão: " & DateDiff("d", Now, TheDate), vbInformation, "Syspen")
    End Function
    Private Sub DiasDePrisao_Click()
    Call DifData
    End Sub

    Esta me retornando os dias certos, porem com um sinal negativo..
    Como retirar o sinal negativo???
    avatar
    Convidado
    Convidado


    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  Convidado 2/6/2011, 21:58

    Ops...

    Public Function DifData()
    Dim TheDate As Date ' Declare variables.
    Dim Msg
    TheDate = Me.Data_da_Prisão
    Msg = MsgBox("Dias de Prisão: " & DateDiff("d", TheDate, Now), vbInformation, "Syspen")
    End Function

    Foi apenas inverter a ordem da data agora e do The Date

    Bem consegui isso ao clicar de um botão..
    agora tentarei aplicar isto em uma consulta..
    Se tiverem ideias.. sao bem vindas

    Grato
    avatar
    Convidado
    Convidado


    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  Convidado 2/6/2011, 22:30

    Bem Amigos..
    Na consulta foi ate mais fácil....

    Dias Preso: Data()-[Data da Prisão]

    Saudações e Obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  Convidado 2/6/2011, 22:51

    Para quem acompanha..
    O mestre vieira havia me dado uma dica.. de onde parti a pesquisa..
    Em realidade o AddDate, lhe permite inserir uma data, e apois inserir datas ou meses futuros para lhe retornar uma diferença..

    Eis o exemplo:
    Dim FirstDate As Date ' Declare variables.
    Dim IntervalType As String
    Dim Number As Integer
    Dim Msg

    IntervalType = "m" ' "m" specifies months as interval.
    FirstDate = InputBox("Enter a date") 'Entrar com a data
    Number = InputBox("Enter number of months to add") 'entrar com o número de meses para adicionar a data
    Msg = "New date: " & _
    DateAdd(IntervalType, Number, FirstDate) 'Resultado
    MsgBox Msg
    Enquanto que o DiffDate: Public Function DifData()
    Dim TheDate As Date ' Declare variables. (declaração de variáveis)
    Dim Msg
    TheDate = Me.Data_da_Prisão 'Campo no form
    Msg = MsgBox("Dias de Prisão: " & DateDiff("d", TheDate, Now), vbInformation, "Syspen") 'Resultado da diferenca
    End Function

    Aqui criei uma função para depois poder chamá-la através de um botãoUtilizando o código Call DifData

    Saudações
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  JPaulo 3/6/2011, 11:49

    Tem de procurar mais, juntar e fazer o Bolo;

    http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access
    Código:
    Datas no Access

    http://maximoaccess.forumeiros.com/t964-funcoes-com-datas-e-horas



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Contagem de dias Apartir de uma data Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Contagem de dias Apartir de uma data Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Contagem de dias Apartir de uma data Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  Convidado 3/6/2011, 12:27

    Bom dia João Paulo, agradecendo a passagem por aqui..
    poderia dar uma olhadinha nisso para mim?

    http://maximoaccess.forumeiros.com/t2733-data-em-consultas-aniversariantes

    Conteúdo patrocinado


    [Resolvido]Contagem de dias Apartir de uma data Empty Re: [Resolvido]Contagem de dias Apartir de uma data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:57