Hi,

Is there an easy way to convert DateTime in EWB to Delphi TDateTime and back again?

Thanks.

// Thom

Routines I use.....

function UNIXTimeToDateTimeFAST(UnixTime: Int64): TDateTime;
const
 MsecPerDay : int64 = 86400000;
 DayDiff    : int64 = 25569;
var  
 DT         : TDateTime;
begin                  
 DT := (UnixTime / MsecPerDay) + DayDiff;       
 result := DT;              // swap  
//  result := UTCToLocal(DT);    // 1.02 Comment Out WBM
end;      

function DateTimeToUNIXTimeFAST(DelphiTime : TDateTime): Int64;
const
 MsecPerDay : int64 = 86400000;
 DayDiff    : int64 = 25569;
var  
 DT         : TDateTime;
 X          : extended;
begin                                        
//  DT := LocalToUTC(DelphiTime);  // 1.02 Comment Out WBM
 DT := DelphiTime;            // swap

 x := (DT - DayDiff) * MsecPerDay;
 result := round(X);
end;

function UNIXTimeToTimeFAST(UnixTime: Int64): TDateTime;
const
 MsecPerDay : int64 = 86400000;
 DayDiff    : int64 = 25569;
var  
 DT         : TDateTime;
begin                  
 DT := (UnixTime / MsecPerDay);       
 result := DT;              // swap  
//  result := UTCToLocal(DT);    // 1.02 Comment Out WBM
end;      

function TimeToUNIXTimeFAST(DelphiTime : TDateTime): Int64;
const
 MsecPerDay : int64 = 86400000;
 DayDiff    : int64 = 25569;
var  
 DT         : TDateTime;
 X          : extended;
begin                                        
//  DT := LocalToUTC(DelphiTime);  // 1.02 Comment Out WBM
 DT := DelphiTime;            // swap

 x := (DT - Trunc(DT)) * MsecPerDay;
 result := round(X);
end;

Thanks, Walter.

There is something funky going on though.

I have a little class which contains a DateTime property.
I set this property to today's date using User.DateOfBirth = Date.

I use TWriter to write a JSON string of this class and User.DateOfBirth gets converted to 1468879200000.

If I pass this value to your UNIXTimeToDateTime I get the date 2016.07.18 which was yesterday.

// Thom

That's weird.

When I code it in Delphi:

LDate := Date;

LDateInt := DateTimeToUNIXTime(LDate);
returns 1468886400000 compared to 1468879200000 in EWB.

And LDate := UNIXTimeToDateTime(LDateInt)
does return the correct date (2016.07.19)

So EWB seems to subtract one day when writing to a DateTime to JSON.

// Thom

Thom,

<< So EWB seems to subtract one day when writing to a DateTime to JSON. >>

Where is the date originating from ?  You have to remember to localize DateTime values, if so desired.

Tim Young
Elevate Software
www.elevatesoft.com

Thom,

Never mind, I see that you're using the Date() function.

The part about localization is still correct, however.

Also, if you're using the EWB Web Server with a web server module, you can use these methods:

http://www.elevatesoft.com/manual?action=viewmethod&id=ewb2mod&product=rsdelphi&version=XE&comp=TEWBServerRequest&method=DateTimeToMSecs

http://www.elevatesoft.com/manual?action=viewmethod&id=ewb2mod&product=rsdelphi&version=XE&comp=TEWBServerRequest&method=MSecsToDateTime

http://www.elevatesoft.com/manual?action=viewmethod&id=ewb2mod&product=rsdelphi&version=XE&comp=TEWBServerRequest&method=GMTDateTimeToLocal

http://www.elevatesoft.com/manual?action=viewmethod&id=ewb2mod&product=rsdelphi&version=XE&comp=TEWBServerRequest&method=LocalDateTimeToGMT

Tim Young
Elevate Software
www.elevatesoft.com

Hi Tim,

What do you mean "localize DateTime values" ?

// Thom

And I am using RemObjects and not the EWB Web Server.

// Thom

And since I using TWriter to convert Date() to JSON, the problem seems to be here:

procedure TWriter.DateTimeValue(Value: DateTime);
begin
  case FDateTimeFormat of
     dtfISO8601:
        Append(QuotedStr(DateTimeToISOStr(Value),DOUBLE_QUOTE));
     else
        Append(IntToStr(Integer(Value)));
     end;
end;


// Thom

>thomh wrote:

>And since I using TWriter to convert Date() to JSON, the problem seems to be here:
>
> Append(QuotedStr(DateTimeToISOStr(Value),DOUBLE_QUOTE));

The EWB time functions have an optional  USEUTC parameter except DateTimeToISOStr() which I believe always converts to UTC time, which we old farts call Grenich mean time..