Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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


 function WeekOfYear(Dat: TDateTime): Word;
 // Интерпретация номеров дней:
 // ISO: 1 = Понедельник, 7 = Воскресенье
 // Delphi SysUtils: 1 = Воскресенье, 7 = Суббота
 var
   Day, Month, Year: Word;
   FirstDate: TDateTime;
   DateDiff: Integer;
 begin
   day := SysUtils.DayOfWeek(Dat) - 1;
   Dat := Dat + 3 - ((6 + day) mod 7);
   DecodeDate(Dat, Year, Month, Day);
   FirstDate := EncodeDate(Year, 1, 1);
   DateDiff := Trunc(Dat - FirstDate);
   Result := 1 + (DateDiff div 7);
 end;
 




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



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



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS