Deutsche Datum nach Englisches Datum konvertieren?

[Karstadt]

Hallo. Gibt Es eine Funktion die mir das Deutsche Datum in Englisches Datum formatiert?

Bei MYSQL kann ich nur mit Englieschen Datum die Abfragen starten?

momentan gehe ich so vor das ich Jahr, Monat, Tag auslese und in der Richtige Reihenfolge setze incl. '-'.

..mich würde Interessieren ob es vielleicht eine Funktion gibt, die schon in D7 Pro integriert ist..

Danke

[alzaimar]

Schau mal in der Delphi-Hilfe nach 'FormatDateTime'

[Karstadt]

Delphi-Quellcode:

Function EnglischesDatum(Datum:TDateTime):String;
begin
  Result := FormatDateTime('yyyy-mm-dd', Datum);
end;

:P

[joachimd]

Zitat:

Zitat von Karstadt

Bei MYSQL kann ich nur mit Englieschen Datum die Abfragen starten?

Nimm besser Parameter. Dann bist Du vom Datumsformat unabhängig.

[Union]

Wie Joachim schon sagte:

SQL-Code:

Select * from Test where Datumsfeld = :datum

und dann

Delphi-Quellcode:

Query.ParamByName('datum').AsDateTime := now;

Wenn Du aber unbedingt das Datum konvertieren willst:

Delphi-Quellcode:

procedure TForm1.TestButtonClick(Sender: TObject);
const
   LCID_ENUS : integer = 1033;
var
   dtDatum : TDate;
   FormatSettings : TFormatSettings;
begin
   dtDatum := date;
   Sysutils.GetLocaleFormatSettings(LCID_ENUS, FormatSettings);
   ShowMessage(DateToStr(dtDatum, FormatSettings));
end;

Eine Liste aller gültigen LCIDs: List of Locale ID (LCID) Values as Assigned by Microsoft

[Karstadt]

Das mit Param muss ich mir anschauen..

bzw.würde das auch mit Param funktionieren?

Delphi-Quellcode:

  with tabelle do
  begin
    Close;
    sql.text := 'SELECT * FROM TABELLE WHERE DATUM = '+QuotedStr(EnglischesDatum(StrToDateTime(ed_Datumfeld.text));
    Open;
  end;

aber diese Funktion würde doch auch funktionieren?

Delphi-Quellcode:

Function EnglischesDatum(Datum:TDateTime):String;
begin
  Result := FormatDateTime('yyyy-mm-dd', Datum);
end;

[Union]

Ja, mit Params würde das so aussehen:

Delphi-Quellcode:

with tabelle do 
begin 
   Close; 
   sql.text := 'SELECT * FROM TABELLE WHERE DATUM = :datumswert'; 
   ParamByName('datumswert').AsDateTime := StrToDateTime(ed_Datumfeld.text);
   Open; 
end;

Nur sollte die Eingabe in dem Datumsfeld vorher geprüft werden ob es ein gültiges Datum darstellt bzw. Du verwendest gleich eine entsprechende Eingabekomponente die von sich aus nur gültige Datumseingaben zuläßt.

Das mit dem FormatDateTime klappt natürlich auch. Aber wenn man mit Datums- und Zeitwerten arbeitet, sollte man auch möglichst die dafür vorgesehenen Datentypen verwenden. Das macht dann auch Berechnungen viel einfacher und man spart sich jede Menge Umwandlungen.

[Karstadt]

Zitat:

Ja, mit Params würde das so aussehen:

...ich muss gestehen, ich sehe keinen klaren (besseren) unterschied als meine Abfrage ohne Param. Ich werde das auf jeden Fall ausprobieren, danke.

[Union]

Dir ist aber schon aufgefallen, dass so die Funktion EnglischesDatum() nicht benötigt wird :stupid:

[edit] Und QuotedStr() auch nicht [/edit]

[Karstadt]

:P ..das ist das..