我想用一个函数(提取当前日期的年部分,我知道是用yearof()，但总是不行)在线等待

Question

如果是Delphi的代码里,用DecodeDate(Now, Year, Month, Day)
第一个参数是当前日期,第二到四个参数是返回的年月日.
数据库里用什么函数,各数据库要视情况而定,SQL7里面是用Year(GetDate())就可以了.
至于什么是Uses,具体概念记不清了,只知道把想用的Unit Uses进来后,你就可以使用那个Unit里面声明的变量,类和函数等对象了,就象在当前UNIT里声明的一样.一般在帮助里可以查到Delphi提供的具体一个函数是在哪个UNIT里的,因为Delphi的所有函数你都可以看见它的实现源码.

Answer 1

begin 
var
lp:tsystemtime;
 begin
 getsystemtime(lp);
 edit1.text:=inttostr(lp.wyear);
 end;
end;

Answer 2

formatdatetime('yyyy',date)  返回的是字符型. (2002)

Answer 3

var year,month,day :word; 
用decodedatetime可能是decodedate函数，能把年月日都能取出来

Answer 4

提取年：
  sql =  'select year(getdate())'
  提取月：
  sql =  'select month(getdate())'

Answer 5

var 
    calendar1:tcalendar;
begin
    years:=calendar1.year;
end;