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]Retornar Data e Hora

    andre.lr
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011
    • Mensagem nº1

    [Resolvido]Retornar Data e Hora Empty Retornar Data e Hora

    Mensagem  andre.lr 2/4/2012, 19:10

    Amigos, em dos meus campos adicionei o seguinte código para retornar a data e a hora ao receber dois cliques:

    Private Sub DataHoraEnt_DblClick(Cancel As Integer)
    Me.DataHoraEnt.Value = Date + Time
    End Sub

    Está me retornando corretamente a data e hora dessa forma: 2/4/2012 15:07:45

    Porém gostaria que não mostrasse os segundos da hora, pois, são desnecessários...

    o que posso fazer amigos? Também gostaria que adiciona-se um traço separando os dois e um h no final para ficar assim: 02/4/2012 - 15:07h

    Agradeço desde já!
    • Ir para o topo
    criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009
    • Mensagem nº2

    [Resolvido]Retornar Data e Hora Empty Re: [Resolvido]Retornar Data e Hora

    Mensagem  criquio 2/4/2012, 19:18

    Olá! Talvez assim:

    Me.DataHoraEnt.Value = Format(Now, "dd/mm/yyyy - hh:nn") & "h"


    .................................................................................
    Meu novo site: www.vcssistemas.com.br
    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.

    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)

    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.
    • Ir para o topo
    andre.lr
    andre.lr
    andre.lr
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 17/10/2011
    • Mensagem nº3

    [Resolvido]Retornar Data e Hora Empty Re: [Resolvido]Retornar Data e Hora

    Mensagem  andre.lr 2/4/2012, 19:53

    Obrigado por mais essa Criquio, =] resolvido, só mudei de campo data para campo texto e pronto!
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº4

    [Resolvido]Retornar Data e Hora Empty Re: [Resolvido]Retornar Data e Hora

    Mensagem  Convidad 2/4/2012, 19:57


    Se quiser fazer automaticamente, sem clicar:

    Private Sub Form_Load()
      Me.DataHoraEnt.Value = Format(Now, "dd/mm/yyyy - hh:nn") & " h"
    End Sub


    Se quiser atualizar automaticamente:

    Private Sub Form_Timer()
      Me.DataHoraEnt.Value = Format(Now, "dd/mm/yyyy - hh:nn") & " h"
    End Sub

    No form, na propriedade IntervaloDoCronômetro defina com 60000 (1 minuto).
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº5

    [Resolvido]Retornar Data e Hora Empty Re: [Resolvido]Retornar Data e Hora

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 16/5/2024, 18:49