DateTime-Variable einer Funtion übergeben

[sventeq]

Zitat:

Zitat von RavenIV

Zitat:

Zitat von sventeq

was mache ich da falsch? Wäre für etwas Hilfe echt dankbar

1) Du ignorierst Gross/Kleinschreibung. Das macht den Code nicht besonders leserlich.
2) Du benutzt den "_" im Funktionsnamen. Das macht den Code nicht besonders leserlich.
3) was ist "laufdatum"? Könnte es vielleicht wirklich einen Menueintrag mit diesem Namen geben?
4) Zum Testen:
4a) leg eine neue Variable an -> TestDatum : TDateTime;
4b) mach dann: TestDatum := SaSoPruefung(Now);
4c) was steht dann in TestDatum?

30.12.1899

[sventeq]

Zitat:

Zitat von RavenIV

Hallo????
Hat überhaupt einer meinen Post bemerkt?
Es war #5.

Ja, hab ich. Hab grad nur das von RavenIV ausprobiert. Werde ich jetzt machen

[sventeq]

Zitat:

Zitat von sventeq

Zitat:

Zitat von RavenIV

Hallo????
Hat überhaupt einer meinen Post bemerkt?
Es war #5.

Ja, hab ich. Hab grad nur das von RavenIV ausprobiert. Werde ich jetzt machen

Ach das warst ja du :oops:

[DeddyH]

Zitat:

30.12.1899

Logisch, da Result ja nur bei Samstag und Sonntag zugewiesen wird.

[Der.Kaktus]

hallo,

also ich stelle fest, dass die TTable-Befehle in der Funktion nicht gebraucht werden.

Delphi-Quellcode:

function sa_so_pruefung(laufdatum1:tdatetime):tdatetime; 
begin 
  if dayofweek(laufdatum1)-1 = 6 then 
                  begin 
                    Result:=laufdatum1-1; 
                  end; 
  if dayofweek(laufdatum1)-1 = 0 then 
                  begin 
                    Result:=laufdatum1-2; 
                  end; 
end; 

laufdatum:=sa_so_pruefung(laufdatum);

Die Funktion dayofweek(..) bringt als Ergebnis einen Integerwert..was aber nicht bedeutet, dass Du den einfach von Laufdatum abziehen kannst. Im Laufdatum steht ein "double" Wert mit mehr Angaben als dem Wochentag..die sind somit zerstoert.

[DeddyH]

Was aber alles die Fehlermeldung noch nicht erklärt.

[RavenIV]

Zitat:

Zitat von DeddyH

Was aber alles die Fehlermeldung noch nicht erklärt.

Dann muss halt mehr Code her.
Am besten das ganze Projekt als Anhang.

[sventeq]

Zitat:

Zitat von DeddyH

Zitat:

30.12.1899

Logisch, da Result ja nur bei Samstag und Sonntag zugewiesen wird.

Ja, stimmt natürlich, wie dumm. Muss jetzt leider auch zur Arbeit. Werde #5 später nochmal machen und mir die Codezeile ansehen. Danke für eure Hilfe.

[Der.Kaktus]

Zitat:

Zitat von DeddyH

Was aber alles die Fehlermeldung noch nicht erklärt.

..stimmt, aber da muesste er schon noch nen bissl mehr Quelltext reinstellen..zB. die Deklarationen. Aber die Funktion geht zumindstens sooo nicht! ;-)

Raven war schneller :thumb:

[tomsel]

Zitat:

Zitat von DeddyH

Was aber alles die Fehlermeldung noch nicht erklärt.

Darf ich aus Anlass dieser Feststellung noch ein mal höflichst auf "Afterscroll" zurück kommen? :mrgreen: