Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
genau das mal wieder total doofer Fehler
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
es war wirklich so das die edit felder zwischen tag und Jahr vertauscht waren. Meine Frage wieso macht den das soviel aus?
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
invalid arguments so heißt der Fehler
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
function WochenTag(AYear, AMonth, ADay: integer): integer;
var
i : integer;
begin
i:=DayOfWeek(EncodeDate(AYear,AMonth,ADay))-1;
if i=0 then i:=7;
Result:=i;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
@mh116 dabei tritt auch ein Fehler auf das es keine überladenen Version von IntToStr mit diesen Argumenten gibt
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
ja toll so hatte ich das ja
edit1.text:=(IntToStr(WochenTag(Strtoint(edit2.text), strtoint(edit3.text), strtoint(edit4.text)))); dann tritt dort ja der Fehler wie oben beschrieben auf
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
@Pr0g der Source geht ja ich will aber an der Stelle Edit1.Text := FloatToStr(WochenTag(2004, 12, 4)); aber 2005, 12, 4 meine Edit felder berücksichtigen
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
@lantis danke das ist aus der Delphi Hilfe da bin ich auch schon drübergestolpert aber ich soll ja den Wochentag von einem belibigen tag,monat und Jahr ausgeben lasssen
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
so das Problem wäre gelöst hatte doch tatsächlich vergessen das als Variable zu deklarieren. Wenn ich jetzt aber Tag 1, Monat 2, Jahr 2004 schreibe bekomm ich einen Fehler der heißt invalid argument to date encode
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
undefinierter Bezeichner obwohl ich ihn doch in meiner Funktion hab
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
jetzt würde es so aussehen
function WochenTag(AYear, AMonth, ADay: integer): integer;
var
i : integer;
begin
i:=DayOfWeek(EncodeDate(AYear,AMonth,ADay))-1;
if i=0 then i:=7;
Result:=i;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
mmh
das sieht dann jetzt so aus
function DayOfTheWeek(const AValue: TDateTime): Word; aber was für parameter muss ich dort denn noch reinschreiben????
Forum: Object-Pascal / Delphi-Language
Delphi
by tobiasw,
4. Dez 2004
hi
mein Prog hat 3 Eingaben: Tag, Monat, Jahr. Ausgabe ist: Wochentag. Ich möchte also wenn ich bei tag z.b. 1 eingeb, Monat 2 und Jahr 1990 das er mir den Wochen tag ausgibt. Das ganze möchte ich über eine Funktion realisieren.
function wochentag (tag, monat, jahr:double):double;
var
wo_tag:integer;
begin
wo_tag=(jahr div 4 +jahrhundert div 4+(13*monat-1)div...