可怜可怜我吧，只有最后10分了，求怎样获得系统日期的年份和月份（2002、11），还有个问题就是统计记录的个数

Question

1。
　　求怎样获得系统日期的年份和月份（2002、11）？
2。
　　统计记录的个数（SQLSERVER库）
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
谢谢

Answer 1

1、
  var
    y,m:string  //年、月
    s:string;
  
  s:=datetimetostr(now);
  if copy(s,3,1)='-' then         //win9x年分是两位，处理一下
    s:='20'+s;                    //如果是19xx年，则加'19'
  y:=copy(s,1,4);
  m:=copy(s,6,2)2
  Table有一个属性：Recordcount

Answer 2

1.取系统的年、月 ？
这样做。。
语法：function YearOf(const AValue: TDateTime): Word;
      function MonthOf(const AValue: TDateTime): Word;
例：
var
 y,m: integer;
....
  y := YearOf(Date);
  m := MonthOf(Date);2.统记个数。
  用Query控件
  一语话
      Select Count(*) From TableName;
取回来用
Query.Sql.Text := 'Select Count(*) From TableName;';
Query.Open;
nCount := Query.Fields.Fields[0].AsInteger;
Query.Close;

Answer 3

var year,month,day:word;
begin
    DecodeDate(Date(),year,month,day);  //得到年,月,日
end;AdoQuery.REcordCount //记录数