Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
Delphi 7 Enterprise
|
Re: Deutsche Datum nach Englisches Datum konvertieren?
20. Jun 2006, 14:38
Wie Joachim schon sagte:
Select * from Test where Datumsfeld = :datum
und dann
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
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
|