Дата

[Bigtyoma]

Сообщение от BOBAH13

DecodeTime вроде, получаите все миллисекунды и сравниваите что все по нулям и только секунда = 1 все... .

А можно поподробнее???

[SERG1980]

if formatdatetime('hh:nn',now) = '00:00' then...

[Bigtyoma]

не, чё то всё равно не то, сейчас осталось 34 дня, а после 0:00 становистя 68 дней

[SERG1980]

Вот пример всё работает

[Bigtyoma]

спасибо, я понял где у меня была ошибка

вместо вот этого

(Now,form2.DateTimePicker1.Date)

писал

(Now,DateTimePicker1.Date)

[Bigtyoma]

Появился ещё один вопрос,я сделал чтобы цвета можно было менять,но как сделать так, чтобы они сохранялись?
я так понимаю что через ини (так, как событие и дату) но я в этом не ничего не понимаю

[SERG1980]

В ини цвет записывается как Integer

[Bigtyoma]

и ещё один вопрос:
1. как мне сделать чтобы она показывала не 1 дней, а 1 день, не 2 дня то 2 дня и т.д.

[Serge_Bliznykov]

лень качать Ваш проект, поэтому напишу просто пример кода:

  k := 221; {в K количество дней}
  {обработка исключении 11 12 13}
  if ((k mod 100)>=11) and ((k mod 100)<=13) then
      sEnding := ' дней'
  else
    case (k mod 10) of
     1: sEnding := ' день';
     2..4: sEnding := ' дня';
    else
     sEnding := ' дней';
    end;

  WriteLn('До дембеля осталось ',k:1,sEnding);