[Resolvido]Primeiro dia do próximo mês informado.

Boa Tarde !
Depois de muito apanhar venho pedir ajuda aos colegas...

Tenho uma consulta onde o parâmetro é informado pelo usuário via ComboBox, onde o combox tem o todos os meses do ano.

Ao informar o Mes o valor sera informado no formtato "dd/mm/yyyy hh:nn", ou seja se o usuário informar Maio na verdade o valor sera passado como 01/05/2013 e assim por diante.

Se o usuario digitar Maio(01/05/2013) e o campo Dt_Inicio for >= que 01/06/2013 00:00( Format(Year(Forms!Frm_Inspecao.CBx_Data),Month(Forms!Frm_Inspecao.CBx_Data)+1,1,"dd/mm/yyyy hh:nn"),) entao
o o campo devera ser 01/06/2013 00:00.

Código:

IIf(DateValue(Nz(Format([Dt_Inicio],"dd/mm/yyyy hh:nn")))<Cdate(Format(Forms!Frm_Inspecao.CBx_Data,"dd/mm/yyyy hh:nn")),
Cdate(Format(Forms!Frm_Inspecao.CBx_Data,"dd/mm/yyyy hh:nn")),

IIf(Format([Dt_Inicio],"dd/mm/yyyy hh:nn") > Format(Year(Forms!Frm_Inspecao.CBx_Data),Month(Forms!Frm_Inspecao.CBx_Data)+1,1,"dd/mm/yyyy hh:nn"),
Format(Year(Forms!Frm_Inspecao.CBx_Data),Month(Forms!Frm_Inspecao.CBx_Data)+1,1,"dd/mm/yyyy hh:nn"),

Tbl_Tempo_Inspecao.Dt_Inicio)) AS Inicio,



Quando testo o codigo Sem o segundo IIF funciona, mas preciso testar as duas condicoes, ou seja preciso verificar se a data menos que a digitada(nesse caso ficaria (01/05/2013) e se é maior que o mes atual (Nesse caso ficaria (01/06/2013))


Alguma Sugestao !!

Saudacoes !

Boas Rafael...Veja:

Primeiro dia

=DateSerial(Year(Date());Month(Date());1)

Ultimo dia

=DateSerial(Year(Date());Month(Date())+1;0)


Cumprimentos.

Ola Piloto!
Obrigado pela atenção !

No meu caso, na verdade preciso nao do ultimo dia do mes e sim o primeiro dia do mes seguinte ao que foi informado pelo usuario.

Ou seja se o usuario informa 01/02/2013 o valor que preciso seria 01/03/2013.

Lembrando que o usuario informa o valor via Cbox (Forms!Frm_Inspecao.CBx_Data).

Pensei que fosse algo mais ou menos assim.
se : Forms!Frm_Inspecao.CBx_Data = 01/02/2013
Entao : Format(Year(Forms!Frm_Inspecao.CBx_Data),Month(Forms!Frm_Inspecao.CBx_Data)+1,1,"dd/mm/yyyy hh:nn") = 01/03/2013


Saudacoes !

Dim dtData As Date
dtDate = DateSerial(Year(Me.txtData), Month(Me.txtData()), 1)
dtDate = DateAdd("m", 1, dtDate)
MsgBox dtDate


Sempre informará o primeiro dia do mês posterior.

Cumprimentos.

Grande Mestre Piloto!

Muitissimo Obrigado !

Resolvido!


IIf(DateValue(Nz(Format([Dt_Inicio],"dd/mm/yyyy hh:nn")))
IIf(CDate(Format([Dt_Inicio],"dd/mm/yyyy hh:nn"))>Cdate(Format(DateAdd("m", 1, Forms!Frm_Inspecao.CBx_Data),"dd/mm/yyyy hh:nn")),Cdate(Format(DateAdd("m", 1, Forms!Frm_Inspecao.CBx_Data),"dd/mm/yyyy hh:nn")),

Tbl_Tempo_Inspecao.Dt_Inicio)) AS Inicio_Impacto,



Como Vai a Saude Melhorou ? Espero que sim Mande noticias !

Saudacoes !

Estou melhor Amigão.. Obrigado por perguntar...
Não se esqueça de clicar no joinha da mensagem que o auxiliou!
O Fórum agradece o Retorno.