Как определить текущий номер недели

← →
AndreySoft (2003-09-02 09:46) [0]

Существует ли какая-нибудь стандартная функция или надо писать код.

← →
Е-Моё имя (2003-09-02 09:49) [1]

WeekOfTheYear

← →
AndreySoft (2003-09-02 10:09) [2]

Папиши пожалуйста пример кода, а то в справке мало написано и примера нет, да и чё-то не работает: как бы допустим при нажатии Button1 в Label1 заносился номер недели...

← →
Polevi (2003-09-02 10:21) [3]

>AndreySoft © (02.09.03 10:09) [2]
да вы совсем оборзели, юноша !

← →
AndreySoft (2003-09-02 10:28) [4]

>>Polevi © (02.09.03 10:21) [3] Ну если я не могу сделать, что тут поделаешь?
Я пытался прописывать эту функцию, а компилятор говорит что, неизвестный идентификатор...

← →
NickBat (2003-09-02 10:30) [5]

а в Uses дописать?

← →
AndreySoft (2003-09-02 10:32) [6]

> NickBat © (02.09.03 10:30) [5]
> а в Uses дописать?

Ну и какой модуль надо дописывать в Uses?

← →
Романов Р.В. (2003-09-02 10:36) [7]

тот в котором эта функция реализована

← →
AndreySoft (2003-09-02 10:39) [8]

>>Романов Р.В. © (02.09.03 10:36) [7]
>тот в котором эта функция реализована

А имя модуля сложно сказать?

← →
Романов Р.В. (2003-09-02 10:40) [9]

> AndreySoft © (02.09.03 10:39) [8]

Я не помню.
А что сложно его в спавке прочитать?

← →
wl (2003-09-02 10:41) [10]

DateUtils - по крайней мере в C++Builder (нету щаз делфей)

← →
Palladin (2003-09-02 10:41) [11]

Ветка висит час, справка так и не открыта...

← →
HolACost! (2003-09-02 10:45) [12]

>> Polevi
Не выли нам всем говорили, что это чудо может исправиться? или не ны!!!!
Но вообщем - это страшный человек - для полного спокойствия - надо ему в свои мессаги добавлять - дайте код такойто - и пояснилово на 10 страниц!!!

← →
AndreySoft (2003-09-02 10:45) [13]

>>Palladin © (02.09.03 10:41) [11]
>Ветка висит час, справка так и не открыта...

Справку я открывал! Там написан только тип и описание WeekOfYear.

>>AllДа блин! Вам что сложно показать код?

← →
NickBat (2003-09-02 10:48) [14]

Открой справку и ВНИМАТЕЛЬНО посмотри на 4 (четвертую) строчку.

← →
HolACost! (2003-09-02 10:51) [15]

Да блин сложно - а сам не можешь!
Воистину проги ты не пишешь, а составляешь!
procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=IntToStr(WeekOfTheYear(Now)); end;

← →
[lamer]Barmaglot (2003-09-02 10:51) [16]

Между прочим я тоже не нашел такой функции, поэтому написал свою.
держи...

Function WeekOfYear(const TDT: TDateTime): integer; var Year, Month, Day: Word; TDT1: TDateTime; TMPDay: integer; TMPWeek: Integer; begin DecodeDate(TDT, Year, Month, Day); TDT1:=TDT; TMPWeek:=1; TMPDay:=1; Repeat begin inc(TMPDay); TDT1:=EncodeDate(year, month, TMPDay); end; Until DayOfWeek(TDT1)=1; While TMPDay<Day do begin inc(TMPDay,7); inc(TMPWeek); end; Result:=TMPWeek; end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption:=inttostr(WeekOfYear(EncodeDate(2003,9,29))); end;

← →
Polevi (2003-09-02 10:52) [17]

>HolACost! © (02.09.03 10:45) [12]
уважаемый, вы меня с кем-то путаете

← →
HolACost! (2003-09-02 10:52) [18]

