data
como faço para que a data so va ate ano atual ou ate o nao de 2010?
e cm valido peguei uns codigos na net so q sta dando erro
obrigada
e cm valido peguei uns codigos na net so q sta dando erro
obrigada
Alessandra
Curtidas 0
Respostas
Alessandra
10/03/2011
e colocar a data invalida mostrashowmessage ('data invalida');
GOSTEI 0
Marco Salles
10/03/2011
coloque o seu código para vermos onde esta o erro
GOSTEI 0
Alessandra
10/03/2011
try
StrToDate(MaskEdit1.Text);
except
ShowMessage ('Data Inválida!');
end;
end;
to usando no onexit
except
ShowMessage ('Data Inválida!');
end;
end;
to usando no onexit
GOSTEI 0
Rodrigo Mattos
10/03/2011
Amiga, na questão da verificação, se o ano é maior ou não, você pode tentar fazer esse código:
Espero ter Ajudado.
http://mundodoprogramador.wordpress.com
if Copy(MaskEdit1.Text,7,10) > Copy(FormatDateTime('dd/mm/yyyy',Date),7,10) then
begin
ShowMessage('Data Inválida!');
end;
try
StrToDate(MaskEdit1.Text);
except
ShowMessage('Data Inválida!');
end;
Espero ter Ajudado.
http://mundodoprogramador.wordpress.com
GOSTEI 0
Emerson Nascimento
10/03/2011
tente assim:
var
ano: integer;
begin
try
ano := YearOf(StrToDate(MaskEdit1.Text));
if ano <> YearOf(Sysutils.Date) then
RaiseException(0, 0, 1, @ano);
except
ShowMessage ('Data Inválida!');
end;
end;
esse código vai exibir a mensagem se a data for inválida ou se o ano digitado for diferente do ano atual.
lembre-se que para utilizar a função YearOf() é necessário adicionar a unit DateUtils à cláusula uses.
var
ano: integer;
begin
try
ano := YearOf(StrToDate(MaskEdit1.Text));
if ano <> YearOf(Sysutils.Date) then
RaiseException(0, 0, 1, @ano);
except
ShowMessage ('Data Inválida!');
end;
end;
esse código vai exibir a mensagem se a data for inválida ou se o ano digitado for diferente do ano atual.
lembre-se que para utilizar a função YearOf() é necessário adicionar a unit DateUtils à cláusula uses.
GOSTEI 0
Alessandra
10/03/2011
infelizment terei que fazer essa pergunta
como se usa a unit ou melhor cm coloco isso unit DateUtils
na unit? to começando agora so um pouco digamos q leiga
como se usa a unit ou melhor cm coloco isso unit DateUtils
na unit? to começando agora so um pouco digamos q leiga
GOSTEI 0
Marco Salles
10/03/2011
infelizment terei que fazer essa pergunta
como se usa a unit ou melhor cm coloco isso unit DateUtils
na unit? to começando agora so um pouco digamos q leiga
Adicionar que a gente se refere Alessandra é fazer menção .. Em termos práticos é dizer para o
compilador onde esta aquela função. No caso em questão é a função YearOf que extrai o Ano de
uam determinada Data
Existem duas seçoes de Uses , a da Seclçao Interface e a da Secção Implementation
No seu caso basta fazer assim
varcomo se usa a unit ou melhor cm coloco isso unit DateUtils
na unit? to começando agora so um pouco digamos q leiga
Form1: TForm1; implementation uses
DateUtils; //////////////////Aqui Hoooooooooooooo {$R *.dfm}
GOSTEI 0