Wert von 2 DateTimePickenr addieren zu TDateTime

mega · Beiträge: 46 Win XP D3 Prof

Hallo,
Wenn ich folgendes mache kommt hinterher das richtige raus (wenn man das mit DateTimeToString ausgibt):

Delphi-Quelltext

1:	myTime := EncodeTime(Hour,Min,Sec,0) + EncodeDate(Year,Month,Day);

Wenn ich das mit 2 DateTimePickern mache klappt das nicht.

markieren

Delphi-Quelltext

1:	beginTime := DateTimePicker2.Time + DatetimePicker1.Date;

Moderiert von raziel: Delphi-Tags hinzugefügt

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

Hallo

Zitat:

1: beginTime := DateTimePicker2.Time + DatetimePicker1.Date;

Du addierst zwei Extended Zahlen. Wenn dann das Ergebnis (auch extended) mit DateTimeToStr ausgibst wird da natürlich nich das
raus was in den DateTimePickern steht sondern es wird das datum und die Zeit angezeigt die Du als Ergebnis deiner addition erhalten hast.

also so funktioniert es.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.FormCreate(Sender: TObject);
var MyTime:TDateTime;
    beginTime:String;
begin
myTime:=EncodeTime(13,25,35,0)+EncodeDate(2006,05,14);
 ShowMessage(DateTimeToStr(MyTime));

beginTime:=DateToStr(DateTimePicker1.Date)+' '+TimeToStr(DateTimePicker2.Time);
 ShowMessage(BeginTime);
end;

vielleicht isses ja das was du wolltest.
Gruß

_________________
[b]Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.[b]

mega · Beiträge: 46 Win XP D3 Prof

Das ist es nicht.
Ich will aus den DateTimePickern ein TDateTime.

Oder sonst wie ein Größenvergleich. das myTime soll mit beginTime und endTime verglichen werden, damit nur myTimes zwischne beginTime und endTime genommern werden.
endTime kommt aus noch 2 DateTimePickern.

der Berliner · Beiträge: 417 Win Xp Home delphi 2005

Schau mal mein post oben hab da nochmal editiert.
ich probiere aber mal weiter.
wüsste auch gerne wie das funktioniert :roll:

Edit:

Ich habs

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.FormCreate(Sender: TObject);
var MyTime,beginTime:TDateTime;
    jahr,tag,monat,std,min,sec,ms:word;
begin
myTime:=EncodeTime(13,25,35,0)+EncodeDate(2006,05,14);
ShowMessage(DateTimeToStr(MyTime));

DecodeDate(DateTimePicker1.date,tag,monat,jahr);
DecodeTime(DateTimePicker2.Time,std,min,sec,ms);

BeginTime:=EncodeTime(std,min,sec,ms)+ EncodeDate(Tag,monat,jahr);
ShowMessage(DateTimeToStr(beginTime));
end;

gruß

_________________
[b]Ich weiß nicht immer, wovon ich rede. Aber ich weiß, dass ich recht habe.[b]

mega · Beiträge: 46 Win XP D3 Prof

Danke.
So klappt das.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme