Текущий архив: 2002.05.30;
Скачать: 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 вся ветка
Текущий архив: 2002.05.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
