Скачать: CL | DM;

Str2DateTimeFmt   Найти похожие ветки 

← →
z00100   (2002-09-20 01:18) [0]

Здравствуйте. Пытался тут с временем поработать. В результате выполнения следующего кода
s :string;
d :double;
...
s:="18:04:44";
d:=Str2DateTimeFmt("HH:mm:ss",s);

в d остается 0 [ноль]. Что я неправильно делаю?

---

← →
Gandalf   (2002-09-20 09:00) [1]

У тебя ведь только время, а ты хочешь преобразовать в Дату_и_Время. КОЛ смотрит:
function SystemTime2DateTime(const SystemTime : TSystemTime; var DateTime : TDateTime ) : Boolean;
var I : Integer;
Day : Integer;
DayTable: PDayTable;
begin
Result := False;
DateTime := 0.0;
DayTable := @MonthDays[IsLeapYear(SystemTime.wYear)];
with SystemTime do
if (wYear >= 1) and // <--- Все, дата неверна выдает "нуль"

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.011 c