datum aus Edit lesn

[chiveZ]

hallo

ich will aus einem editfeld, wo ein beliebiges datum ('dd.mm.yyyy')
eingetragen wurde, nur den tag oder den monat rauslesn!
wie mach ich das??

[XeRo]

Sieh dir mal den befehl copy an...

[edit]
Das ganze könnte dann etwa so aussehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  Tag, Monat, Jahr:String;
begin
 Tag:=Copy(Edit1.Text,1,2);
 Monat:=Copy(Edit1.Text,4,2);
 Jahr:=Copy(Edit1.Text,7,4);
end;

[/eidt]

[alcaeus]

Hi chiveZ!

Je nach Delphi-Version könntest du auch die TDateTimeEdit-Komponente (Win32-Palette) verwenden. Diese vereinfacht dein Problem.

Greetz
alcaeus

[mytar]

Ich weiß nicht genau ab welcher Delphi-Version TDateTimeEdit dabei ist. Wenn vorhanden ist das sicherlich die spezifische Lösung. Ansonsten empfehle ich dir
TMaskEdit.

[chiveZ]

und wie realisire ich das mit Teditmask ?? :gruebel:

[Stanlay Hanks]

Hi. Am einfachsten wäre wohl

Delphi-Quellcode:

var y,m,d : Word;
begin
DecodeDate(StrToDate(Edit1.Text),y,m,d);
end;

Die Variablen y und m enthalten dann das Jahr und den Monat. (d enthält den Tag, aber den brauchst du ja nicht).

Man liest sich, Stanlay :hi:

[chiveZ]

ja ok, aba wie binde ich das in diesen beispiel ein :

Code:

kekz.Query1.FieldByName('tag').AsFloat := DecodeDate(StrToFloat(Datum.Text));

mfg

[Sharky]

Lese doch einfach mal den letzen Absatz von Stanlay Hanks :gruebel: