| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Что неверно в UDF?

Страницы:   < 1 2 >

Андрей Жук ©   (2005-07-26 16:14:00) 

library UnixToWinDate;

uses DateUtils, consts, ibutil,SysUtils;

procedure UnixDateToWinDate(var Ret: TIBTimeStamp;UnixDate: double);cdecl;export;
var
vDate: TDateTime;
YEAR,MONTH,DAY,HOUR,MINUTE,SECOND,MSEC: WORD;
begin
vDate := DateUtils.UnixToDateTime(Round(UnixDate));
DecodeDate(vDate,YEAR,MONTH,DAY);
DecodeTime(vDate,HOUR,MINUTE,SECOND,MSEC);
Ret.Date := IBEncodeDate(YEAR,MONTH,DAY);
Ret.Time := IBEncodeTime(HOUR,MINUTE,SECOND);
end;

exports UnixDateToWinDate;

end.

результат - всегда 01.01.1970

---

Lexer   (2005-07-26 16:29:00) [21]

>> Андрей Жук, а почему выбрана реализация процедурой, имхо здесь нужна фунция.
function UnixDateToWinDate(var Ret: TIBTimeStamp; UnixDate: double): PIBDateTime; cdecl; export;

---

Страницы:   < 1 2 >

Наверх