OpenOffice.info

Function eastersunday(myDate As Long) 'As Long

Dim myYear
myYear = Year(myDate)

eastersunday =int(cdate(( Minute(myYear / 38) / 2 + 55 < 60)+Day(Minute(myYear / 38) / 2 + 55) & ".4." & myYear)/7+.5)*7-6
End Function

=EASTERSUNDAY(DATUM(2024;1;1))

Hallo,
wenn ich in einer Calc-Datei die folgende Funktion als Makro anlege:
[code]Function eastersunday(myDate As Long) 'As Long

Dim myYear
myYear = Year(myDate)

eastersunday =int(cdate(( Minute(myYear / 38) / 2 + 55 < 60)+Day(Minute(myYear / 38) / 2 + 55) & ".4." & myYear)/7+.5)*7-6
End Function[/code]
dann funktioniert der Aufruf zum Beispiel per
[code]=EASTERSUNDAY(DATUM(2024;1;1))[/code]
einfacher wäre es natürlich der Funktion nur das Jahr zu übergeben. Die integrierte Funktion OSTERSONNTAG() erledigt das Problem ja sowieso.

[quote=Neandertaler post_id=301483 time=1709214140 user_id=67065]
.... Mir geht es auch im das Prinzip. Ich habe nun versucht, in Basic die Funktion EASTERSUNDAY aufzurufen. ...
[/quote]

Im Prinzip sind die Welten getrennt, d.h. BASIC weiss nicht, dass es eine Funktion EASTERSUNDAY in Calc gibt. Das muss man erst bekanntgeben.

Vgl:
https://forum.openoffice.org/en/forum/viewtopic.php?t=110081

Irgendwie hat es sich beruhigt und es funktioniert. Mir geht es auch im das Prinzip. Ich habe nun versucht, in Basic die Funktion EASTERSUNDAY aufzurufen. Aber es kommt ein paar mal die Fehlermeldung

BASIC-Laufzeitfehler.
'35'
Prozedur Sub oder Function nicht definiert.
Zusätzliche Informationen: EASTERSUNDAY

Mit Shift-F8 kommt dann die Fehlermeldung

BASIC-Laufzeitfehler.
'449'
Argument ist nicht optional

Du hast Glück, die Funktion [b][color=#FF0000]OSTERSONNTAG[/color][/b] gibts bereits als Calc-funktion, du darfst daher das gute Stück UDF einfach löschen!


[u]apropos UDFs testen:[/u]
[quote]Function osterSonntag( [color=#FF0000][size=150]myDate As Long[/size][/color] ) As Long[/quote]

Was glaubst du woher die Funktion das Argument: [color=#FF0000][size=150]myDate As Long[/size][/color] hernimmt, wenn du sie einfach so direkt aus der Basic-IDE aufrufst?

Function osterSonntag(myDate As Long) As Long

Dim myYear
myYear = Year(myDate)

Dim tmp As Long

If Minute(myYear / 38) / 2 + 55 < 60 Then
tmp = 1
Else
tmp = 0
End If

osterSonntag = _
WorksheetFunction.Round((CDate(Day(Minute(myYear / 38) / 2 + 55) + _
tmp & ".4." & myYear) / 7), 0) * 7 - 6


End Function



Fehlermeldung ist:

BASIC-Laufzeitfehler.
'449'
Argument ist nicht optional.

Mir
Fällt jetzt nur auf das du offenbar die Fehlermeldung falsch abgetippt hast ( Hint: copy&paste existiert )

Mehr kann ich, trotz der [u]überwältigenden[/u] Informationsmenge von deiner Seite, auch nicht erraten!

[color=#FF0000]edit (Modaration: mikeleb):[/color] Thema von Calc nach Makros und allgemeine Programmierung verschoben

Ich versuche eine Excel-Datei zu LibreOffice zu migrieren.

Bei den folgenden Zeilen erscheint die Fehlermeldung "basic-Laufzeitfehler 449 Arguent ist nicht optional.

Dim myYear
myYear = Year(myDate)