Transformar data
Gostaria de saber como trasnformar um tipo TDate em uma String
Veja o codigo fonte.
const
PALM_TO_WINDOWS_DATE = 2082844800;
function PDBDate2Str(Data: DWord): string;
var d: TDate; a: TDate;
Begin
a := DWord (Data) + PALM_TO_WINDOWS_DATE;
Result := DateToStr(a);
end;
Agradeço desde já.
Veja o codigo fonte.
const
PALM_TO_WINDOWS_DATE = 2082844800;
function PDBDate2Str(Data: DWord): string;
var d: TDate; a: TDate;
Begin
a := DWord (Data) + PALM_TO_WINDOWS_DATE;
Result := DateToStr(a);
end;
Agradeço desde já.
_celo
Curtidas 0
Respostas
Gandalf.nho
10/11/2004
Como assim? Se você simplesmente quer uma data em string, use a função DateToStr (que inclusive está no seu código fonte).
GOSTEI 0
_celo
10/11/2004
é um sistema para ler arquivo PDB (Banco do Palm)
Quanto ele vai a Data da umas datas muitas estranhas. pensei que fosse na hora de converter. O q vc axa?
Quanto ele vai a Data da umas datas muitas estranhas. pensei que fosse na hora de converter. O q vc axa?
GOSTEI 0