Habus Homepage
OpenOffice
Home
Download
OpenOffice
Linksammlung
Kontakt
Rechtliches
Tipps und Tricks OpenOffice Macro
Hier finden sie ein paar Hinweise zur Bedienung von OpenOffice Macro
Die Osterformel einbauen
Die Osterformel wurde vom Mathematiker Gaus aufgestellt. Hier ist die OOo-Basic Routine dazu.
Function Ostern(Yr As Integer)
Dim D As Integer
D = (((255 - 11 * (Yr Mod 19)) - 21) Mod 30) + 21
Ostern = DateSerial(Yr, 3, 1) + D + (D > 48) + 6 - _
((Yr + Yr \ 4 + D + (D > 48) + 1) Mod 7)
End Function
Writer
Calc
Impress
Draw
OOo-Basic
Macros