Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
200to204
200to204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion Tag (Excel) und Day (VBA)

Funktion Tag (Excel) und Day (VBA)
08.01.2003 12:42:17
Ernest
Hy,
ich versuche gerade die Ostersonntagsfunktion aus Excel in's VBA zu implementieren.
Dabei tritt ein Fehler auf, der sich einfach nachvollziehen läßt:
In der Tabelle - Splate 1 Zahlen von 1 - 100
in Spalte 2 Ecxelfunktion =Tag(A1)
im VBA -
Function TT (Wert as integer) as integer
TT = day(Wert)
end function
und die dann in Spalte 3 verwenden
Das Ergebnis 1 -> 1 -> 31

Der Fehler führt in meiner Umsetzung zu einem falschen Ostersonntag 2011.

Gibts dafür eine Erklärung ???

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Funktion Tag (Excel) und Day (VBA)
08.01.2003 14:03:07
Hans W. Herber
Hallo Ernest,

zuerst: Welche Ostersonntagsfunktion? Eine Ostersonntagsfunktion benötigt im Allgemeinen keinen Tages-, sondern einen Jahreswert.
Zudem: Tag(1) ergibt 1
Tag(55) ergibt 24
Das ergibt aber mit einer Ostersonntagsfunktion absolut keinen Sinn.

hans

Re: Funktion Tag (Excel) und Day (VBA)
08.01.2003 14:07:23
L.Vira
TT = day(Wert)
Wenn Wert = 10 ist, liefert die Funktion den Tag des 9.1.1900
Re: Funktion Tag (Excel) und Day (VBA)
08.01.2003 14:14:34
Ernest
Hallo Hans

folgende Funktion fand ich für die Ermittlung des Ostersonntages eines jeden Kalenderjahres
=DM((TAG(MINUTE(A1/38)/2+55)&".4."&A1)/7;)*7-6 Formel von Norbert Hetterich

Die funktioniert auch so
mein Umsetzung
Function test(jahr As Integer) As Double
test = CLng((CDate(Day((Minute(jahr / 38) / 2 + 55)) & ".4." & jahr) / 7)) * 7 - 6

End Function

und dabei bin ich über diesen Fehler gestolpert.
Wobei die Hilfe zu beiden Funktionen (Tag und Day) fast identisch sind.

Ernest

Anzeige
Re: Funktion Tag (Excel) und Day (VBA)
08.01.2003 14:24:17
Hans W. Herber
Hallo Ernest,

achso, die Hetterich-Formel.
Nein, das läßt sich nicht so umsetzen. Die Day-Funktion steht hier in einem größeren Zusammenhang.

VBA- und Excel-Tag ist zwar - bis auf einen geringen Zeitraum am Anfang der Excel-Zeitberechnung - identisch, aber die Hetterich-Formel läßt sich so nicht auseinandernehmen.

Verwende für VBA:

hans

Re: Funktion Tag (Excel) und Day (VBA)
08.01.2003 14:42:32
Michael Scheffler
Hallo Hans,

und wenn er dei WorksheetFunction nimmt?

Dann hat er doch das gleiche Verhalten?

Gruß

Micha

Re: Funktion Tag (Excel) und Day (VBA)
08.01.2003 14:57:01
Hans W. Herber
Hallo Michael, Ernest,

bei meiner veröffentlichten Hetterich-Formel hatte sich ein Fehler eingeschlichen.

Statt:
=DM((TAG(MINUTE(A1/38)/2+55)&".4."&J)/7;)*7-6

Richtig:
=DM((TAG(MINUTE(J/38)/2+55)&".4."&J)/7;)*7-6

Dadurch ist das Problem vermutlich erst entstanden.

hans

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige