| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно узнать буржуйский номер недели? [D6, Win2k]
alxx © (2002-05-18 17:09:00)Как узнать буржуйский номер недели? Неделя начинается с Sunday.
Есть WeekOfTheYear(Date); - но она по нашему только выдает.
koks (2002-05-20 11:02:00) [1]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;
sizmrebi (2002-05-20 08:25:00) [2]v mssql est takoi:
select datepart(wk,[imia polia]) from [imia tabici],
vozvrashaet nomer nedeli.
alxx (2002-05-18 17:21:00) [3]А она относится к какому-то
TIdDateTimeStamp - не хотелось бы влезать в эту штуку...
Другой в моем Хелпе не.
Song (2002-05-18 17:15:00) [4]WeekOfYear()
| |
