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

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

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

PCBWay - всего $5 за 10 печатных плат, первый заказ для новых клиентов БЕСПЛАТЕН

Сборка печатных плат от $30 + БЕСПЛАТНАЯ доставка по всему миру + трафарет

Онлайн просмотровщик Gerber-файлов от PCBWay + Услуги 3D печати

Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей.

Подробнее>>

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

Новый аккумулятор EVE серии PLM для GSM-трекеров, работающих в жёстких условиях (до -40°С)

Компания EVE выпустила новый аккумулятор серии PLM, сочетающий в себе высокую безопасность, длительный срок службы, широкий температурный диапазон и высокую токоотдачу даже при отрицательной температуре. Эти аккумуляторы поддерживают заряд при температуре от -40/-20°С (сниженным значением тока), безопасны (не воспламеняются и не взрываются) при механическом повреждении (протыкание и сдавливание), устойчивы к вибрации. Они могут применяться как для автотранспорта (трекеры, маячки, сигнализация), так и для промышленных устройств мониторинга, IoT-устройств.

Подробнее>>

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

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

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

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

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

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

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

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

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

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

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

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

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