Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.12.2009, 15:51   #1
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию порядковый номер недели

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

Последний раз редактировалось skalt12; 01.12.2009 в 15:53.
skalt12 вне форума Ответить с цитированием
Старый 01.12.2009, 15:53   #2
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Цитата:
Такой вопрос возник
Считай количество дней и дели на 7
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 01.12.2009, 16:00   #3
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию

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

повторяю
Считай количество дней между текущей датой и точкой отсчета и дели на 7
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 01.12.2009, 16:11   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Че там считать?
Код:
 
uses  dateutils,
...
Caption:=IntToStr(WeeksBetween(EncodeDate(2009,1,1),now));
И делов то...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 01.12.2009, 16:37   #6
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию

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

Вот так получится:
Код:
<...>.Caption:=IntToStr(WeekOf(EncodeDate(2009,1,8)));

Последний раз редактировалось Stilet; 01.12.2009 в 16:54.
skalt12 вне форума Ответить с цитированием
Старый 01.12.2009, 16:45   #7
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
<...>.Caption:=IntToStr(WeekOf(Enco deDate(2009,1,8)));
Это у вас будет номер недели от начала года...
Вам же Виталий подсказал правильный способ.
mihali4 вне форума Ответить с цитированием
Старый 01.12.2009, 16:52   #8
skalt12
Пользователь
 
Регистрация: 05.07.2009
Сообщений: 87
По умолчанию

Цитата:
Сообщение от mihali4 Посмотреть сообщение
Это у вас будет номер недели от начала года...
Вам же Виталий подсказал правильный способ.
Ну так вместо начала года впишется нужная дата и все дела
skalt12 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Узнать месяц по номеру недели 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