| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
vilmar.souza
Novato
Registrado: Segunda-Feira, 26 de Julho de 2010
Mensagens: 68
|
 Enviada: Qui Abr 18, 2013 4:44 pm Assunto: Gerar com primeiro dia do mês seguinte |
 |
|
Boa tarde!
No meu form coloquei dois campos: Edt_Ano e Edt_Mes
Por exemplo, eu dito no Edt_ano = 2013 e no Edt_Mes = 04.
Com essa informação gostaria que o sistema gerasse a data do primeiro dia do mes seguinte. Nesse caso seria 01/05/2013.
Tentei usar a função StartOfaMonth mas não sei como usar essa função.
Se puderem me dar uma dica agradeço.
Obrigado.
Abraços. |
|
| Voltar ao Topo |
|
 |
ValerioB
Novato
Registrado: Quarta-Feira, 20 de Julho de 2011
Mensagens: 59
|
| Enviada: Qui Abr 18, 2013 4:58 pm Assunto: |
|
|
| como assim gerar ? |
|
| Voltar ao Topo |
|
|
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Qui Abr 18, 2013 5:01 pm Assunto: Re: Gerar com primeiro dia do mês seguinte |
|
|
amigo o q vc procura é uma funcao chama IncMonth q vc deveria usar dps do StarOfMonth
declare DateUtils nas uses coloque um button e teste o exemplo
edtano.text = 2013 e edtmes.text = 04
| Código: |
var
data_final: TDate;
begin
data_final := StrToDate('15/'+edtmes.Text+'/'+edtano.Text);
ShowMessage('data formatada: '+DateToStr(data_final));
ShowMessage('data formatada (dia inicial): '+DateToStr(StartOfTheMonth(data_final)));
ShowMessage('data formatada (dia inicial do mes seguinte): '+DateToStr(StartOfTheMonth(IncMonth(data_final))));
end;
|
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
vilmar.souza
Novato
Registrado: Segunda-Feira, 26 de Julho de 2010
Mensagens: 68
|
| Enviada: Qui Abr 18, 2013 5:21 pm Assunto: Re: Gerar com primeiro dia do mês seguinte |
|
|
| cobaiaoo escreveu: | amigo o q vc procura é uma funcao chama IncMonth q vc deveria usar dps do StarOfMonth
declare DateUtils nas uses coloque um button e teste o exemplo
edtano.text = 2013 e edtmes.text = 04
| Código: |
var
data_final: TDate;
begin
data_final := StrToDate('15/'+edtmes.Text+'/'+edtano.Text);
ShowMessage('data formatada: '+DateToStr(data_final));
ShowMessage('data formatada (dia inicial): '+DateToStr(StartOfTheMonth(data_final)));
ShowMessage('data formatada (dia inicial do mes seguinte): '+DateToStr(StartOfTheMonth(IncMonth(data_final))));
end;
|
|
Era isso mesmo. Valeu...
Obrigado. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
