急呀！问题很简单答对就给分，看谁快了！

Question

procedure TForm1.Button1Click(Sender: TObject);var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);//就是这个函数
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);//就是这个函数
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;

Answer 2

adoquery1.sql.add('select * from 表名 where datepart(yy,rq)=:a and datepart(mm)=:b');

Answer 3

adoquery1.sql.add('select * from 表名 where datepart(yy,rq)=:a and datepart(mm)=:b');

Answer 4

Datepart Abbreviations 
year yy, yyyy 
quarter qq, q 
month mm, m 
dayofyear dy, y 
day dd, d 
week wk, ww 
weekday dw 
hour hh 
minute mi, n 
second ss, s 
millisecond ms 

Answer 5

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 表名 where datepart(yyyy,rq)=:a and datepart(mm)=:b');
adoquery1.parameters[0].value := Trim(edit1.text);
adoquery1.parameters[1].value := Trim(edit2.text);
adoquery1.open;

Answer 6

select Year(rq), Month(rq) from 表名 

Answer 7

adoquery1.sql.add('select * from 表名 where year(rq)=:a and month(rq)=:b');
adoquery1.parambyname('a').asString:=Trim(edit1.text);
adoquery1.parambyname('b').asString:= Trim(edit2.text);

Answer 8

johnsonrao(johnson) 
你说的倒是不报错了，但是什么也查不出来呀！