порядковый номер недели - Общие вопросы Delphi

skalt12 · 01.12.2009, 15:51

Доброе время суток, уважаемые

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

ОДИНОЧЕСТВО В СЕТИ · 01.12.2009, 15:53

Цитата:

Такой вопрос возник

Считай количество дней и дели на 7

skalt12 · 01.12.2009, 16:00

Нужно, чтобы программа каждую неделю обновляла индекс... допустим.. точка отсчета 15 число, соответственно, где-нибудь в TMemo или TLabel, пишется цифра "1", 22 числа, индекс меняется на 2 и так далее

ОДИНОЧЕСТВО В СЕТИ · 01.12.2009, 16:03

повторяю
Считай количество дней между текущей датой и точкой отсчета и дели на 7

Stilet · 01.12.2009, 16:11

Че там считать?

Код:

 
uses  dateutils,
...
Caption:=IntToStr(WeeksBetween(EncodeDate(2009,1,1),now));

И делов то...

skalt12 · 01.12.2009, 16:37

Спасибо, буду разбираться

Вот так получится:

Код:

<...>.Caption:=IntToStr(WeekOf(EncodeDate(2009,1,8)));

mihali4 · 01.12.2009, 16:45

Цитата:

<...>.Caption:=IntToStr(WeekOf(Enco deDate(2009,1,8)));

Это у вас будет номер недели от начала года...
Вам же Виталий подсказал правильный способ.

skalt12 · 01.12.2009, 16:52

Цитата:

Сообщение от mihali4

Это у вас будет номер недели от начала года...
Вам же Виталий подсказал правильный способ.

Ну так вместо начала года впишется нужная дата и все дела

01.12.2009, 15:51	#1
skalt12 Пользователь Регистрация: 05.07.2009 Сообщений: 87	порядковый номер недели Доброе время суток, уважаемые Такой вопрос возник, нужно написать программку, которая показывает порядковый номер недели от заданного числа.. Как сие реализовать? Заранее благодарен.. Последний раз редактировалось skalt12; 01.12.2009 в 15:53.

01.12.2009, 16:03	#4
ОДИНОЧЕСТВО В СЕТИ Любопытная Вредина Участник клуба Регистрация: 19.06.2009 Сообщений: 1,285	повторяю Считай количество дней между текущей датой и точкой отсчета и дели на 7 Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.

01.12.2009, 16:11	#5
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,097	Че там считать? Код: `uses dateutils, ... Caption:=IntToStr(WeeksBetween(EncodeDate(2009,1,1),now));` И делов то... I'm learning to live...

01.12.2009, 16:37	#6
skalt12 Пользователь Регистрация: 05.07.2009 Сообщений: 87	Спасибо, буду разбираться Вот так получится: Код: `<...>.Caption:=IntToStr(WeekOf(EncodeDate(2009,1,8)));` Последний раз редактировалось Stilet; 01.12.2009 в 16:54.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Узнать месяц по номеру недели	nowmax	Общие вопросы Delphi	3	06.10.2009 09:07
Копирование файлов по дням недели!!!	SUPERGREEN_SENSO	Компоненты Delphi	5	30.09.2009 16:51
Порядковый номер item-a.	blackstersl	Общие вопросы Delphi	1	05.06.2009 20:55
SQL: как присвоить записи её порядковый номер?	FReeMAN(Q)	Помощь студентам	10	18.04.2009 11:43

01.12.2009, 16:00	#3
skalt12 Пользователь Регистрация: 05.07.2009 Сообщений: 87	Нужно, чтобы программа каждую неделю обновляла индекс... допустим.. точка отсчета 15 число, соответственно, где-нибудь в TMemo или TLabel, пишется цифра "1", 22 числа, индекс меняется на 2 и так далее