Datum konvertieren

[superstar025]

:wiejetzt:

Hallo habe ein Problem bezüglich eines Datums
ich möchte es umwandeln und in ein date feld in eine datenbank schreiben (JJJJ-MM-TT)
ich gebe es jedoch in TT-MM-JJJJ ein.
jetzt muss ich die sachen irgendwie ausschneiden und so wegschreiben können mit einer stored prozedure das ich das in ein date feld einpflegen kann.
Datum steht in einem Maskeditfeld 1.



wer kann mir weiter helfen??

mfg
superstar025
:wall:

[Luckie]

Kuck dir mal Encodedate und Konsorten in der Hilfe an.

[int]

benutze FormatDateTime(); viel Glück.

[superstar025]

Sorry aber ich komm nicht weiter.

Nochmal kurz das Problem was ich habe. Ich muss das Datum so für die Datenbank konvertieren (JJJJ-MM-TT)
Jedoch habe ich ein Maskedit wo ich zuerst TT-MM-JJJJ eingebe. Soweit verständlich?
Jetzt muss ich die Datumsreihenfolge so ändern das das für die Datenbank verträglich ist.
wie mach ich das?

:pale:


Maskedit mit Editmask !99-99-0000;1;_

Button mit folgenden Ausführungen und hier brauch ich das Datum im String feld JJJJ-MM-TT

query6.ParamByName('GUELTIG_AB').AsString := Maskedit1.Text;
query6.Open;
query6.Close;

[Nothine]

z.B. so

Delphi-Quellcode:

  var ST: TSystemTime;
      DT: TDateTime;
  begin
    DT := StrToDate(StringReplace(Maskedit1.Text,'-','.',[rfReplaceAll]));
    DateTimeToSystemTime(DT,ST);
    query6.ParamByName('GUELTIG_AB').AsString :=
    IntToStr(ST.wYear)+'-'+IntToStr(ST.wMonth)+'-'+IntToStr(ST.wDay);
  end;

[superstar025]

Danke das klappt woweit alles

jedoch lässt Delphi in diesem fall noch bei 01.01.2005
die NULLEN weg vom Tag und vom Monat. 1.1.2005
wie kann ich das verhindern das er auch dort die nullen nimmt?

mfg superstar025

:cyclops:

[Nothine]

indem du den kram den ich gerade eben gepostet hab ganz schnell wieder vergisst :mrgreen: und folgendes anwendest ^^

Delphi-Quellcode:

query6.ParamByName('GUELTIG_AB').AsString :=
FormatDateTime('yyyy"-"mm"-"dd',StrToDate(
StringReplace(MaskEdit1.Text,'-','.',[rfReplaceAll])));

// Edit: Funktion nich getestet, aber in delphi geschrieben also muss laufen ^^
// Edit2: Sorry aber stand gerade eben aufm schlauch deswegen der umweg :stupid: :mrgreen:

[superstar025]

Vielen Dank für die schnelle Hilfe!!!


:thumb:


:dancer2:

:dance:

:hi:

[Nothine]

man tut was man kann :mrgreen: