|
Soru = Yılın kaçıncı gününde olduğumuzu bulan programı fonksiyonda yapınız.
Şekli :
Kodlar :
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 := ' Bugün yılın ' + FloatToStr(GetDays(Date)) + '. günü';
end;
Çalışma Şekli :
Programı çalıştırdıktan sonra ‘Yılın Kaçıncı Günü' butonuna bastığımızda bize şu an bulunduğumuz yılın kaçıncı gününde olduğumuz etiket şeklinde gösterir.
|
