Results 1 to 3 of 3

Thread: OMG TDateTime

  1. #1
    Senior Member EricLang's Avatar
    Join Date
    May 2002
    Location
    Holland
    Posts
    3,194

    OMG TDateTime

    How on earth....
    Code:
      var settings: TFormatSettings := TFormatSettings.Create;
      settings.ShortDateFormat := 'dd-mm-yyyy';
      settings.DateSeparator := '-';
      settings.ShortTimeFormat := 'hh:mm:ss';
      var s: string := 'Europese incasso door:KPN B.V. NL-Factuur 03-03-2019 incl. 9 46 BTW  klantnummer xx69967393  KPN.-Incassant ID: xyz9KPN271247010001-Kenmerk Machtiging: d10017314315-000011114404690';
      var isDateTime: Boolean := TryStrToDateTime(s, d, settings); // returns TRUE

  2. #2
    Ja... dat doet die functie:
    Delphi Code:
    1. function TryStrToDateTime(const S: string; out Value: TDateTime;
    2.   const AFormatSettings: TFormatSettings): Boolean;
    3. begin
    4.   ..
    5.   // jump over all the non-numeric characters before the date data
    6.   // if the format starts with era name, do not skip any character.
    7.   ..
    8. end;

    Dus, alle tekst aan het begin wordt genegeerd (met wat uitzonderingen). Als er daarna een datum met optionele tijd uit komt rollen geeft de functie true. Alles aan het eind wordt dan ook genegeerd. Een cijfer ergens aan het begin (een 1 tussen KPN en BV, bijvoorbeeld) zorgt ervoor dat het niet meer werkt.

    Wees blij dat je niet in PHP werkt, daar kan je ook relatieve tijd in strings vatten. Daar kan je dus now() + strtotime('+ 5 days') schrijven om een paar dagen in de toekomst te kijken.
    1+1=b

  3. #3
    Senior Member EricLang's Avatar
    Join Date
    May 2002
    Location
    Holland
    Posts
    3,194
    Haha insane :-)
    Okokokok: ik ben ook blij dat ik niet in PHP werk.

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
  •