如何知道某个日期是某年的第几天

I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
function GetDays(ADate: TDate): Extended; var
FirstOfYear: TDateTime;
begin
FirstOfYear := EncodeDate(StrToInt(FormatDateTime('yyyy', now)) - 1, 12, 31);
Result := ADate - FirstOfYear;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption := 'Today is the ' + FloatToStr(GetDays(Date)) + '. day of the year';
end;
 
 

Similar threads

I
回复
0
查看
790
import
I
I
回复
0
查看
612
import
I
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
顶部