Как перевести integer в Date

[demiancz]

Как перевести integer в Date?
Есть такой код

var
i,l:integer;
A : boolean;
begin
A := False;
for i:= 0 to StringGrid1.RowCount - 1 do
for l:=0 to StringGrid1.ColCount - 1 do
begin
if StrToDate(StringGrid1.Cells[4, i]) <= StrToDate(StringGrid1.Cells[7, i]) and
StrToDate(StringGrid1.Cells[5, i]) <= StrToDate(StringGrid1.Cells[8, i]) then
A := True;
if StrToDate(StringGrid1.Cells[4, i]) <= StrToDate(StringGrid1.Cells[7, i]) and
StrToDate(StringGrid1.Cells[5, i]) >= StrToDate(StringGrid1.Cells[8, i]) then
A := True;
if StrToDate(StringGrid1.Cells[4, i]) > StrToDate(StringGrid1.Cells[7, i]) and
StrToDate(StringGrid1.Cells[5, i]) < StrToDate(StringGrid1.Cells[8, i]) then
A := True;
if A = True then
begin
Form3.StringGrid1.Cells[l,i]:=Form2.StringGrid1.Cells[l,i];
Form3.StringGrid1.RowCount:=i;
end;
A := False;
end;
Form3.ShowModal;
end;

Естественно он не работает. Так как переменная i объявлена как integer. Вот мне и нужно использовать не StrToDate , а что то другое. Что?

[BOBAH13]

1. Причем тут i: Integer к Date или StrToDate?
2. Вы используете StrToDate верно как я гляну. Если выдает ошибку, то видимо ошибку форматирования, а то что у вас там в сетке мы врятли можем видеть.

В итоге, читайте внимательно как верно форматировать текст чтобы он воспринимался функцией StrToDate, и согласно формату заполняйте ячейки в вашем StringGrid1

[Аватар]

см. EncodeDate

[Yurk@]

как вариант:
http://programmersforum.ru/showpost....20&postcount=6

[ArtGrek]

if StrToDate(StringGrid1.Cells[4, i]) <= StrToDate(StringGrid1.Cells[7, i]) and
StrToDate(StringGrid1.Cells[5, i]) <= StrToDate(StringGrid1.Cells[8, i]) then
A := True;
if StrToDate(StringGrid1.Cells[4, i]) <= StrToDate(StringGrid1.Cells[7, i]) and
StrToDate(StringGrid1.Cells[5, i]) >= StrToDate(StringGrid1.Cells[8, i]) then
A := True;
if StrToDate(StringGrid1.Cells[4, i]) > StrToDate(StringGrid1.Cells[7, i]) and
StrToDate(StringGrid1.Cells[5, i]) < StrToDate(StringGrid1.Cells[8, i]) then
A := True;

а зачем повторять оно и тоже 3 раза?

[GunSmoker]

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

а зачем повторять оно и тоже 3 раза?

Для надёжности. Второй и третий - контрольный. А то вдруг ЧО

P.S.
Для особой НАДЁЖНОСТИ лучше ещё так писать:

if StrToDate(StringGrid1.Cells[4, i]) <= StrToDate(StringGrid1.Cells[7, i]) then
 A := True
else
if StrToDate(StringGrid1.Cells[4, i]) > StrToDate(StringGrid1.Cells[7, i]) then
 A := False
else
 A := True and False;

А то ВДРУГ ЧО!

[ArtGrek]

A := True and False;

хорош

procedure TForm1.FormCreate(Sender: TObject);
var
  a, b:  TDate;
begin
  a := StrToDate('01.01.2001');
  b := StrToDate('02.02.2002');
  if a > b then ShowMessage(DateToStr(a));
  if a < b then ShowMessage(DateToStr(b));
end;

вот тебе пример сравнения даты

[demiancz]

Если кому не трудно - гляньте прикрепление.
Суть того что я хочу сделать:
Есть два списка. В первом люди работающие на одной организации, во втором - работающие на других (разных организациях).
Нужно:
1. Выбрать людей которые есть и в первом и втором списке
2. Сравнить период работы в одной организации и в другой. Если человек одновременно работал в двух организациях - вывести в отдельную таблицу.

Не получается у меня сравнить по дате! пишет
[Error] Unit2.pas(41): Operator not applicable to this operand type
[Error] Unit2.pas(41): Incompatible types
[Error] Unit2.pas(44): Operator not applicable to this operand type
[Error] Unit2.pas(44): Incompatible types
[Error] Unit2.pas(47): Operator not applicable to this operand type
[Error] Unit2.pas(47): Incompatible types

41 строка - это

StrToDate(StringGrid1.Cells[5, i]) <= StrToDate(StringGrid1.Cells[8, i]) then

44 строка -

StrToDate(StringGrid1.Cells[5, i]) >= StrToDate(StringGrid1.Cells[8, i]) then

47 -

StrToDate(StringGrid1.Cells[5, i]) < StrToDate(StringGrid1.Cells[8, i]) then

[demiancz]

Блин. Плдохо быть тормозом. Только написал сообщение и сразу сам увидел ошибку. Со скобками вся фишка!

Но теперь выдает ошибку "is not a valid date.

[ArtGrek]

кому не лень, проверьте подходит ли условие выделеное красным, для проверки пересечения диапозонов дат
d1<->d2 d3<->d4

procedure TForm2.Button1Click(Sender: TObject);
var
  i,l:integer;
  A : boolean;
  d1,d2,d3,d4: TDate;
  ro: integer;
begin
  A := False;
  ro := 0;
  for i:= 1 to StringGrid1.RowCount - 1 do
  begin
    if ((StringGrid1.Cells[4,i] <> '') or (StringGrid1.Cells[5,i] <> '')) and 
      ((StringGrid1.Cells[7,i] <> '') or (StringGrid1.Cells[8,i] <> '')) then
    begin
      if StringGrid1.Cells[4,i] <> '' then d1 := StrToDate(StringGrid1.Cells[4,i])
        else d1 := StrToDate(StringGrid1.Cells[5,i]);
      if StringGrid1.Cells[5,i] <> '' then d2 := StrToDate(StringGrid1.Cells[5,i])
        else d2 := StrToDate(StringGrid1.Cells[4,i]);
      if StringGrid1.Cells[7,i] <> '' then d3 := StrToDate(StringGrid1.Cells[7,i])
        else d3 := StrToDate(StringGrid1.Cells[8,i]);
      if StringGrid1.Cells[8,i] <> '' then d4 := StrToDate(StringGrid1.Cells[8,i])
        else d4 := StrToDate(StringGrid1.Cells[7,i]);
      if ( (d1 <= d3) and (d3 <= d2) ) or ((d1 <= d4) and (d4 <= d2)) or
        ( (d3 <= d1) and (d1 <= d4) ) or ((d3 <= d2) and (d2 <= d4)) then A := True;
    end;
    if A = True then
    begin
      inc(ro);
      Form3.StringGrid1.RowCount := ro;
      for l := 0 to 5 do
        Form3.StringGrid1.Cells[l,ro - 1]:=Form2.StringGrid1.Cells[l,i];
    end;
    A := False;
  end;
  Form3.ShowModal;
end;