CurrentDate

Retorna a data atual do micro.

Exemplo de uso:

Value := 'Data:' + FormatDateTime('DD/MM/YYYY',CurrentDate);


CurrentDateTime

Retorna a data/hora atual do micro.

Exemplo de uso:

Value := 'Data/Hora:' + FormatDateTime('DD/MM/YYYY HH:NN',CurrentDateTime);


CurrentTime

Retorna a hora atual do micro.

Exemplo de uso:

Value := 'Hora:' + FormatDateTime('HH:NN:SS',CurrentTime);


DayOfWeek( Data )

Retorna o dia da semana da data informada sendo que 1 indica domingo e 7 indica sábado.

Exemplo de uso:

Case DayOfWeek(Vendas['Data']) Of

  1: Value:='Domingo';

  2: Value:='Segunda-Feira';

  3: Value:='Terça-Feira';

  4: Value:='Quarta-Feira';

  5: Value:='Quinta-Feira';

  6: Value:='Sexta-Feira';

  7: Value:='Sábado';

End;


DecodeDate( Data, Ano, Mes, Dia)

Separa o dia, mês e ano da data informada armazenado-os em Ano, Mes e Dia. (essas variáveis deverão ter sido previamente criadas).

Exemplo de uso:

Var

   wAno, wMes, wDia: Integer;

Begin

   DecodeDate( Vendas['Data'], wAno, wMes, wDia);

   Value := 'Venda realizada no dia '+IntToStr(wDia);

End;


DecodeTime( Hora, Hora, Minuto, Segundo, Milesegundos)

Separa a hora, minuto, segundo e milésimos de segundos da Hora informada armazenado-os em Hora, Minuto, Segundo e Milisegundos. (essas variáveis deverão ter sido previamente criadas).

Exemplo de uso:

Var

   wHora, wMinuto, wSegundo, wMilis: Integer;

Begin

   DecodeTime( CurrentTime, wHora, wMinuto, wSegundo, wMilis);

   Value := IntToStr(wHora)+' horas e '+ IntToStr(wMinuto);

End;


EncodeDate( Ano, Mês, Dia)

Transforma o Ano, Mês e Dia fornecido em uma data.

Exemplo de uso:

Value := EncodeDate(2010,12,09);


EncodeTime( Hora, Minuto, Segundo, Milisegundo)

Transforma a hora, minuto, segundo e milisegundo fornecido em um valor tipo hora.

Exemplo de uso:

Value := EncodeTime(18,10,55,0);