Alterando a data via código

Visitas

Os funções para manipulação de data e hora no Pocketstudio são encontradas no arquivo PalmOS/DateTime.pas. Nós iremos usar o tipo DateTimeType e a função TimDateTimeToSeconds que recebe como parâmetro um ponteiro para o tipo DateTimeType.

O tipo DateTimeType é:

DateTimeType = record
   second: Int16;
   minute: Int16;
   hour: Int16;
   day: Int16;
   month: Int16;
   year: Int16;
   weekDay: Int16; // Days since Sunday (0 to 6)
end;

A função TimDateTimeToSeconds é declarada:

function TimDateTimeToSeconds(dateTimeP: DateTimePtr): UInt32; external sysTrapTimDateTimeToSeconds;


De posse dessas informações, basta incluir o código abaixo no evento que fará a alteração da hora. No exemplo abaixo são utilizados valores fixos.

var
   DtHo: DateTimeType;
begin
   DtHo.Day := 4;
   DtHo.Month := 5;
   DtHo.Year := 2009;   DtHo.Hour := 20;
   DtHo.Minute := 15;
   DtHo.Second := 34;

   //Como nossa variável não é um ponteiro e a função requer um ponteiro
   //passaremos o endereço da variável.
   TimSetSeconds(TimDateTimeToSeconds(@DtHo));
end;