Libre Office

Ermittlung erster Mittwoch im Monat

Alles zur Programmierung im LibreOffice.
Antworten
RieChard
Beiträge: 2
Registriert: So 17. Mär 2024, 12:50

Ermittlung erster Mittwoch im Monat

Beitrag von RieChard » Mo 18. Mär 2024, 11:47

Hallo,
ich möchte im Writer ein Tabellenfeld mit dem Datum des ersten Mittwochs oder des ersten Freitags des aktuellen Monats befüllen.
Ist es prinzipiell möglich, das mit einem Makro zu berechnen?
Wenn ja, würde ich mich über ein paar Tipps/Hinweise/Beispiele freuen.
Danke und Gruß,
RieChard

mikele
* LO-Experte *
Beiträge: 2055
Registriert: Mo 1. Aug 2011, 20:51

Re: Ermittlung erster Mittwoch im Monat

Beitrag von mikele » Mo 18. Mär 2024, 21:13

Hallo,
das lässt sich berechnen.
In Python:

Code: Alles auswählen

from datetime import date
print(date(date.today().year,date.today().month,1+(3-date(date.today().year,date.today().month,1).isoweekday()) % 7))
In Basic

Code: Alles auswählen

msgbox cdate(DateSerial (Year(date), Month(date), 1+ (10-weekday(DateSerial (Year(date), Month(date), 1),0)) mod 7))
obiges gilt für den ersten Mittwoch (3. Tag der Woche). Für den freitag ersetze die 3 durch 5 (in Python ) bzw. die 10 durch 12 (in Basic).
Gruß,
mikele

Benutzeravatar
karolus
* LO-Experte *
Beiträge: 2720
Registriert: Fr 10. Dez 2010, 10:01

Re: Ermittlung erster Mittwoch im Monat

Beitrag von karolus » Di 19. Mär 2024, 00:08

@mikele: (etwas CodeGolf ;) )

Code: Alles auswählen

from datetime import datetime as dt, timedelta as delta

j, m = (x:=dt.today()).year, x.month
print(f"{(x:=dt( j, m, 7 ))-delta(days=(x.isoweekday() + 4)%7):%A the %Y-%m-%d}")
LO25.2.x.y debian 13(trixie) auf Raspberry5 8GB (64bit)
LO25.8.x.y flatpak debian 13(trixie) auf Raspberry5 8GB (64bit)

RieChard
Beiträge: 2
Registriert: So 17. Mär 2024, 12:50

Re: Ermittlung erster Mittwoch im Monat

Beitrag von RieChard » Do 21. Mär 2024, 08:12

Super, Danke!
Das war es was ich gebraucht habe.

Open Office
Antworten