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
// 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
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
// 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
4 matches
Mail list logo