Страница 1 из 1
алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 08:18:01
vovik15
ЗДРАВСТВУЙТЕ! вот возникла такая проблема: нужно вести отсчет дней до будующего календарного события
например сегодня 20,05,2011 нужно считать сколько дней осталось например до 30,10,2011
как это реализовать програмно? спасибо зха помощ
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 13:06:06
BOB51
???
береш конечный результат, вычитаеш текущий
ну и поправки на количество дней в месяцах
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 13:11:18
vovik15
ну в каждом месяце разное количество дней 30 или 31
как сделать поправку,если событие будет через 4 месяца
вообщем я делаю такой прибор:
указал сегоднюшнюю дату,указал нужную,а он покажет разницу в днях
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 13:24:10
Danko
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 14:39:24
vovik15
Спасибо за ответы! но там все гораздо проще
еще вопросик
как переписать этот массив
const unsigned char mes [12] = {31,28,31,30,31,30,31,31,30,31,30,31};
на Delphi
спасибо
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 14:56:30
Engineer_Keen
const
mes: array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 15:29:06
vovik15
спасибо!
скажите,а почему компилятор ругаеться на цикл
Код: Выделить всё
for a := Month downto a>=1 do begin
day_tek := day_tek + mes [a-1]
end;
а именно на a>=1
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 15:36:09
Engineer_Keen
Паскаль (Дельфи) не принимает условия в цикле с for, нужно писать само конкретное значение переменной при котором цикл прекращается. Вот так:
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 15:54:48
vovik15
спасибо! все заработало
а вы не подскажете как можно сделать прозрачный фон для текста в дельфи? тоесть на фоне фотки текст,а под ним нет поля
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 16:10:39
Engineer_Keen
Ну тут разные варианты есть. Например просто рисовать текст методом Обьект.Canvas.TextOut(X,Y,Текст). Цвет определяется свойством Canvas.Pen.Color. А если текст выводится в Label-е, то там прямо свойство такое есть - Transparent.
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 16:17:10
vovik15
спасибо!
я вот в лайбел вывожу текст, одни цифры
Label1.Caption := IntToStr(day_ost);
а к ним никак нельзя добавить еще и текст?
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 16:31:54
vovik15
огромное спасибо за помощ!
вот,можете посмотреть что получилось
может будут какие то предложения по доработке?
http://sderni.ru/65442 сдесь я его выложил
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 20, 2011 16:48:57
Engineer_Keen
vovik15 писал(а):может будут какие то предложения по доработке?
Неплохо бы ужимать готовый экзешник архиватором. Я например пользуюсь
UPX-ом.
Просто дельфи пихает в екзешник много лишнего, в итоге самое минимальное приложение занимает от 300кб.
Ну и настройки всякие можно добавить (скины, дополнительные будильники, напоминалки)
Re: алгоритм вычисления остатка дней
Добавлено: Пт май 27, 2011 15:20:44
starokurov
vovik15 писал(а):огромное спасибо за помощ!
вот,можете посмотреть что получилось
Это же просто... грандиозно!
Re: алгоритм вычисления остатка дней
Добавлено: Сб май 28, 2011 19:37:25
Danko
starokurov писал(а):Это же просто... грандиозно!
Было бы еще грандиознее если бы кто объяснил причем тут "Микроконтроллеры и ПЛИС" ? ? ?
Re: алгоритм вычисления остатка дней
Добавлено: Сб май 28, 2011 20:44:09
vovik15
потому что сдесь тусуються програмисты
