if I change my code in this mode, and change Google Calendar configuration, with Greenwich meridian, I see correct result on Google Calendar. But I'm not on Greenwich meridian.
I edited the demo calendar. I added a button and inside I put the following code.
procedure TMainForm.Button1Click(Sender: TObject);
var
Entry : TEvent;
Insert : TEvent;
start_e : TEventDateTime;
end_e : TEventDateTime;
begin
if LBCalendars.ItemIndex<0 then
Exit;
start_e := TEventDateTime.Create();
end_e := TEventDateTime.Create();
start_e.dateTime := EncodeDateTime(2020,6,3,19,0,0,0);
start_e.timeZone := 'Europe/London';
end_e.dateTime := IncHour(start_e.dateTime,2);
end_e.timeZone := 'Europe/London';
Entry := TEvent.Create();
Entry.summary := 'My test';
Entry.description := 'My test';
Entry.location := 'My location';
Entry.start := start_e;
Entry._end := end_e;
Entry.guestsCanInviteOthers := false;
Entry.guestsCanSeeOtherGuests := false;
Entry.colorId := '';
Insert := FCalendarAPI.EventsResource.Insert(FCurrentCalendar.id,Entry);
SaveRefreshToken;
Entry.Free;
Entry:=nil;
ShowMessage('Insert ' + Insert.id);
Insert.Free;
Insert:=nil;
end;
Il giorno mer 3 giu 2020 alle ore 15:59 Michael Van Canneyt <
Show quoted text 97 lines
ha scritto:
On Wed, 3 Jun 2020, Francesco Sammarco wrote:
> sorry and how do I set the date and time of the apartment ?!
I would think this is sufficient:
Entry := FCalendarAPI.EventsResource.Get(CalendarFindedId, my_id_app);
start_e := TEventDateTime.Create();
end_e := TEventDateTime.Create();
start_e.dateTime := data_appuntamento;
start_e.timeZone := 'Europe/Rome';
Michael.
>
> Il mer 3 giu 2020, 15:55 Michael Van Canneyt ha
> scritto:
>
>>
>>
>> On Wed, 3 Jun 2020, Francesco Sammarco wrote:
>>
>>> sorry I don't understand, you say that just remove the lines where I
>>> specify the timezone ?!
>>
>> No, remove the
>>
>> start_e.dateTime := LocalTimeToUniversal(start_e.dateTime);
>>
>> I think it is not necessary if you set the timezone.
>>
>> Michael.
>>
>>
>>>
>>> Il mer 3 giu 2020, 14:51 Michael Van Canneyt
ha
>>> scritto:
>>>
>>>>
>>>>
>>>> On Wed, 3 Jun 2020, Francesco Sammarco via lazarus wrote:
>>>>
>>>>> Hi everyone, I have the following problem. I have a calendar
(Italian)
>> to
>>>>> sync with Google Calendar. With the following code I can work quite
>> well.
>>>>> If today (2020-06-03) I set a new appointment it is saved on google
>>>>> calendar on the right day and time, but if for example: always today
>> if I
>>>>> set an appointment for December 10, 2020 at 9 am, I find myself there
>>>>> appointment set on the right day but at 8 am. (So an hour behind) I
>> think
>>>>> it's due to the change between sunlight and daylight. Can anyone
>> explain
>>>> to
>>>>> me how to solve the problem?
>>>>>
>>>>> Thank you
>>>>> XinYiMan
>>>>>
>>>>>
>>>>>
>>>>> var
>>>>> start_e : TEventDateTime;
>>>>> end_e : TEventDateTime;
>>>>> Entry : TEvent;
>>>>> begin
>>>>> Entry := FCalendarAPI.EventsResource.Get(CalendarFindedId,
>>>>> my_id_app);
>>>>>
>>>>> start_e := TEventDateTime.Create();
>>>>> end_e := TEventDateTime.Create();
>>>>>
>>>>> start_e.dateTime := data_appuntamento;
>>>>> start_e.dateTime :=
>>>>> LocalTimeToUniversal(start_e.dateTime);
>>>>> start_e.timeZone := 'Europe/Rome';
>>>>
>>>> If you set the timzeone explicitly, I don't think you must do a
>>>> LocalTimeToUniversal,
>>>> I think the timezone is then automatically taken into account. As I
>>>> understand it you specify the timezone in dateTime or you set it in
the
>>>> timezone.
>>>>
>>>> Michael.
>>>>
>>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20200604/a718dca7/attachment.html>
