SYSTEMTIME in FireMonkey

  

Can you help me.
I have a code, but it don’t work on Android (who would doubt that).

procedure SetTime(sTime: string);

var
vsys: _SYSTEMTIME;

begin
GetLocalTime(vsys);
vsys.wYear := StrToInt(Copy(sTime,7,4));
vsys.wMonth := StrToInt(Copy(sTime,4,2));
vsys.wDay := StrToInt(Copy(sTime,1,2));
vsys.wHour := StrToInt(Copy(sTime,12,2));
vsys.wMinute := StrToInt(Copy(sTime,15,2));
vsys.wSecond := StrToInt(Copy(sTime,18,2));
SetLocalTime(vsys);
end;

I need a similar code, but to make it work on Android or analogy. Thanks in advance

Comments are closed.