////// procedure TForm1.Button1Click(Sender: TObject); // coloque no
seu evento
var
Ano : Integer;
cData : String;
begin
cData := DatetoStr(Date()); // substitua Date() pela sua data da
tabela
cData := Copy(cData,7,4);
Ano := StrtoInt(cData);
// Label1.caption := inttoStr(Ano);;
end;
COMO faço para calcular Ano e a cData.
Exemplo:
ano: 2005
cData: 1950
Label1.caption: 55
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html