Hallo allemaal,
Ik heb in een bestand verschillende datum velden met een layout van dd-mm-yy. Dit moet worden dd-mm-yyyy. In onderstaande code
krijg ik verkeerde data terug. Voorbeeld : 01-12-20 moet zijn 01-12-1920 en niet 01-12-2020. De omslag zit bij de overgang van 2068 naar 2069. Is dit oplosbaar en hoe.
Met een groet van Frans
Code:
Function Datum_Conversie(ADatum : String) : String;
Var
Dtm : TDateTime;
begin
Dtm := StrToDate(ADatum);
Result:=formatdatetime('dd-mm-yyyy',Dtm);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := Datum_Conversie('01-12-20'); //===> 01-12-2020
Label2.Caption := Datum_Conversie('01-12-68'); //===> 01-12-2068
Label3.Caption := Datum_Conversie('01-12-69'); //===> 01-12-1969
end;
Bookmarks