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


    [Resolvido]Ultimo minuto do dia anterior

    avatar
    Convidado
    Convidado


    [Resolvido]Ultimo minuto do dia anterior Empty Ultimo minuto do dia anterior

    Mensagem  Convidado 7/2/2013, 16:43

    Boa tarde !

    Tenho um campo onde ha possibilidade de campos nulos, como faco para que quando for nulo preencher com a data/hora do dia anterior considerando o ultimo minuto.

    Ex. se hoje agora são 07/02/2013 14:37 o campo onde estiver nulo vai ser 06/02/2013 23:59 ou 07/02/2013 00:00


    Atualmente faco da seguinte forma com a função Now()mas esse função me traz o dia atual e hora atual, no lugar de Now() precisava do ultimo minuto do dia anterior ou o dias atual com os minutos 00:00 que daria na mesma no meu caso.

    IIf(Nz([MinhaData])="",Now(),Nz([MinhaData])) AS DataFim,
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  JPaulo 7/2/2013, 17:35

    Poderia ter continuado no outro tópico, mas aqui fica;

    DataFim: CDate(IIf(Nz([Tem_Dt_Fim])="";Date()-1 & " " & "23:59:59";Nz([Tem_Dt_Fim])))



    Frota Qtde_Equip Equ_Peso Equ_Meta Tem_Dt_Inicio DataFim Minutes
    MODULO 6 10 90 06/02/2013 22:00:00 06-02-2013 23:59:59 119


    .................................................................................
    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]Ultimo minuto do dia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  Convidado 8/2/2013, 16:13

    Obrigado JPaulo!

    EU consigo verifcar duas condicao no mesmo IIF ?

    Aqui eu verifico se a data_FIm é igual a "" ou >date()
    Mas eu conseguiria tambem verificar se a data_Fim é menos que Date() & " " & "00:00:00" na mesma instrucao IIF ?

    Esse IIF tem um "ElseIFF"?

    Cdate(IIf(Nz([Tem_Dt_Fim])="" Or ([Tem_Dt_Fim])>Date() & " " & "00:00:00" ,Date()-1 & " " & "23:59:59",Nz([Tem_Dt_Fim]))) AS DataFim
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  JPaulo 8/2/2013, 17:02

    Assim:

    Código:

    DataFim: CDate(IIf(Nz([Tem_Dt_Fim])="" Or Nz([Tem_Dt_Fim])<Date() & " " & "00:00:00";Date()-1 & " " & "23:59:59";Nz([Tem_Dt_Fim])))


    .................................................................................
    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]Ultimo minuto do dia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  Convidado 8/2/2013, 17:12

    Ola JPaulo,

    A consulta que você me passou é igual a que eu colei acima so alterou o sinal de maior para menos. funciona mas gostaria de saber se tem como verificar mais de uma vez uma condição
    Ex.
    Data = "" OR data > Date() entao Date()-1 & " " & "23:59:59"
    se a data < date() entao Date()-2 & " " & "00:00:00"

    Seria o caso de usar Select Case ?

    Algo assim

    SELECT CASE
    WHEN ((SAI_DT_INICIO < @DATA_D_1)AND(SAI_DT_FIM = @SEM_PREVISAO)) THEN
    DATEDIFF(MINUTE,@DATA_D_1, @DATA_DIA_ATUAL)


    WHEN (SAI_DT_INICIO < @DATA_D_1 AND SAI_DT_FIM = @SEM_PREVISAO)THEN
    DATEDIFF(MINUTE,@DATA_D_1, @DATA_DIA_ATUAL)

    (eu fazia dessa forma em Sqlserver nao sei se é o caso em Access)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  JPaulo 8/2/2013, 17:32

    No Access pode fazer varios IIF`s

    Sendo que todos eles só podem ter uma condição e por fim a condição Falsa.

    Teste;

    Código:

    DataFim: CDate(IIf(Nz([Tem_Dt_Fim])="";Date()-1 & " " & "23:59:59";IIf(Nz([Tem_Dt_Fim])>Date();Date()-1 & " " & "23:59:59";IIf(Nz([Tem_Dt_Fim])<Date();Date()-2 & " " & "23:59:59";[Tem_Dt_Fim]))))


    .................................................................................
    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]Ultimo minuto do dia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  Convidado 9/2/2013, 21:11

    Grande Jpaulo!
    Funcionou perfeitamente o seu exemplo
    Mas eu consigo usar os operadores "And" ou "Or" no "IIF" ?

    Veja o que estou tentando fazer

    caso o Tem_Dt_Inicio seja < Date()-1 and [Tem_Dt_Fim]Tambem fosse < que date()-1 precisava que o DataFim recesse Tem_Dt_Inicio para que o Minutos fosse 0

    Código:
     CDate(IIf(Nz([Tem_Dt_Fim])="",Date(),
    IIf(Nz([Tem_Dt_Fim])<Date()-1  ,Date()-1,
    IIf(Nz([Tem_Dt_Fim])>Date()-1 ,[Tem_Dt_Fim],
    IIf(Nz([Tem_Dt_Inicio])<Date()-1 & " " & "00:00:00" and Nz([Tem_Dt_Fim])<Date()-1 & " " & "00:00:00" ,[Tem_Dt_Inicio],[Tem_Dt_Fim]))))) AS DataFim,
    DateDiff("n",[DataInicio_D_1],[DataFim_D_1]) AS Minutos



    Usei o And nessa instrução e funcionou mas na consulta acima nao esta funcionando
    Cdate(IIf(Nz([Tem_Dt_Inicio])
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  JPaulo 11/2/2013, 09:24

    Pode sim utilizar o operador "And" ou "Or";

    Código:

    DataFim: CDate(IIf(Nz([Tem_Dt_Fim])="";Date();IIf(Nz([Tem_Dt_Fim])<Date()-1;Date()-1;IIf(Nz([Tem_Dt_Fim])>Date()-1;Nz([Tem_Dt_Fim]);IIf(Nz([Tem_Dt_Inicio])<Date()-1 & " " & "00:00:00" And Nz([Tem_Dt_Fim])<Date()-1 & " " & "00:00:00";[Tem_Dt_Inicio];[Tem_Dt_Fim])))))


    .................................................................................
    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]Ultimo minuto do dia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new Instruções SQL como utilizar...
    avatar
    Convidado
    Convidado


    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  Convidado 11/2/2013, 23:28

    Obrigado JPaulo !

    Funcionou beleza!

    Faz alguma diferenca entre
    Date() & " " & "00:00:00" (11/02/2013 00:00:00)
    ou
    Date(11/02/2013)

    Ate agora nao tive problemas mas so pra ter certeza srs


    Obrigado pela atencao !
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  JPaulo 12/2/2013, 21:40

    Ola rafael'
    Penso que não faz diferença.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    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]Ultimo minuto do dia anterior Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Ultimo minuto do dia anterior Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Ultimo minuto do dia anterior Empty Re: [Resolvido]Ultimo minuto do dia anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2024, 02:12