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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.09.2007, 18:08   #1
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию Как узнать какой сегодня день недели?

Всем Здрасьте, Уважаемые форумчане!!!
Мне необходимо сделать так, чтоб прога показывала какой сегодня день недели!!!
А еще лучше чтобы прога узнавала какое число будет, допустим, в следующую среду, а потом в эту дату выводила какое-нибудь сообщение!!!!

Помогите ПЛИZZZZ!!!
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума Ответить с цитированием
Старый 04.09.2007, 18:26   #2
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

есть такая функция DayOfWeek

2.Ставь таймер и проверяй каждую минуту
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Старый 04.09.2007, 18:29   #3
Сильванович Михаил
Студент
Форумчанин
 
Регистрация: 10.11.2006
Сообщений: 196
По умолчанию

DayOfWeek(NOW) - возвращает текущий день недели
Visita Interiorem Terrae Rectificando Operae Lapidem...
Сильванович Михаил вне форума Ответить с цитированием
Старый 04.09.2007, 19:04   #4
vitalik007
Дельфист
Форумчанин
 
Аватар для vitalik007
 
Регистрация: 14.08.2007
Сообщений: 317
По умолчанию

dayofWeek(now)
возрвратит цифру 0-воскресенье 6-суббота
ICQ-465033557
WINDOWS CE THE BEST
vitalik007 вне форума Ответить с цитированием
Старый 04.09.2007, 19:18   #5
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

А как узнать, какое число будет, допустим, в вследующую среду?
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума Ответить с цитированием
Старый 04.09.2007, 21:47   #6
necky
Пользователь
 
Аватар для necky
 
Регистрация: 11.08.2007
Сообщений: 69
По умолчанию

Рустам, а где ты собираешся это использовать, вернее, какая у тебя задача?
Советовать можно лишь в деле, в котором сам собираешься участвовать.
necky вне форума Ответить с цитированием
Старый 04.09.2007, 23:25   #7
mutabor
Телепат с дипломом
Старожил
 
Аватар для mutabor
 
Регистрация: 10.06.2007
Сообщений: 4,929
По умолчанию

Узнаешь какой сегодня день, сегодня вторник, индекс 2.
Сначала умножаешь 7 * удаленность недели. Нужна следующая, значит 7*1, нужна среда, индекс среды 3, находишь разницу нужного дня с сегодняшним 3-2=1. Прибавляешь полученый результат 7*1+1. Итого 7*1+1=8, прибавляем результат к сегодняшнему числу 4+8=12. Следующая среда будет 12 число.

в случае перехода в другой месяц
n: byte; //результат вычислений
m: byte; //кол-во дней в тек. месяце
if n > m then n:=n-m;
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог

Последний раз редактировалось mutabor; 04.09.2007 в 23:32.
mutabor вне форума Ответить с цитированием
Старый 05.09.2007, 10:15   #8
pu4koff
Старожил
 
Аватар для pu4koff
 
Регистрация: 22.05.2007
Сообщений: 9,070
По умолчанию

Цитата:
Сообщение от Рустам Посмотреть сообщение
А как узнать, какое число будет, допустим, в вследующую среду?
что-то в этом роде:
Код:
var
  d: TDate;
begin
  d := Date;
  d := d - DayOfWeek(d) + 7 + 4;
pu4koff вне форума Ответить с цитированием
Старый 05.09.2007, 16:59   #9
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

necky, мне нужно каждую среду, и через среду менять значение в (к примеру в реестре) в момент наступления следующей среды и. т.д...
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума Ответить с цитированием
Старый 05.09.2007, 17:04   #10
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

mutabor, pu4koff - направление понял, ЗА ШО ОГРОМНОЕ СПАСИБА ()
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Маленький сайт с БД. Работы на 2 недели. Хорошая оплата. SergAKM Фриланс 1 02.07.2008 09:36
Как узнать с какого по какой адрес занимает процесс в системе. kalexi Win Api 2 30.03.2008 15:48
Найти какой день недели ? Cantana Помощь студентам 6 31.10.2007 15:29
Уровень значимости Assembler'а сегодня [Kaiser] Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 15 07.09.2007 09:05