алгоритм вычисления остатка дней

[vovik15]

ЗДРАВСТВУЙТЕ! вот возникла такая проблема: нужно вести отсчет дней до будующего календарного события
например сегодня 20,05,2011 нужно считать сколько дней осталось например до 30,10,2011
как это реализовать програмно? спасибо зха помощ

[BOB51]

???
береш конечный результат, вычитаеш текущий
ну и поправки на количество дней в месяцах

[vovik15]

ну в каждом месяце разное количество дней 30 или 31
как сделать поправку,если событие будет через 4 месяца
вообщем я делаю такой прибор:
указал сегоднюшнюю дату,указал нужную,а он покажет разницу в днях

[Danko]

http://www.arm.org.ua/Forums/showthread.php?tid=50

http://pascal.sources.ru/faq/subdate.htm

http://www.cyberforum.ru/cpp-beginners/ ... ost1026056

[vovik15]

Спасибо за ответы! но там все гораздо проще
еще вопросик
как переписать этот массив
const unsigned char mes [12] = {31,28,31,30,31,30,31,31,30,31,30,31};
на Delphi
спасибо

[Engineer_Keen]

const
mes: array[1..12] of byte = (31,28,31,30,31,30,31,31,30,31,30,31);

[vovik15]

спасибо!
скажите,а почему компилятор ругаеться на цикл

Код: Выделить всё

for a := Month downto a>=1 do begin
day_tek := day_tek + mes [a-1]
end; 

а именно на a>=1

[Engineer_Keen]

Паскаль (Дельфи) не принимает условия в цикле с for, нужно писать само конкретное значение переменной при котором цикл прекращается. Вот так:

Код: Выделить всё

for a := Month downto 1 do begin

[vovik15]

спасибо! все заработало
а вы не подскажете как можно сделать прозрачный фон для текста в дельфи? тоесть на фоне фотки текст,а под ним нет поля

[Engineer_Keen]

Ну тут разные варианты есть. Например просто рисовать текст методом Обьект.Canvas.TextOut(X,Y,Текст). Цвет определяется свойством Canvas.Pen.Color. А если текст выводится в Label-е, то там прямо свойство такое есть - Transparent.

[vovik15]

спасибо!
я вот в лайбел вывожу текст, одни цифры
Label1.Caption := IntToStr(day_ost);

а к ним никак нельзя добавить еще и текст?

[vovik15]

огромное спасибо за помощ!
вот,можете посмотреть что получилось
может будут какие то предложения по доработке?
http://sderni.ru/65442 сдесь я его выложил

[Engineer_Keen]

может будут какие то предложения по доработке?

Неплохо бы ужимать готовый экзешник архиватором. Я например пользуюсь UPX-ом.
Просто дельфи пихает в екзешник много лишнего, в итоге самое минимальное приложение занимает от 300кб.
Ну и настройки всякие можно добавить (скины, дополнительные будильники, напоминалки)

[starokurov]

огромное спасибо за помощ!
вот,можете посмотреть что получилось

Это же просто... грандиозно!

[Danko]

Это же просто... грандиозно!

Было бы еще грандиознее если бы кто объяснил причем тут "Микроконтроллеры и ПЛИС" ? ? ?

[vovik15]

потому что сдесь тусуються програмисты