Announcement

**kampfmeier** · 25.11.1999, 13:45

Hallo,
 
Dein erstes Problem liegt wahrscheinlich am �sp�ten Binden� der Typumwandlung StrToInt(MaskEdit1.Text), ohne die strenge Typpr�fung (hier Bereich von ganzen Zahlen) durch den Compiler.
 
Als L�sung m�chte ich aber einen anderen Vorschlag machen. Du mu� sowieso auch die Tageszahlen 30 und 29 pr�fen. Daf�r kannst Du einfach den �MaskEdit1.Text� mit �StingToDate()� oder die einzelnen Bestandteile Tag, Monat und Jahr mit �EncodeDate()� in den Datentyp TDateTime umwandeln. Damit das alles gut l�uft, mu� die Exception abgefangen werden. Das Datum ist danach in jedem Fall ein g�ltiger Datumswert.
 
<PRE>
...
try
//�1900� nur, weil das Datum offenbar 2-stellig erfa�t werden soll (Y2K???).
vDate1:= EncodeDate(1900+j1, m1, t1);
except
ShowMessage(�Datum 1 falsch eingegeben.�);
Raise;
end;
try
vDate2:= EncodeDate(1900+j2, m2, t2);
except
ShowMessage(�Datum 2 falsch eingegeben.�);
Raise;
end;
//Datum wieder in die Bestandteile zerlegen.
DecodeDate(vDate1, j1, m1, t1);
DecodeDate(vDate2, j2, m2, t2);
Diff := (j2-j1)*360 + (m2-m1)*30 + t1-t2;
</PRE>
 
Das zweite Problem �Diff := (j2-j1)*360 + (m2-m1)*30 + t1-t2;� l�uft bei mir, ich bitte um ein Zahlenbeispiel!
 
Gru� Dir

**Thomas M�ller** · 26.11.1999, 00:09

Hallo Dirk,
Danke f�r den Tip. Ich werde es testen.
Das andere (Tagesdiff.) l�uft bei mir jetzt auch, weiss aber nicht, warum. Hast du es auch in BP 7.0 probiert oder in Delphi (da geht es n�mlich schon immer.

Hier ein weiteres Beispiel f�r Probleme dieser Art in BP:

PROGRAM Numerische_Probleme;
USES
CRT;

{$Q-} {Versuch �berlaufpr�fung off}
VAR
Int_A,
Int_B : INTEGER;
L_Int : LONGINT;

Byte_A,
Byte_B : BYTE;
Word_V : WORD;

Real_V : REAL;
I : INTEGER;

BEGIN
CLRSCR;
WRITELN('Probleme der Integeroperationen - DEMO NUMPROBL.PAS');
WRITELN;

WRITELN('Integerberechnungen');
Int_A:=16383;
Int_B:=2 ;

L_Int:=Int_A*Int_B; {ok, da Ergebnis im Bereich Integer liegt }
WRITELN(Int_A,' * ',Int_B,' = ',L_Int:10);

L_Int:=Int_A*Int_B+1; {ok, da im Bereich Integer}
WRITELN(Int_A,' * ',Int_B,' + 1 = ',L_Int:10);

L_Int:=Int_A*Int_B+2; {Einer der Operatoren l�uft �ber - SHL - negative Zahl}
WRITELN(Int_A,' * ',Int_B,' + 2 = ',L_Int:10);

WRITELN('32768 + 1 = ',32768+1:10); { kein Problem bei numerischem Literal }

WRITELN;
WRITELN('Wordberechnungen');
Word_V:=65000;
L_Int := Word_V*2;
WRITELN('65000 * 2 = ',L_int:10);

WRITELN;
WRITE ('Demo SHL : ');
FOR I := 1 TO 8 DO WRITE (1 SHL I:7); { Demo Shift Left Operator }
WRITELN;
WRITE ('Demo SHR : ');
FOR I := 1 TO 8 DO WRITE (256 SHR I:7); { Demo Shift Right Operator }
WRITELN;
WRITE ('Demo SHL mit �berlauf: ');
FOR I := 1 TO 8 DO WRITE (256 SHL I:7); { Demo Shift Left Operator }
WRITELN;

WRITELN;
WRITELN('Byteberechnungen');
Byte_A := 127;
Byte_B := 2;

Word_V:=Byte_A*Byte_B; { hier l�uft keiner der Operatoren �ber }
WRITELN(Byte_A,' * ',Byte_B,' = ',Word_V:10);

Word_V:=Byte_A*Byte_B+2;
WRITELN(Byte_A,' * ',Byte_B,' + 2 = ',Word_V:10);

Word_V:=Byte_A*Byte_B+65282; { l�uft �ber ab 65535 }

WRITELN(Byte_A,' * ',Byte_B,' + 65282 = ',Word_V:10);

WRITELN;
WRITELN('Realberechnungen: RealVar := IntVar1 * IntVar2');
Real_V:=Int_A*Int_A;
WRITELN(Int_A,' * ',Int_A,' = ',Real_V:10:0);

WRITELN;
WRITELN('Programmende NUMPROBL')
END.<p&gt

**Thomas M�ller** · 26.11.1999, 01:48

Hallo Dirk,
gerade fiel mir ein, es gibt ja den DateTimePicker. Mit gehts nat�rlich noch viel einfacher:
procedure TForm1.DateTimePickersChange(Sender: TObject);
VAR
Tag1, Tag2,
Monat1, Monat2,
Jahr1, Jahr2 : WORD; // Aktualparameter DecodeDate sind Word
TDiff : INTEGER;

begin
DecodeDate(DateTimePicker1.Date, jahr1, monat1, tag1);
DecodeDate(DateTimePicker2.Date, jahr2, monat2, tag2);

TDiff := ABS( Tag2 - Tag1
+ (Monat2 - Monat1) * 30
+ (Jahr2 - Jahr1 ) * 360);

Label2.Caption := Format('%d Tage',[TDiff]);
end;<p&gt

**kampfmeier** · 26.11.1999, 12:42

Hallo Thomas,

der TDateTimePicker ist 'ne gute Idee!

Was das andere Problem angeht, kann ich Dir leider nicht helfen, weil ich nur in Delphi (z.Z. 4) und VBA programmiere

**Hagen Reddmann** · 09.12.1999, 00:53

Hi Thomas

Zum Problem der Integer Multiplication. Du hast es richtig erkannt, dadurch das Int_B := 2 ist und nicht mehr ver�ndert wird nimmt der Compiler diese als Konstante. Nun, 4*2 ist langsamer als 4 shl 1 und das ist das problem: normalerweise m�sste Pascal 4 sal 1 nutzten, also einen Arithmetic Shift, ABER das ist in einigen Pascal/Delphi Version jedesmal anders. Ich habe mich daran gew�hnt und stolpere jedesmal bei D4 das diesen "Bug" korregiert hat und somit noch mehr Bugs erzeugt :-)

Gru� Hage

Announcement

Compilerfehler?

Compilerfehler?

Comment

Comment

Comment

Comment

Comment