Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Datum 01.02.12 -->01.02.2012
michaelarban - Di 17.07.12 10:45
Titel: Datum 01.02.12 -->01.02.2012
hallo,
ich habe folgende Funktion, die mir aus 01.02.12 (also 1.Februar 2012) den 01.02.2012 machen soll,
stattdessen bekomme ich jedoch 01.02.5248
weiß jemand rat?
Danke
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| function Datum(pDatum : String; pTrenner: Char; out pOutDatum: String): Boolean;
var
lvFormatSettings: TFormatSettings;
lvDate : TDateTime;
begin
result := true;
pOutDatum := '';
lvFormatSettings.ShortDateFormat := 'dd.mm.yyyy';
lvFormatSettings.LongDateFormat := 'dd.mm.yyyy';
lvFormatSettings.DateSeparator := '.';
lvDate := StrToDate(pDatum, lvFormatSettings);
pOutDatum := DateToStr(lvDate, lvFormatSettings);
end; |
Moderiert von 
Narses: Code- durch Delphi-Tags ersetzt
bummi - Di 17.07.12 10:57
kann ich nicht nachvollziehen, wie wäre es mit sowas?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| Function GetMyDate(const ins:String):String;
var
d:TDateTime;
begin
if TryStrToDate(ins,d) then
Result := FormatDateTime('dd.mm.yyyy',d)
else Result := ins;
end; |
michaelarban - Di 17.07.12 11:05
Hallo bummi,
danke funktioniert.
bye
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!