Results 1 to 4 of 4

Thread: Datum dd-mm-yy omzetten naar dd-mm-yyyy

  1. #1

    Datum dd-mm-yy omzetten naar dd-mm-yyyy

    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;

  2. #2
    Zelf parsen dan maar?
    Moet niet zo ingewikkeld zijn.

    Bart

  3. #3
    https://stackoverflow.com/questions/...ing-wrong-year
    Je hoeft het niet eens zelf te parsen. Gebruik gewoon de huidige methode en pas alleen het jaartal aan (IncYear(MijnDatum,-100). Misschien dat je wel in de problemen komt met schrikkeljaren op deze manier realiseer ik me nu. Dus misschien is zelf parsen toch veiliger.

  4. #4
    Daar heb je de TFormatSettings.TwoDigitYearCenturyWindow voor.
    Die kun je b.v. op 99 of 100 zetten.
    01-01-20 zou dan 01-01-1920 worden.

    https://www.freepascal.org/docs-html...tsettings.html
    http://www.delphibasics.co.uk/RTL.as...rCenturyWindow

    Maar hoe wil je dan dat je b.v. 01-01-2010 krijgt uit 01-01-10? Het hangt dus van je gebruik en periode af wat je wil. Voor geboortedata kun je het tegenwoordig al niet meer gebruiken

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •