Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
19. Dez 2012
Ich hatte versucht zu zeigen dass die Datumswerte sich wahrscheinlich im ms Bereich unterscheiden und deshalb nie identisch sind und wie man damit umgehen könnte.
Ähnliches wie
if SameValue(d1,d2,EncodeTime(0,0,0,2)) then // wenn Du 2 ms Abweichung ignorieren willst
begin
Showmessage('Same');
end else Showmessage('Not Same');
Forum: Sonstige Fragen zu Delphi
Delphi
by Bummi,
19. Dez 2012
uses DateUtils,Math;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
var
d1,d2:TdateTime;
begin
d1 := EncodeDateTime(2012,12,19,12,11,10,0);
d2 := EncodeDateTime(2012,12,19,12,11,10,1);