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

Два DateTimePicker: надо посчитать кол-во полных месяцев.   Найти похожие ветки 

← →
Trad   (2003-12-22 20:51) [0]

Как между двумя DateTimePicker посчитать кол-во полных месяцев?

---

← →
panov ©   (2003-12-22 21:01) [1]

MonthsBetween

---

← →
Trad   (2003-12-22 21:36) [2]

мастера, в связи с моей слаборазвитостю в пограммировании, приводите пожалуйста примеры (коды), а то мне просто название процедуры почти ни о чём не говорит.... к сожалению.

---

← →
panov ©   (2003-12-22 21:47) [3]

для любой функции можно увидеть HElp, если ввести ее и нажать на строке с именем F1.

DiffMonth := MonthsBetween(DateTimePicker2.Date,DateTimePicker1.Date)

---

← →
Trad   (2003-12-22 21:51) [4]

спасибо.
я кстати в help посмотрел увидел
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
и мало что понял. :)
ещё раз спасибо.

---

← →
Trad   (2003-12-23 01:55) [5]

написал:
dm:= Form1.MonthsBetween(form1.DateTimePicker2.Date,form1.DateTimePicker1.Date);
пишет что:
[Error] Unit1.pas(489): Incompatible types: "TDateTimePicker" and "TDate"
[Error] Unit1.pas(489): Incompatible types: "TDateTimePicker" and "TDate"
[Error] Unit1.pas(182): Unsatisfied forward or external declaration: "TForm1.MonthsBetween"
что за хренЬ?

---

← →
Trad   (2003-12-23 03:37) [6]

Народ! Ну совсем не получается посчитать колчство месяце вмеджду двумя датами. я иак понимаю сначала надо внчале после объявления процедуор объявить функцию. затем вызвать её передав необходимые параметры выглядит у меня всё так
...
function MonthsBetween(const TDateTimePicker, Athen:TDateTimePicker): Integer;
....
dm:= MonthsBetween(DateTimePicker2.DateTime,DateTimePicker1.DateTime);

ошибка:
[Error] Unit1.pas(303): Incompatible types: "TDateTimePicker" and "TDateTime"
[Error] Unit1.pas(303): Incompatible types: "TDateTimePicker" and "TDateTime"
[Error] Unit1.pas(489): Operator not applicable to this operand type
[Error] Unit1.pas(182): Unsatisfied forward or external declaration: "TForm1.MonthsBetween"

В хелпе вот что написано:
function MonthsBetween(const ANow, AThen: TDateTime): Integer;
Description

Call MonthsBetween to obtain the difference, in months, between two TDateTime values. Because months are not all the same length, MonthsBetween returns an approximation based on an assumption of 30.4375 days per month. Fractional months are not counted. Thus, for example, MonthsBetween reports the difference between Feb 1 and Feb 28 as 0. (For that matter, it reports the difference between Feb 1 and Mar 1 as 0.)

---

← →
Юрий Зотов ©   (2003-12-23 03:38) [7]

MonthsBetween - это просто функция, а не метод формы.

dm := MonthsBetween(form1.DateTimePicker2.Date, form1.DateTimePicker1.Date);

И не забудьте добавить DateUtils в uses.

---

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

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



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