Fromatar

Ir na janela Field Editor do componete Table ou Query Clicar na opção EditMasc e dentro dessa propriedade escolher a Opção: Date e alterar para
!99/99/0000;1;_

Max...

Escolher como a data e hora deve ficar idependentemente da configuração do CPU



var
Ano,Mes,Dia:Word;
Hora,Min,Sec,MSec:Word;
begin

DecodeDate(Now,Ano,Mes,Dia);
DecodeTime(Now,Hora,Min,Sec,MSec);
ShortDateFormat := ´dd/mm/yyyy´;
LongTimeFormat := ´hh:nn´;
LongDayNames[1] := ´Domingo´; LongDayNames[2] := ´Segunda´; LongDayNames[3] := ´Terça´;
LongDayNames[4] := ´Quarta´; LongDayNames[5] := ´Quinta´; LongDayNames[6] := ´Sexta´;
LongDayNames[7] := ´Sábado´;
Label1.Caption := FormatDateTime(´´Hoje é´ dddd, c´,
StrToDateTime(IntToStr(Dia) + ´/´ + IntToStr(Mes) + ´/´ +
IntToStr(Ano) + ´ ´ + IntToStr(Hora) + ´:´ +
IntToStr(Min) + ´:´ + IntToStr(Sec)));
end;