几个取数，请教(50)

1、取得当前时间的年份；2、取得当前年的第一天的数值3、取得当前年最后一天的数值

procedure TForm1.btn1Click(Sender: TObject);var S: string; D: TDateTime; I: Word; ST: TSystemTime;begin DateTimeToSystemTime(Now, ST); I := ST.wYear; ShowMessage(IntToStr(I)); D := StrToDate(IntToStr(I) + '-1-1'); ShowMessage(DateToStr(D)); D := StrToDate(IntToStr(I+1) + '-1-1')-1; ShowMessage(DateToStr(D));end;

[]