Как можно узнать буржуйский номер недели?

← →
alxx © (2002-05-18 17:09) [0]

Как узнать буржуйский номер недели? Неделя начинается с Sunday.
Есть WeekOfTheYear(Date); - но она по нашему только выдает.

← →
Song © (2002-05-18 17:15) [1]

WeekOfYear()

← →
alxx © (2002-05-18 17:21) [2]

А она относится к какому-то

TIdDateTimeStamp - не хотелось бы влезать в эту штуку...

Другой в моем Хелпе не.

← →
sizmrebi © (2002-05-20 08:25) [3]

v mssql est takoi:
select datepart(wk,[imia polia]) from [imia tabici],
vozvrashaet nomer nedeli.

function WeekOfYear(ADate: TDateTime): integer;
var
AYear, AMonth, ADay: integer;
YearFirstDate: TDateTime;
begin
DecodeDate(ADate, AYear, AMonth, ADay);
YearFirstDate := EncodeDate(AYear, 1, 1);
Result := 7 - DayOfWeek(YearFirstDate);
Result := Trunc(ADate) - Trunc(YearFirstDate) + 1 - Result;
if (Result mod 7) = 0 then Result := Result div 7 + 1
else Result := result div 7 + 2;
end;

Как можно узнать буржуйский номер недели? Найти похожие ветки