Зря писал!!!
К моему допиши DateUtils в uses

← →
HolACost! (2003-09-02 10:53) [19]

>> Poveli
Я извиняюсь, Уважаемый! Мир во всём мире!!! Гы!!!

← →
AndreySoft (2003-09-02 10:54) [20]

>>NickBat © (02.09.03 10:48) [14]

Ты про эту сточку говоришь?

>GetWeekOfYear - функция Integer, которая действует как спецификатор доступа для чтения для WeekOfYear свойства.

Ну и что? Я понимаю что она-то и возвращает номер недели, только DateUtils никак не реагирует на эти функции, а идентификатор по-прежнему неизвестен!

>>All

ЛЮДИ!!! ЧЕЛОВЕКИ!!! Вам что сложно помочь или вам потрепаться охота?

← →
KSergey (2003-09-02 10:54) [21]

AndreySoft © (02.09.03 10:45)
>>All Да блин! Вам что сложно показать код?

Как было обсуждено в одной ветке, большинство сюда ходит не на вопросы отвечать, а за развлечением ;)
А потому если есть повод развлечься - он используется по полной. Имейте это в виду.
Не забывайте так же, что советы даются бесплатно. А потому развлечение - нормальная за то плата.
Впрочем, на все вопросы вам ответили, даже носом ткнули где что взять.

← →
AndreySoft (2003-09-02 10:56) [22]

Всё OK! Всем спасибо!

← →
KSergey (2003-09-02 10:56) [23]

К стати, а в какой версии дельфи это появилось? У меня в справке по D5 нет такой ф-ции...

← →
Smithson (2003-09-02 10:57) [24]

Слушайте, товарищ просто уникальный. Это третья или четветая его тема, растущая у меня на глазах со скоростью курьерского поезда. Это, видимо, ТАЛАНТ.

← →
HolACost! (2003-09-02 10:59) [25]

Да уж!!! Мне вообще одно время казалось, что он вопросы свои и под другими никами задаёт, а потом н аних отвечает как блин клинтон в авальном кАбЕнЕтЕ! Гы!!! И ответы такие увесистые - мне аж страшно бывает, когда я такое вижу!!!

← →
Palladin (2003-09-02 11:06) [26]

> KSergey © (02.09.03 10:56) [23]

Большое количество рутин для работы с датами появилось в D6...
ИМХО. У меня D6 с D5 как аналогия w98 и w95...

← →
AndreySoft (2003-09-02 11:06) [27]

Ну и что что вы такие все продвинутые! Я не завистливый человек! А что вопросы задаю такие: ну просто сам не нашёл, вот и всё! В форуме есть людишки которые вопросы задают и по глупей моих, и что с этого? На какие вопросы я знаю ответы, тоже отвечаю! Надо помогать людям, а не указывать им на то, какие они безграмотные!

← →
Palladin (2003-09-02 11:08) [28]

Флейм пошел. Сколько раз уже обсуждалось. "Говорить человеку как делать" немножко отличается от "Делать за человека"

← →
HolACost! (2003-09-02 11:08) [29]

Уровень вашей помощи тянет на нечто пахабное!
А сами не понимаете - потомучно не пытаетесь - писать там - блин - справку не открывая можно было!!!

← →
Андрей Сенченко (2003-09-02 11:08) [30]

Smithson © (02.09.03 10:57) [24]

Насчет уникальности ошибаешься. IronHawk-а застал ?

( ... шепотом ) а может это он и есть ?

← →
Е-Моё имя (2003-09-02 11:15) [31]

я начинаю задумываться над тем, не разводка ли это все...

← →
Smithson (2003-09-02 11:21) [32]

Застал, я тут не один год... Может быть.

← →
Anatoly Podgoretsky (2003-09-02 11:24) [33]

AndreySoft © (02.09.03 11:06) [27]
Ты уверен?

← →
AndreySoft (2003-09-02 11:25) [34]

