常规参数
文章标题：
权重：
文章摘要：
function GetDays(ADate: TDate): Extended; varFirstOfYear: TDateTime;beginFirstOfYear := EncodeDate(StrToInt(FormatDateTime('yyyy', now)) - 1, 12, 31);Result := ADate - FirstOfYear;end;procedure TForm1.Button1Click(Sender: TObject);beginlabel1.Captio
关键字：
日期 某个 知道 如何 end the GetDays beginlabel1.Caption
管理密码: