Дата и время

[rAMEO]

Что ни так???
Login Это форма авторизации

procedure TYS.FormClose(Sender: TObject; var Action: TCloseAction);
var
  Date1, Date2: TDateTime;
  tDiff: TDateTime;
  days: integer;
  sDiff: String;
begin  // 
      Login.DateTimePicker_Po.DateTime:=now;
      Date1:=StrToDateTime(Login.DateTimePicker_s.DateTime);
      Date2:=StrToDateTime(Login.DateTimePicker_Po.DateTime);
      if Date2>Date1 then
         tDiff := Date1 - Date2
           else
              tDiff := Date2 - Date1;
         days:=Trunc(tDiff);
         tDiff:= tDiff - days;
         sDiff:= '';
         if days > 0 then sDiff := IntToStr (days)+' День ';
         if tDiff > 0 then sDiff := sDiff + TimeToStr(tDiff);
     with DM_Registr_Jurnal.AQ_Reg_Jur do
        begin
          Active:=true;
          Insert;
          FieldByName('s').AsDateTime:=Login.DateTimePicker_s.DateTime;
          FieldByName('po').AsDateTime:=Login.DateTimePicker_Po.DateTime;
          FieldByName('Id_Sotrudnik').AsString:= Trim(YS.SB_Yrist.Panels[1].Text);
          FieldByName('Rol').AsString:= Trim(YS.SB_Yrist.Panels[2].Text);
          FieldByName('Result').AsDateTime:=(sDiff);
          Post;
        end;
  end

;

[Stilet]

Что ни так?

А с чего ты взял что тут что-то не так?

[Аватар]

А что не так? Подозреваю, что здесь:

 Date1:=StrToDateTime(Login.DateTimePicker_s.DateTime);
 Date2:=StrToDateTime(Login.DateTimePicker_Po.DateTime);

Для чего там StrToDateTime?

[WinCoder]

Мне интересно, как работает сравнение Date1>Date2. Это же не числа, чтоб их сравнивать напрямую.

[Аватар]

Это как раз вещественные числа типа Double

[rAMEO]

Date1:=StrToDateTime(Login.DateTime Picker_s.DateTime);
Date2:=StrToDateTime(Login.DateTime Picker_Po.DateTime);
в этих строках
выдает ошибку

[Stilet]

выдает ошибку

Что неужели до сих пор ничему не научился? )
Без обид, но ты держишь марку школоло.
Ладно. Толку не будет все равно, телепатирую: Login.DateTime Picker_s.DateTime у тебя не строка, поэтому компилятор говорит что в функцию StrToDateTime() это подставлять низзя.
Угадал?

[WinCoder]

Сообщение от Аватар

Это как раз вещественные числа типа Double

О как. Думал это какой нибудь Record. Сейчас глянул исходники, действительно Double. Буду знать.