Проверка даты

[Михаил Юрьевич]

Подскажите,нужно при нажатии на кнопку проверять введенную дату и сравнивать с настоящей,если меньше,то ошибка.
Но тут не все так просто,у меня на форме три Spinedit, в первый ввожу
год,во второй месяц и в третий число.Далее нужно проверить с сегоднешним.Делаю так: трем переменным присваиваю sSpinEdit4.Value,
далее перевожу в строку, делаю еще одну переменную и ей присваиваю
вот такой формат: 24.01.2010
А вот как по условию проверить все это?

Еще хотел сделать через DecodeDate , но так можно проверить только год,
если он меньше чем сегодня,то ошибка. А как проверять месяц и число?

Извеняюсь за неполную информацию(уже крыша едет) , дело в том что набирать нужно обязательно во всех трех Spinedit,
но набирать можно не только сегоднешнюю дату а и каторая будет через месяц , например 07.02.2010 .
Вот в чем вопрос,как определить что дата 07.02.2010 ,больше чем 24.01.2010
Если сравнивать только месяца: 02 больше чем 01 , то как быть с годом,
вообщем ни как условие проверки не придумаю

[Скандербег]

Перевести строку в дату (StrToDate(str)) и просто сравнить:
if DT < Date then <ошибка>
Тип TDateTime во внутреннем представлении просто число (чем больше число, тем более поздняя дата), а числа использовать в условиях сравнения не возбраняется.

[Шульц]

НУ сравнить равность сегодняшней и введенной не тяжело

Var
d:string;
begin
d:=SpinEdit1.Text{День}+'.'+SpinEdit2.Text{месяц}+'.'+SpinEdit3.Text{год}
if d=DatetoSTR(Now) then
 //Нужный код
end;

А вот на счет сравнения, я бы сделал последовательное сравнение, что то вроде этого:

if God.Value=>God1.Value then
 begin
  if God.Value>God1.Value then
   begin
    // первая дата больше
    exit;
   end
  else
   begin
    if Mesac.Value=>Mesac.Value then
     begin
      if Mesac.Value>Mesac.Value then
       begin
        // первая дата больше
        exit;
       end
      else
       begin
        If den.Value=>Den1.Value
         begin
          if den.Value>Den1.Value then
           begin
            // первая дата больше
            exit;
           end
          else
           begin
            //даты равны
            Exit;
           end;
        end
       else
        begin
         //вторая дата больше  из-за дня
         Exit;
        end
       end
     end
    else
     begin
      //вторая дата больше из-за месяца
      Exit;
     end;
   end
 end
else
 begin
  //вторая дата больше из-за года
 end

Ну как то так, мож где напутал

[Шульц]

А еще можно так сравнить слить дату, то есть сделать ее без точек, как то так (ситация со спин эдитами):

d1:=strtoint(Inttostr(God1.Value)+Inttostr(Mesac1.Value)+Inttostr(Den1.Value));
d2:=strtoint(Inttostr(God2.Value)+Inttostr(Mesac2.Value)+Inttostr(Den2.Value));
if d1>d2 then
 //первая дата больше
else
 //вторая больше

Не сразу допер

[Михаил Юрьевич]

Сообщение от Шульц

А еще можно так сравнить слить дату, то есть сделать ее без точек, как то так (ситация со спин эдитами):

d1:=strtoint(Inttostr(God1.Value)+Inttostr(Mesac1.Value)+Inttostr(Den1.Value));
d2:=strtoint(Inttostr(God2.Value)+Inttostr(Mesac2.Value)+Inttostr(Den2.Value));
if d1>d2 then
 //первая дата больше
else
 //вторая больше

Не сразу допер

А как сравнить если получится вот такая дата: сегодня 24.01.2010
а ввели : 31.06.2009 Где больше,где меньше 31062009 и 24012010

[Шульц]

Во первых куда ввели? Продолждаю по спинам.

var
d1,d2:integer;
begin
d1:=strtoint(Inttostr(God1.Value)+Inttostr(Mesac1.Value)+Inttostr(Den1.Value));//это дата введенная в спины
d2:=strtoint(FormatDateTime('yyyy',Now)+FormatDateTime('mm',Now)+FormatDateTime('dd',Now));
if d1>d2 then
 //первая дата больше
else
 //вторая больше
end;

Вот мы и получим сравнения двух чисел 20090631 (введенная дата) и 20100124 (сегодняшняя дата)

[Михаил Юрьевич]

Извеняюсь,сразу не заметил что Вы воспользовались FormatDateTime и перевернули дату ,спасибо!
+

[Serge_Bliznykov]

А вообще правильный ответ дан в пост #2 Скандербег


Шульц, ага. так тоже можно.
но зачем эти фокусы, когда даты банально можно сравнивать?!

[Скандербег]

Для большей ясности (может Михаил Юрьевич не обратил внимания):

procedure TForm1.Button1Click(Sender: TObject);
var D : TDateTime;
begin
  D := EncodeDate(SpinEdit3.Value, SpinEdit2.Value, SpinEdit1.Value); //год, месяц, день
  if D < Date then 
    Label1.Caption := '<' 
  else 
    Label1.Caption := '>=';
end;

[Шульц]

Я просто предложил альтернативу А так, конечно Скандербег дал правильный ответ