Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
m - 1 <br />
t <br />
j <br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Function TageSeitGregor(ByVal j As Long, ByVal m As Long, _<br />
ByVal t As Long) As Long<br />
Dim i As Long<br />
TageSeitGregor = LaufendeNr(j, m, t)<br />
For i = 1582 To j - 1<br />
TageSeitGregor = TageSeitGregor + 365 + Schaltjahr(i)<br />
Next i<br />
End Function<br />
j <br />
LaufendeNr() <br />
i <br />
j - 1 TageSeitGregor <br />
<br />
TageSeitGregor(j, m, t) <br />
<br />
TageSeitGregor(j, m, t) + 4) Mod 7 <br />
WTag(j, m, t) <br />
TageSeitGregor(j, m, t) <br />
Function WTag(ByVal j As Long, ByVal m As Long, _<br />
ByVal t As Long) As String<br />
Select Case (TageSeitGregor(j, m, t) + 4) Mod 7<br />
Case 0: WTag = "Sonntag"<br />
Case 1: WTag = "Montag"<br />
Case 2: WTag = "Dienstag"<br />
Case 3: WTag = "Mittwoch"<br />
Case 4: WTag = "Donnerstag"<br />
Case 5: WTag = "Freitag"<br />
Case Else: WTag = "Samstag"