关于日期的计算问题。

Question

1如何的到上今年的年分，整形。例如2003
2。从TDATE类型数据中得到INTEGER类型的年，月，日，星期

Answer 1

var
  wYear,wMonth,wDay,wHour,wMin,wSec,wMSec: word;
begin
  DecodeDate(now,wYear,wMonth,wDay);//wyear存放的是年
showmessage(wyear);
  DecodeTime(now,wHour,wMin,wSec,wMSec);
end; 

Answer 2

上面的改一下.
procedure TForm1.Button1Click(Sender: TObject);
var
  wYear,wMonth,wDay,wHour,wMin,wSec,wMSec: word;
begin
  DecodeDate(now,wYear,wMonth,wDay);//wyear存放的是年
showmessage(inttostr(wyear));end;

Answer 3

function ToCnWeek(const CuDate: TDateTime): string; 
var 
  w: integer; 
  week: string; 
begin 
  w := DayOfWeek(CuDate); 
  case w of 
    1: week := '日'; 
    2: week := '一'; 
    3: week := '二'; 
    4: week := '三'; 
    5: week := '四'; 
    6: week := '五'; 
    7: week := '六'; 
  end; {case} 
  Result := '星期' + week; 
end; 

Answer 4

procedure TMRPRYForm.FormShow(Sender: TObject);
  procedure IniBD_DD;
   var
     Year,Month,Day:Word;
     begin
      DecodeDate(Now, Year, Month, Day);
      if IsLeapYear(Year) then
       if (Month=2) and (Day=29) then
           Day:=28;
      Dec(Year,1);
      B_DD.Text:=DateToStr(EncodeDate(Year,Month,Day));
      E_DD.Text:=DateToStr(Date);
    end;
begin
   IniTable;
   IniBD_DD;
   MBitBtn4.Enabled:=False;
   MBitBtn2.Enabled:=False;
   MBitBtn1.Enabled:=False;
   Splitter1.Visible:=False;
end;

Answer 5

年份可以用
uses DateUtils;
var
  i: Word;
begin
  i:= yearof(date);
  ShowMessage(IntToStr(i));
end;