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.
If (d < TageSeitGregor(MyYear, 1, 1)) Then<br />
MyYear = MyYear - 1<br />
ElseIf (TageSeitGregor(MyYear, 12, 31) < d) Then<br />
MyYear = MyYear + 1<br />
Else<br />
Schluss = True<br />
End If<br />
’*** Vermeidet Idiotenschleife!!!***<br />
n = n + 1<br />
Loop While (n < 100 And Schluss = False)<br />
End Function<br />
Function MyMonth(d As Long)<br />
Dim y As Long, i As Long, l As Long, lni As Long<br />
y = MyYear(d)<br />
l = d - TageSeitGregor(y - 1, 12, 31)<br />
i = 12<br />
lni = LaufendeNr(y, i, 1)<br />
Do While (l < lni And i > 1)<br />
i = i - 1<br />
If i > 1 Then lni = LaufendeNr(y, i, 1)<br />
Loop<br />
MyMonth = i<br />
End Function<br />
Function MyDay(d As Long)<br />
Dim y As Long, i As Long, l As Long<br />
y = MyYear(d)<br />
i = MyMonth(d)<br />
MyDay = d - TageSeitGregor(y, i, 1) + 1<br />
End Function<br />
<br />
<br />
Vec2String() <br />
(v1, v2, . . . , vn) <br />
v <br />
MaxNorm()<br />
v p ≥ 1 <br />
<br />
<br />
u<br />
vp = |v(i)| p<br />
i=l<br />
1/p<br />
,