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..

[Sharky]

Zitat:

Zitat von Karstadt

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

Hai,

nur mal so am Rande. mySQL benutzt das deutsche Datumsformat. Aber die wenigsten Leute haben es auf ihrem Rechner eingestellt.

[mkinzler]

Zitat:

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

Unabhängig von deinem Problem ( auch hier sehe ich große Vorteile der Paramterfunktion) können parametrisierte Abfragen eine Performancegewinn bringen. Da später nur noch die werte der Paramter übertragen werden müßen auch brauchst du dich nicht mehr um das Format der Daten und um das Quoten kümmern.

[Sharky]

Hai Karstadt,

warum machst Du es eigentlich nicht mit Parametern? Es ist ja nicht das erste mal das Du nach der übergabe des Datums bei mySQL fragst. Und auch da wurde vorgeschlagen mit Parametern zu arbeiten.

[Union]

Also ich denke da muss ich ihn mal in Schutz nehmen. Das scheint mir ein typischer Fall von Newbie-Mißbrauch einer Firma zu sein. So fangen EDV-Katastrophen an. Nichts wird geplant, alles wird ad hoc programmiert und beim Coden werden dann die konzeptionellen Problem egleich mit gelöst (oder es versucht, denn es gibt ja gar kein Konzept).

Dies ist nur mein ganz persönlicher Eindruck, entstanden aus der Verfolgung von Karstadt's Postings der letzten Zeit. Ich denk es würde sich lohnen mal den Gesamtumfang des Projektes zu kennen und dann zu ermitteln was man dafür braucht. Und das ganze muß natürlich auch auf einer guten programmtechnischen Basis stehen. Wenn man nicht unendlich Zeit hat, kann man sich nicht noch im Projekt das Programmieren beibringen.

[Karstadt]

Zitat:

Ich denk es würde sich lohnen mal den Gesamtumfang des Projektes zu kennen und dann zu ermitteln was man dafür braucht.

Das ist nicht so einfach. Es kommen fast täglich Änderungen / Neuerungen / Verbeserungen in das Projekt.