Fechas y Datetimepicker en delphi5

[[cHackAll]]

Puesto que prefiero "controlar" mis aplicaciones con funciones propias simplificadas mías, hago lo de siempre... usar APIs: así que te dejo la (como siempre digo) "esencia" de lo que las funciones como el "Format" se valen. Acá están tus tres formatos...

Código Delphi [-]
function IntTo2(Value: Word): string;
begin
 Str(Value, Result);
 if Value < 10 then
  Result := '0' + Result;
end;

Código Delphi [-]

procedure TForm1.FormCreate(Sender: TObject);
var SystemTime: TSystemTime;
begin
 GetLocalTime(SystemTime);
 with SystemTime do
  Caption := IntTo2(wDay) + '/' + IntTo2(wMonth) + '/' + IntTo2(wYear) + ' - ' +
             IntTo2(wYear) + '-' + IntTo2(wMonth) + '-' + IntTo2(wDay) + ' y ' +
             IntTo2(wMonth) + '/' + IntTo2(wDay) + '/' + IntTo2(wYear);
end;

y para conversiones al con el TDateFormat usa las funciones:

Código Delphi [-]
 SystemTimeToDateTime
 DateTimeToSystemTime

Disfrútalas!