Скачать: CL | DM;

Колическтво дней в месяце.   Найти похожие ветки 

← →
Gizza ©   (2006-06-19 19:05) [0]

Доброго времени....
У мну вопрос:
Есть программа (жалкое подобие :) в которой считается количество дней. Подробнее: в DateTimePicker выбераешь дату, нажимаешь Button и выводится сообщение сколько дней осталось до выбранной даты...
Если месяца совпадают (сегодняшний и выбранный в DateTimePicker) то все хорошо получается:


procedure TForm1.Button1Click(Sender: TObject);
var y,m,d,y1,m1,d1:word;
begin
DecodeDate(date,y,m,d);
DecodeDate(date1.Date,y1,m1,d1); // date1 - компонент DateTimePicker

lb1.Caption:="Вам осталось " + IntToStr (d1-d) + " дней."; // lb1 - компонент  Label (на Form1)
end;


Вот...
А, как Вы, наверно, уже догадались, если, например, сегодня 19.06.2006, а, допустим, выбранная дата 05.07.2007, то результатом будет число 5-19 = -14... А надо, чтобы было 35...

Заранее спасибо.

P.S.
Пожалуйста, не предлагайте устанавливать количество дней для каждого месяца, типа:
m1 := 30
m2 := 31
m3 := 30
... и тд.

Еще раз спасиба.

---

← →
Плохиш ©   (2006-06-19 19:15) [1]

А чем Date1-Date не подходит?
или DaysBetween?

---

← →
begin...end ©   (2006-06-19 19:16) [2]

> Gizza ©   (19.06.06 19:05) [0]

> У мну вопрос

У мну тоже. Когда-нибудь использование этого дурацкого сленга прекратится?

> Пожалуйста, не предлагайте устанавливать количество дней
> для каждого месяца

Не предлагаю. Предлагаю вычислить Trunc(date1.Date - date) -- это и будет количество полных дней между датами.

---

← →
SergP.   (2006-06-19 22:48) [3]

> Не предлагаю. Предлагаю вычислить Trunc(date1.Date - date)
> -- это и будет количество полных дней между датами.


если время (часы, минуты, и т.д.) роли не играют, то лучше  Trunc(date1)- Trunc(date), иначе можно 1 день потерять...

---

← →
Gizza ©   (2006-06-20 08:42) [4]

Извиняюсь за слэнг. Старая привычка....
Большое всем спасибо! Все работает!
Только непонятно чего такое "Trunc", но ладно, HELP-аки почитаю...

---

← →
evvcom ©   (2006-06-20 08:51) [5]

Почитай, почитай. Иногда полезно бывает...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c