Вопрос по датам

← →
календарь1 (2005-09-13 16:46) [0]

Как мне узнать количество определенных дней недели (пятниц, например) в определенном месяце какого-то года? Как определить, что такое-то число являеться таким то днем недели (например, 2-ым вторником) определенно месяца определенного года?
Поможите с алгоритмами. Не могу сам придумать...

← →
TUser © (2005-09-13 17:34) [1]

DaysBetween

← →
Reindeer Moss Eater © (2005-09-13 17:39) [2]

Как мне узнать количество определенных дней недели (пятниц, например) в определенном месяце

Надо их посчитать.

← →
календарь1 (2005-09-13 17:47) [3]

> Надо их посчитать

как? Как хотя бы узнать номер недели в году?

← →
Джо © (2005-09-13 18:02) [4]

uses DateUtils...
function WeekOfTheYear
и другие

← →
Reindeer Moss Eater © (2005-09-13 18:07) [5]

А зачем тебе номер недели в году для того, что бы посчитать пятницы?

В твоем календаре разное кол-во пятниц в разных неделях?

← →
Antonn © (2005-09-13 18:12) [6]

примерно так:

uses dateutils; function GetNumDayNedely(_date:Tdatetime; _num:integer):integer; var YYYY, MM, DD: Word; D: TDateTime; i:integer; begin DecodeDate(_date, YYYY, MM, DD); D := EndOfAMonth(YYYY, MM); DecodeDate(D, YYYY, MM, DD); result:=0; d:= EncodeDate(YYYY, MM, 1); for i:=0 to DD-1 do if _num=DayOfWeek(d+i) then result:=result+1; end;

в _num - номер дня недели (1..7), начиная с Воскресенья

← →
календарь1 (2005-09-13 18:22) [7]

> uses DateUtils...

говорит что такого нету...

> Antonn © (13.09.05 18:12) [6]

видел уже это... мне нужен математическо-логический алгоритм в чистом виде, а не Tdatetime...

← →
Джо © (2005-09-13 18:23) [8]

> мне нужен математическо-логический алгоритм в чистом виде,
> а не Tdatetime...

На пальцах. Элементарно.

← →
Reindeer Moss Eater © (2005-09-13 18:23) [9]

мне нужен математическо-логический алгоритм

Абалдеть-не-встать
:)

← →
календарь1 (2005-09-13 18:27) [10]

> Абалдеть-не-встать

ну спасибо :)

← →
календарь1 (2005-09-13 18:29) [11]

> Джо © (13.09.05 18:02) [4]
> uses DateUtils...
> function WeekOfTheYear
> и другие

Нашел модуль. WeekOfTheYear там нету.

← →
Antonn © (2005-09-13 18:35) [12]

календарь1 (13.09.05 18:22) [7]
видел уже это...
где видел? я только что написал...

← →
календарь1 (2005-09-13 18:38) [13]

> где видел? я только что написал...

Не это а похожее...

← →
календарь1 (2005-09-13 18:42) [14]

Ну поможите! плиз! уже весь Яндекс обыскал, нигде нету :(
Нужен сам алгоритм... Можно не на Паскале, а хоть просто на словах объяснить, только как можно понятнее...

календарь1 (13.09.05 18:42) [14]
зажимаешь ctrl и щелкаешь на название функций в соду [6], копируешь себе, лишнее убираешь.

> [11] календарь1 (13.09.05 18:29)
> Нашел модуль. WeekOfTheYear там нету.

Вот объявления нескольких функций из этого модуля (D6, D2005):
{ This of that functions } function MonthOfTheYear(const AValue: TDateTime): Word; function WeekOfTheYear(const AValue: TDateTime): Word; overload; {ISO 8601} function WeekOfTheYear(const AValue: TDateTime; {ISO 8601} var AYear: Word): Word; overload; function DayOfTheYear(const AValue: TDateTime): Word; function HourOfTheYear(const AValue: TDateTime): Word; function MinuteOfTheYear(const AValue: TDateTime): LongWord; function SecondOfTheYear(const AValue: TDateTime): LongWord; function MilliSecondOfTheYear(const AValue: TDateTime): Int64; function WeekOfTheMonth(const AValue: TDateTime): Word; overload; {ISO 8601x} function WeekOfTheMonth(const AValue: TDateTime; var AYear, {ISO 8601x} AMonth: Word): Word; overload; function DayOfTheMonth(const AValue: TDateTime): Word; function HourOfTheMonth(const AValue: TDateTime): Word; function MinuteOfTheMonth(const AValue: TDateTime): Word; function SecondOfTheMonth(const AValue: TDateTime): LongWord; function MilliSecondOfTheMonth(const AValue: TDateTime): LongWord; function DayOfTheWeek(const AValue: TDateTime): Word; {ISO 8601} function HourOfTheWeek(const AValue: TDateTime): Word; {ISO 8601} function MinuteOfTheWeek(const AValue: TDateTime): Word; {ISO 8601} function SecondOfTheWeek(const AValue: TDateTime): LongWord; {ISO 8601} function MilliSecondOfTheWeek(const AValue: TDateTime): LongWord; {ISO 8601} function HourOfTheDay(const AValue: TDateTime): Word; function MinuteOfTheDay(const AValue: TDateTime): Word; function SecondOfTheDay(const AValue: TDateTime): LongWord; function MilliSecondOfTheDay(const AValue: TDateTime): LongWord; function MinuteOfTheHour(const AValue: TDateTime): Word; function SecondOfTheHour(const AValue: TDateTime): Word; function MilliSecondOfTheHour(const AValue: TDateTime): LongWord; function SecondOfTheMinute(const AValue: TDateTime): Word; function MilliSecondOfTheMinute(const AValue: TDateTime): LongWord; function MilliSecondOfTheSecond(const AValue: TDateTime): Word;
Я их сам придумал? ;)
П.С. Вообще-то, в таких случаях принято писать номер своей версии Делфи.

← →
календарь1 (2005-09-13 19:05) [18]

> П.С. Вообще-то, в таких случаях принято писать номер своей
> версии Делфи.

№ 5 :) а в Д-7 такое есть?

> [18] календарь1 (13.09.05 19:05)
> № 5 :) а в Д-7 такое есть?

В Делфи 7 - не знаю. У меня 6 и 2005. С вероятностью 99% рискну утверждать, что и в 7 есть :)

есть

Вопрос по датам Найти похожие ветки