БОЛЬШОЙ FAQ ПО DELPHI



Число текущей недели

На конференции после обсуждения того, что компьютершики надули всех с "проблемой 2000", поимели с этого и тэдэ. Билл Гейтс буркнул про себя:
- Рано радуетесь господа, я вам ТАААКУЮ проблему 2000 заготовил! Вот когда все её себе заинсталите - тада и посмотрим, хе-хе...


 function WeekOfYear(ADate: TDateTime): word;
 var
   day: word;
   month: word;
   year: word;
   FirstOfYear: TDateTime;
 begin
   DecodeDate(ADate, year, month, day);
   FirstOfYear := EncodeDate(year, 1, 1);
   Result := Trunc(ADate - FirstOfYear) div 7 + 1;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage(IntToStr(WeekOfYear(Date)));
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