MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Somando horas no VBA...

    Compartilhe
    avatar
    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
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    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.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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)
    avatar
    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)
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    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: Seg 23 Out 2017, 05:27