Delphi wochentag berechnen - Seite 3

Thema durchsuchen

Ansicht

Themen-Optionen

wochentag berechnen

Ein Thema von tobiasw · begonnen am 4. Dez 2004 · letzter Beitrag vom 6. Mär 2013

Vorheriger Beitrag

Nächster Beitrag

tobiasw

Registriert seit: 11. Nov 2004
156 Beiträge

Delphi 2005 Architect

wochentag berechnen

4. Dez 2004, 13:00

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.

markieren

Delphi-Quellcode:

			function wochentag (tag, monat, jahr:double):double;

var

wo_tag:integer;

begin

wo_tag=(jahr div 4 +jahrhundert div 4+(13*monat-1)div 5+tag+jahr-2*jahrhundert)mod7;

result:=wo_tag

Nur das ganze funktioniert nicht so wirklich. Ich hoffe jemand hat einen Idee wie ich es lösen könnte