сравнение текущего года и месяца с годом и месяцем поступления, а после сравнения записать номер курса

[Таня84]

я никак не могу придумать одну вещь.
Мне нужноо сделать сравнение текущего года и месяца с годом и месяцем поступления, а после сравнения записать номер курса на котором учится студент.
Например, студент поступил в этом году, значит он учится на 1 курсе, на следующий год курс автоматически переводится на 2 и т.д. до 4 или 5.
Разбиение текущей даты я сделала, осалось сравнить.
Пробовала так:
procedure TForm2.DBEdit18Change(Sender: TObject);
begin
if DBCombobox6.Text>=Label25.Caption then DBEdit18.Text:='1';
end;
не получается!!!!

[konkurent]

попробуй так ...
в году 365 дней
берём текущую дату минусуем дату поступления получаем разницу в днях, если разница<=365 то это 1 курс
если разница>=365 но меньше 365*2 то 2 и так далее
можно сделать для годов и месяцев эффект тотже но точнее так как учитываються высокосные года

[pu4koff]

что мешяет так же разбить дату из базы и сравнить отдельно год, месяц?

[Alex21]

>> if DBCombobox6.Text>=Label25.Caption then DBEdit18.Text:='1';

Что именно храниться в этих записях? Быть может так:

if StrToDate(DBCombobox6.Text)>=StrToDate(Label25.Caption) then DBEdit18.Text:='1';

функция извлекает день, месяц и год:

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

[pu4koff]

StrToDate(DBCombobox6.Text) - никогда так не пишите. Лучше уж DataSet.FieldbyName('field1').AsDat eTime, ну соответственно подставляем нужный датасет и имя поля. Ну в обоих случаях свои особенности с Null значениями, если такие могут быть конечно

[Pitbull]

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

StrToDate(DBCombobox6.Text) - никогда так не пишите. Лучше уж DataSet.FieldbyName('field1').AsDat eTime, ну соответственно подставляем нужный датасет и имя поля. Ну в обоих случаях свои особенности с Null значениями, если такие могут быть конечно

А почему нельзя писать STRtoData?