> Anatoly Podgoretsky © (02.09.03 11:24) [33]
> AndreySoft © (02.09.03 11:06) [27]
> Ты уверен?

В чём именно?

← →
HolACost! (2003-09-02 11:26) [35]

Уверен он только в одном - что он ГЕНИЙ непризнанный и его здесь недооценивают!

← →
Skier (2003-09-02 11:27) [36]

Пора это дело в "Потрепаться".

← →
AndreySoft (2003-09-02 11:28) [37]

> HolACost! © (02.09.03 11:26) [35]
> Уверен он только в одном - что он ГЕНИЙ непризнанный и его
> здесь недооценивают!

Я такого не говорил и так не думаю!

← →
Palladin (2003-09-02 11:29) [38]

Ну а почему тогда так себя ведешь?

← →
Anatoly Podgoretsky (2003-09-02 11:30) [39]

AndreySoft © (02.09.03 11:25) [34]

В форуме есть людишки которые вопросы задают и по глупей моих, и что с этого?

Может ты не в состоянии вопросы оценеить.
Действитель и что с того, что задают, но они не такие воинственные.

← →
Palladin (2003-09-02 11:30) [40]

Зачем артачится, ну сказали загляни в справку повнимательней, нет блин, одним глазком глянул и снова в форум, снова в бой. Ну разве так делается?

← →
AndreySoft (2003-09-02 11:32) [41]

>>Palladin © (02.09.03 11:29) [38]
>Ну а почему тогда так себя ведешь?

Что зачит: так себя ведёшь? Разве я кого-нибудь упрекнул в том-что он бестолочь и ему не место в этом форуме?

← →
Anatoly Podgoretsky (2003-09-02 11:37) [42]

Да не упрекать нужно, а заглянуть в справку, тебе даже номер строки указали.

← →
panov (2003-09-02 11:46) [43]

мама миа...

← →
HolACost! (2003-09-02 11:48) [44]

Что тебя здесь не дооценивают - ты говорил!!! Гы!!! Веточку про шифрование строки ты помнишь надеюсь? А ведёшь себя как непризнанный гений:
"людишьки" - это ты про кого? Типа кто дал право так людей называть?
те кто задают вопросы и поглупее - они сами разбираются в своих проблемах и если припрёт по самые и они не начинают требовать что-либо - они вежлего просят!
"Справку я открывал! Там написан только тип и описание WeekOfYear." - эта фраза вообще шедевр человеческого ума - а что там должно быть ещё? Примера нет - эта справка, а demos!
"Я пытался прописывать эту функцию, а компилятор говорит что, неизвестный идентификатор..." - глупее этого вопроса я не видел!
>> panov

Штрашно за наше будущее или просто уже надоело? ;-)

← →
Darts (2003-09-02 11:54) [45]

Я плакаль, читая такой роман в письмах...

← →
NickBat (2003-09-02 11:56) [46]

> Штрашно за наше будущее или просто уже надоело? ;-)

Да наше будущее оно с нами, а вот будущее софтверной компании по составлению программ AndreySoft под большим вопросом. :))

← →
Zergling (2003-09-02 11:58) [47]

AndreySoft © (02.09.03 10:32) [6]

> NickBat © (02.09.03 10:30) [5]
> а в Uses дописать?

>> Ну и какой модуль надо дописывать в Uses?

Незнаещь модуль, но знаешь процедурку?

Виндозный поиск, каталог дельфи, ищем файлы *.pas, ищем текст WeekOfTheYear

И вопросы отпадут какой модуль подцепить.

← →
otido (2003-09-02 12:08) [48]

> panov © (02.09.03 11:46) [43]
> мама миа...

Присоединяюсь.. куда мы катимся?

З.Ы.
А это случайно не результат слишком усиленной помощи со стороны IDE?

← →
Zergling (2003-09-02 12:14) [49]

← →
VAleksey (2003-09-02 12:49) [50]

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