Re: [delphi-br] Ano

2005-08-15 Por tôpico Evandro Siqueira
YearOf []'s Evandro Siqueira Programador Recife/PE - Original Message - From: Info Desenvolvimento To: delphi-br@yahoogrupos.com.br Sent: Wednesday, August 10, 2005 1:54 PM Subject: [delphi-br] Ano Como extrair o ANO de uma data no usando delphi 5 com paradox. Não é em SQL

Re: [delphi-br] Ano

2005-08-11 Por tôpico Info Desenvolvimento
// 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); // L

Re: [delphi-br] Ano

2005-08-11 Por tôpico Alisson Yahoo
Quanta volta! Não seria melhor assim? procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := Copy(DateToStr(Date), 7, 10) end; // procedure TForm1.Button1Click(Sender: TObject); // coloque no seu evento var Ano : Integer; cData : String; begin

Re: [delphi-br] Ano

2005-08-10 Por tôpico wazen
// 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 := inttoSt