[yarockiisergei]

Есть выражение uint64_t result = *(uint64_t*)(&ts);
Как оно будет выглядеть в Delphi???
Вот вся функция

struct TTimeStamp
{
int Time; // The Time field indicates the number of milliseconds that have elapsed since midnight.
int Date; // The Date field indicates the number of calendar days since the start of the calendar (the number of days since 1/1/0001 plus one).
};

uint64_t __fastcall DateTimeToInt64( TDateTime Value )
{
TTimeStamp ts = DateTimeToTimeStamp( Value );
uint64_t result = *(uint64_t*)(&ts);
return result;
}

[lmikle]

Ну, наверное, можно попробовать так:

Код:

type
  TTimeStamp = packed record
    Time Integer;
    Date Integer;
  end;

function DateTimeToInt64(Value : TDateTime) : Cardinal; // 64-bit unsigned int
var
  ts : TTimeStamp;
begin
  ts.Date := DaysBetween(EncodeDate(1,1,1),DateOf(Value))+1;
  ts.Tme := MilliSecondOf(TimeOf(Value));
  Result := Cardinal(ts);
end;

[yarockiisergei]

Чуть поправил и все ровно не работает как нужно

Код:

function DateTimeToInt64(Value : TDateTime) : Cardinal; // 64-bit unsigned int
var
  ts : TTimeStamp;
begin
  ts.Date := DaysBetween(EncodeDate(1,1,1),DateOf(Value))+1;
  ts.Time := MilliSecondOf(TimeOf(Value));
  Result := Cardinal(ts.Date +ts.Time);
end;

А обратно как?
Есть также функция на с++

Код:

//------------------------------------------------------------------------------
// Из uint64_t в TDateTime
//------------------------------------------------------------------------------
TDateTime __fastcall Int64ToDateTime( uint64_t Value )
{
  TTimeStamp ts;
  *((uint64_t*)(&ts)) = Value;
  return TimeStampToDateTime( ts );
}

[yarockiisergei]

Интересует конкретно вот эта операция

Код:

*((uint64_t*)(&ts)) = Value;

Есть вот такая структура 

type TDateTime = type Double;

type TTimeStamp = record
   Time: Integer;     // Число миллисекунд прошедших с полуночи
   Date: Integer;     // Количество дней прошедших с 1 января 0001г
   end;

function Convert_my() : TDateTime
var
ts: TTimeStamp;
begin
ts:= //Как сюда положить вот это число 3160610655694693 -?
//Возможно только dt.Time dt.Date
//В с++ все вроде как просто *((uint64_t*)(&ts)) = Value; и далее TimeStampToDateTime( ts );
Convert_my:= TimeStampToDateTime( ts);
end;

[Alegun]

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

... ts:= //Как сюда положить вот это число 3160610655694693 -?..

Похоже никак, поскольку макс значение для integer = 2147483647, или может можно, но только если у переменных записи Time и Date тип поменять на Int64, где макс = 9223372036854775807

[yarockiisergei]

Я узнал что можно вложить через указатель на структуру...
Вопрос как реализовать????

[lmikle]

Код:

var
  ts : ^Cardinal;
begin
  New(ts);
  ts^ := 3160610655694693;

Это?

[yarockiisergei]

Да.... спасибо все заработало.