| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
aninhavl
Novato
Registrado: Quinta-Feira, 23 de Março de 2006
Mensagens: 23
|
 Enviada: Ter Dez 12, 2006 9:54 am Assunto: Validar um período de datas |
 |
|
Bom dia, tenho duas datas: inicio e fim onde a data fim está aceitando um valor inferior ao inicio. Ex.:
Data inicio: 12/02/2006
Data fim : 10/01/2006
Não sei como validar, será que alguém poderia e ajudar?
Estou trabalhando com delphi 6 e oracle 9i.
Desde já agradeço a atenção.  |
|
| Voltar ao Topo |
|
 |
adriano_servitec
Colaborador
Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618
|
| Enviada: Ter Dez 12, 2006 10:02 am Assunto: Re: Validar um período de datas |
|
|
| aninhavl escreveu: | Bom dia, tenho duas datas: inicio e fim onde a data fim está aceitando um valor inferior ao inicio. Ex.:
Data inicio: 12/02/2006
Data fim : 10/01/2006
Não sei como validar, será que alguém poderia e ajudar?
Estou trabalhando com delphi 6 e oracle 9i.
Desde já agradeço a atenção. |
Olah, crie uma variavel tipo TDate
| Código: | Var
dt1, dt2 : TDate;
Begin
dt1:=strtodate(MaskEdit2.Text);
dt2:=strtodate(MaskEdit3.Text);
if dt2 < dt1 then
begin
showmessage('Atençao Usuário! Você está tentando atribuir uma data menor que a data' +#13+
'Data de Referencia Inicial: '+ datetostr(dt1) + ' Data Incluida a maior: ' + datetostr(dt2) +#13+
'de Referencia Inicial. Por favor proceda a correção da Data');
maskedit3.SetFocus;
end; |
|
|
| Voltar ao Topo |
|
|
edibertoalves
Experiente
Registrado: Segunda-Feira, 15 de Agosto de 2005
Mensagens: 447
Localização: São Paulo - SP
|
| Enviada: Ter Dez 12, 2006 10:08 am Assunto: |
|
|
Bom Dia!
Fiz um pequeno exemplo rápido que possa te ajudar.
Botei 2 maskedits e no onExit do mskVenc:
if strtodate(mskVenc.Text) < strtodate(mskEmissao.Text) then
begin
ShowMessage('a data de vencimento não deve ser anterior ao da emissão');
if mskVenc.CanFocus then
mskVenc.SetFocus
end;
Abraços
Ediberto |
|
| Voltar ao Topo |
|
|
aninhavl
Novato
Registrado: Quinta-Feira, 23 de Março de 2006
Mensagens: 23
|
| Enviada: Ter Dez 12, 2006 10:34 am Assunto: |
|
|
Obrigada os códigos me ajudarm muito.
Valeu |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
