Привет разработчики тут ошибку нашел у себя, давай разбираться и теперь требуется сделать просто время без даты.
Для получения полной даты делаю так
function __Date_Encode(Year: Word = 0; Month: Word = 0; Day: Word = 0;
Hour: Word = 0; Min: Word = 0; Sec: Word = 0): PISC_QUAD;
var
 tm_date: tm;
begin
 with tm_date do begin
   tm_year := Year-1900;
   tm_mon := Month-1;
   tm_mday := Day;
   tm_sec := Sec;
   tm_min := Min;
   tm_hour := Hour;
   tm_isdst := 0;
 end;
 Result := ib_util_malloc(SizeOf(TISC_QUAD));
 __isc_encode_date(@tm_date, Result);
end;

А как вернуть только время без даты структура как я понимаю таже?
но
   tm_year := 0;
   tm_mon := 0;
   tm_mday := 0;
не помогает :(

Хочется универсальную функцию написать или это невозможно когда тип данных TIMESTAMP

Да еще Delphi не ругается когда день или месяц при
EncodeDateTime(Year, Month, Day, Hour, Min, Sec, MSec);
равны 0, а год > 0
это я считаю ошибкой т.к. лая нет, а потом роешся в поисках где че рассыпалось

туже ситуацию наблюдаю при
   tm_mday := 0;
лая нет а дата на взгляд ФБ это явно косяк или как это расценивать?

Ответить