Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Вниз
Колическтво дней в месяце. Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.07.09;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.033 c