[Resolvido]Data menor que primeiro dia do Mes corrente

Boa Tarde

Seguindo o que o Mestre JPaulo sugeriu a um colega no topico abaixo tentei adaptar ao meu exemplo em uma consulta onde a se a data_inicio for menor que o primeiro dia do mes o resultado sera o primeiro dia do mes

http://maximoaccess.forumeiros.com/t9139-resolvidodata-inicio-e-fim-de-mes-como-valor-padrao-em-caixa-de-texto


Estou a usar da seguinte maneira

CDate(IIf(Nz(Tem_Dt_Inicio)<(DateSerial(Year(Date()),Month(Date()),1)) ,(DateSerial(Year(Date()),Month(Date()),1)).....

Obs. Nao apresenta erro nenhum mas nao retorna o primeiro dia do mes como eu esperava
O detalhe é que meu campo data é do tipo texto.


Pesquisei tambe nesse link mas que é bem parecido com o que o JPaulo sugeriu

Algume sugestao ?

teste;

Código:


IIf(Nz([Tem_Dt_Inicio])<DateSerial(Year(Date());Month(Date());1);DateSerial(Year(Date());Month(Date());1);[mesreferencia])


Nao apresente nenhum erro mas nao retorna o primeiro dia do mes onde a data for menor que o primeiro dia do mes

Código:

CDate(IIf(Nz([Tem_Dt_Inicio])<DateSerial(Year(Date()),Month(Date()),1),DateSerial(Year(Date()),Month(Date()),1),[Tem_Dt_Inicio])) AS DataInicio_Acum_Mes,

Obs: No codigo que voce passo tenho que mudar ponto e virgula para somente virgula porque ?


Obrigado!

Rafael, eu fiz aqui o teste e devolveu sim.

Na minha instrução está ponto e virgula porque estou a copiar do proprio campo na consulta, mas no SQL fica virgula.

se puder dar uma olhada ai fazendo favor!

https://dl.dropbox.com/u/19875180/teste/teste.rar


Obrigado !

Error (404)

Anexe novamente por favor.

Me Perdoe JPAulo somente agora percebi que o Link estava indisponivel !


Segue...
https://dl.dropbox.com/u/19875180/teste.accdb


Obrigado pela atencao !

Código:


DataInicio_Acum_Mes: SeImed(ValData(Nz(Format([Tem_Dt_Inicio];"dd-mm-yyyy")))<DataSerial(Ano(Agora());Mês(Agora());1);DataSerial(Ano(Agora());Mês(Agora());1);ValData(Nz(Format([Tem_Dt_Inicio];"dd-mm-yyyy"))))


Mas dessa forma ele esta trazendo todos os registro com o primeiro dia no mes no caso 01/03/2013 sendo que deveria trazer somente onde as datas sao menores que 01/03/2013

se voce olhar na Tbl_Tempo_Impacto_Manutencao irar ver que tem alguns registros maiores que 01/03/2013





Obrigado !

Eu não encontrei nenhum maior que 01/03/2013, alterei o ultimo registro para 26/04/2013 e o penultimo para 27/03/013 e eles aparecem no query.

E as horas como faco para aparecer


caso eu tenha um registro 01/03/2013 12:00 por exemplo teria que me retorna 01/03/2013 12:00 e nao 01/03/2013

eu estava tentando fazer dessa forma antes de voce responder

Código:

CDate(IIf(Year([Tem_Dt_Inicio])=Year(Date()) And Month(Tem_Dt_Inicio)<Month(Date()),DateSerial(Year(Date()),Month(Date()),1),
IIf(Year([Tem_Dt_Inicio])=Year(Date()) And Month(Tem_Dt_Inicio)=Month(Date()),[Tem_Dt_Inicio],
[Tem_Dt_Inicio]))) AS DataInicio_Acum_Mes,

Aproveitando o topico
se assim é o primeiro dia do Mes
DateSerial(Year(Now()),Month(Now()),1

Como fica o primeiro dia do ano ?

Código:


DataInicio_Acum_Mes: SeImed(ValData(Nz(Format([Tem_Dt_Inicio];"dd-mm-yyyy")))<DataSerial(Ano(Agora());Mês(Agora());1);DataSerial(Ano(Agora());Mês(Agora());1) & " " & Format([Tem_Dt_Inicio];"hh:nn:ss");ValData(Nz(Format([Tem_Dt_Inicio];"dd-mm-yyyy"))) & " " & Format([Tem_Dt_Inicio];"hh:nn:ss"))


Primeiro dia do ano, está na minha assinatura (102 Codigos)=Datas no Access
DataSerial(Ano(Data());1;1)

Deu certo

Mas so corrigindo uma coisinha
Voce colocou assim

Código:

IIf(DateValue(Nz(Format([Tem_Dt_Inicio],"dd/mm/yyyy")))<DateSerial(Year(Now()),Month(Now()),1),DateSerial(Year(Now()),Month(Now()),1),DateValue(Nz(Format([Tem_Dt_Inicio],"dd/mm/yyyy"))) & " " & Format([Tem_Dt_Inicio],"hh:nn:ss")) AS DataInicio_Acum_Mes,

E mudei para

Código:

IIf(DateValue(Nz(Format([Tem_Dt_Inicio],"dd/mm/yyyy")))<DateSerial(Year(Now()),Month(Now()),1),DateSerial(Year(Now()),Month(Now()),1),DateValue(Nz(Format([Tem_Dt_Inicio],"dd/mm/yyyy"))) & " " & Format([Tem_Dt_Inicio],"hh:nn:ss")) AS DataInicio_Acum_Mes,

Pois preciso que traga a hora somente quando a data for Maior que o primeiro dia do Mês ai deu certinho

Muito Obrigado Pela paciência

Resolvido!

Obrigado pelo retorno o forum agradece.