Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Function Schaltjahr(ByVal j As Long) As Long<br />
Schaltjahr = 0<br />
If (j Mod 400 = 0) Or (j Mod 4 = 0 And j Mod 100 0) _<br />
Then Schaltjahr = 1<br />
End Function<br />
Schaltjahr <br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
Function LaufendeNr(ByVal j As Long, ByVal m As Long, _<br />
ByVal t As Long) As Long<br />
If (m < 3) Then<br />
LaufendeNr = (m - 1) * 31<br />
ElseIf (m < 9) Then<br />
LaufendeNr = (m - 1) * 30 + (m - 1) \ 2 + Schaltjahr(j) - 2<br />
Else<br />
LaufendeNr = 243 + Schaltjahr(j) + (m - 9) * 30 + (m - 9)\2<br />
End If<br />
LaufendeNr = LaufendeNr + t<br />
End Function