[DOR]

Есть форма через которую я заношу инфу в базу (Access) , на ней есть два DBDateEdit (записывают в базу «datamodule2.ADOTable_KlientDSDesigner7; datamodule2.ADOTable_KlientDSDesigner19;»). Подскажите пжл, как сравнить эти две даты и записать дату наибольшей в datamodule2.ADOTable_KlientDSDesigner20, в виде месяц год.

[ALexandr555]

может поможет DaysBetween(дата1,дата2); дает разницу дней как дата2-дата1=разница ну и стравниваешь там если разница > 0 значит больше та дата

[DOR]

Код:

function DaysBetween(Date1, Date2: TDateTime): Longint;

procedure TForm_Record.Button1Click(Sender: TObject);
var a:TDateTime;
begin
  a:=DaysBetween(form_record.DBDateEdit2,form_record.DBDateEdit3);
  form_record.Caption:=datetostr(a);
end;

function TForm_Record.DaysBetween(Date1, Date2: TDateTime): Longint;
begin
  DaysBetween:=Date1-Date2;
end;

Поправьте пжл.

[Aristarh Dark]

Не читай того что выше - там ошибка.
Что подразумеваешь под фразой "в виде месяц год"?

[lmikle]

Код:

if datamodule2.ADOTable_KlientDSDesigner7.AsDateTime > 
   datamodule2.ADOTable_KlientDSDesigner19.AsDateTime
Then
  datamodule2.ADOTable_KlientDSDesigner20.AsDateTime := datamodule2.ADOTable_KlientDSDesigner7.AsDatetime
Else 
  datamodule2.ADOTable_KlientDSDesigner20.AsDateTime := datamodule2.ADOTable_KlientDSDesigner19.AsDateTime;

Годится?

[Thrasher]

Думаю тебе помогут такие функции

CompareDate: Сравнивает два значения дат типа TDateTime, игнорируя время
CompareDateTime: Сравнивает два значения даты и времени типа TDateTime
DecodeDate: разбивает дату Date на год - Year, месяц - Month и день - Day

более детально в гугле про модуль DateUtils

[DOR]

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

Годится?

Вот такая ошибку выдает. Код повесил на кнопку. Кнопка сохраняет все что было забито на форме в базу.

[DOR]

Сообщение от Aristarh Dark

Не читай того что выше - там ошибка.
Что подразумеваешь под фразой "в виде месяц год"?

я имею ввиду что итоговая запись сравнения должна быть записана в виде "январь 2011" а не "15.01.2011"

[DOR]

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

Думаю тебе помогут такие функции

CompareDate: Сравнивает два значения дат типа TDateTime, игнорируя время
CompareDateTime: Сравнивает два значения даты и времени типа TDateTime
DecodeDate: разбивает дату Date на год - Year, месяц - Month и день - Day

более детально в гугле про модуль DateUtils

Мой опыт программирования одна неделя все что я знаю это только из учебников по делфи, поэтому и туплю над каждой строчкой. А проогу изготовить необходимо, дабы облегчить свои трудовые будни.