DateTimePicker1 -как получит дата и время одно времено ?

[АНЯ_17]

Здравствуйте, как можно получит результат Продолжительность

DateTimePicker1.Format:='dd.MM.yyyy HH:mm:ss'; 
DateTimePicker1-DateTimePicker2 =DateTimePicker3

???
Времени ???

PHP код:

Код                                  Начало                   Конец             Продолжительность
Стасюк Елена Павловна                25.02.14 7:20:00    25.02.14 8:50:00    1:30:00
Кучерявенко Марина Сергеевна        20.02.14 12:00:00    20.02.14 13:00:00    1:00:00 


[Аватар]

HoursBetween, MinutesBetween, SecondsBetween в DateUtils

[АНЯ_17]

А можно примерчик ?

var
Date1 : TDateTime; // от
Date2 : TDateTime; // до ...
days: longint;
begin
Date1 := DateTimePicker1.DateTime;
Date2 := DateTimePicker2.DateTime;
days:=Trunc(Date2-date1);
showmessage(inttostr(days)+' days');

оно работает тока дни а мне необходимо Продолжительность найти
за.ран спс.

[Аватар]

1. Берешь SecondsBetween и получаешь разницу в секундах
2. Делишь на 3600 - получаешь часы
3. Остаток делишь на 60 - получаешь минуты
4. Остаток - секунды
5. Формируешь из этого символьную строку

[Serge_Bliznykov]

просто в порядке эксперимента.

Может быть, Вам этот код поможет:

var date1, date2 : TDateTime;
  tDiff : TDateTime;
  days : integer;
  sDiff : string;
begin
  date1 := StrToDateTime('1.09.2014 9:12:05');
  date2 := StrToDateTime('17.09.2014 8:15:25');
  if date2>date1 then
     tDiff := date2 - date1
  else
     tDiff := date1 - date2;

  days:=Trunc(tDiff);
  tDiff := tDiff - days;

  sDiff := '';
  if days > 0 then sDiff := inttostr(days)+' days ';
  if tDiff > 0 then sDiff := sDiff + TimeToStr(tDiff);
  ShowMessage(sDiff);

end;

[Аватар]

Там же вроде в формате hh:nn:ss нужно?

Если разница меньше суток можно просто

Label.Caption:=FormatDateTime('hh:nn:ss',DateTimePicker2.DateTime-DateTimePicker1.DateTime);

Если больше, то

Delta:=SecondsBetween(DateTimePicker1.DateTime,DateTimePicker2.DateTime);
Label.Caption:=Format('%s:%s:%s',[FormatFloat('#00',Delta div 3600),FormatFloat('00',(Delta mod 3600) div 60),FormatFloat('00',Delta mod 60)]);

[АНЯ_17]

вам, пасибо,
Еще одна вапросик как сделат что при вводе в Edit.Text только русский, буквы набраслься все ?? а не английский

за ран. спс.