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]Somando horas no VBA...

    Compartilhe

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    [Resolvido]Somando horas no VBA...

    Mensagem  MPS em Sex 13 Jun 2014, 19:36

    Caros colegas, possuo dois campos que estão formatados na tabela desta forma: mm/dd/yyyy hh:nn:ss.
    Quando o VBA soma os dois e a soma passa de #01/01/1900 23:59:59# o retorno ao invés de ser #01/02/1900 ??:??:??# é #02/01/1900 ??:??:??".
    Como posso evitar esta troca nos meses?
    Agradeço desde já!
    At
    MPS

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Somando horas no VBA...

    Mensagem  Fernando Bueno em Sex 13 Jun 2014, 22:20

    Boa noite, ja tentou alterar para dd/mm/yyyy hh:mm:ss


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Somando horas no VBA...

    Mensagem  ahteixeira em Sex 13 Jun 2014, 23:30

    Ola,

    Já tive problema parecido, troca do Mes pelo Dia, talvez conflito de idiomas   dd/mm/aaaa por mm/dd/yyyy

    No meu caso resolvi assim , com CDate

    DFtmp = CDate(Format("01-01" & "-" & Year(Forms!Menu!DataApl) + 1, "Short Date"))

    Exprimenta e dá retorno.


    Última edição por ahteixeira em Sab 14 Jun 2014, 11:09, editado 1 vez(es)

    MPS
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/04/2012

    Re: [Resolvido]Somando horas no VBA...

    Mensagem  MPS em Sab 14 Jun 2014, 01:38

    Colegas, obrigado.
    Graças aos seus insights encontrei esta solução, mas na Tabela os dois campos tiveram que receber esta mesma formatação:  "mm/dd/yyyy hh:nn:ss".
    No VBA entrou assim:
    Dim TotalH1 As Date
           TotalH1 = CDbl(RsBhParcial!SemanaBHdoDia) + CDbl(Nz(RsHoras!SemanaSomadoDia, #12:00:00 AM#))
    CurrentDb.Execute "UPDATE [tabsemana]" _
    & " SET semanabhdodia = #" & Format(CDate(TotalH1), "mm/dd/yyyy hh:nn:ss") & "#" _
    & " WHERE [codsemana] = " & RsHoras!CodSemana & ";"
    At
    MPS


    Última edição por MPS em Sab 14 Jun 2014, 03:27, editado 1 vez(es)

    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1819
    Registrado : 13/04/2012

    Re: [Resolvido]Somando horas no VBA...

    Mensagem  Fernando Bueno em Sab 14 Jun 2014, 01:42

    Legal amigo, agradeço o retorno em nome do forum!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qui 08 Dez 2016, 00:04