Скачать: CL | DM;

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

← →
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.

---

← →
koks ©   (2002-05-20 11:02) [4]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c