Anderes Datum als Feldebefehl

[yazoo]

Hallo, man kann ja in Calc oder auch Writer ein Feld mit dem aktuellen Rechnerdatum einfügen. ist es auch möglich ein anderes (festes) Datum was in der Zukunft liegt (z.B. in 1,2,3.....n Tagen) einzufügen.
Oder ich beschreibe es mal anders.

Ich möchte ein Formular erstellen, welches beim Druck oder Speichern den ersten Tag des Folgemonats nur dann ausgibt, wenn ich das Formular z.B. zwischen dem 26. und Ende des Monats erstelle. An allen anderen Tagen soll das aktuelle Rechnerdatum verwendet werden.

Geht das, und wenn ja wie?

[F3K Total]

Moin,
klar geht das, per Makro.
Ich habe in angehängter Beispieldatei einen Platzhalter "DATUM" eingefügt, das folgende Makro setzt das Datum in den Platzhalter so ein, wie du es möchtest, heute z.B. 01.04.2019.
Man kann das Makro natürlich auch an Ereignisse wie Drucken oder Speichern binden, das überlasse ich Dir.

Code: Alles auswählen

Sub set_Date
    enumTextfields = ThisComponent.Textfields.createEnumeration	
	Do While enumTextfields.hasMoreElements
		thisTextfield = enumTextfields.nextElement		
		If thisTextfield.supportsService("com.sun.star.text.TextField.JumpEdit") Then
	        if thisTextfield.PlaceHolder = "DATUM" Then
	            if day(now) >= 26 then
	                sMonth = month(now())+1
	                sYear = Year(now()
	                if len(sMonth) = 1 then sMonth = "0" + sMonth
	                if Month(now()) = 12 then
	                    sMonth = "01"
	                    sYear = Year(now())+1
	                endif
	                sDate = "01."+sMonth+"."+Year(now())
	              else
	                sDate = format(cDate(now()),"DD.MM.YYYY"
	            'xray
	            endif
	            thisTextfield.Anchor.String = sDate
	        endif
		END IF
	loop
End Sub

Gruß R

[yazoo]

Habe schon herausgefunden.
mit dieser Formel klappt es auch ohne Makro.
=WENN(HEUTE()>=DATUM(JAHR(HEUTE());MONAT(HEUTE());27);MONATSENDE(HEUTE();0)+1;HEUTE())

Aber trotzdem Danke!

[F3K Total]

Aber wohl nicht in Writer ...

[Mondblatt24]

Hallo,

mit dieser Formel klappt es auch ohne Makro.
=WENN(HEUTE()>=DATUM(JAHR(HEUTE());MONAT(HEUTE());27);MONATSENDE(HEUTE();0)+1;HEUTE())

mit dieser Formel auch (aber auch nur in calc).

Code: Alles auswählen

WENN(TAG(HEUTE())>26;MONATSENDE(HEUTE();0)+1;HEUTE())

Gruß Peter

[yazoo]

Aber wohl nicht in Writer ...

Ja, das stimmt, mir ging´s hauptsächlich darum, dass es in einem von beiden funktioniert, und da es in Calc ging ist das für Writer nicht mehr so interessant für mich.

Aber da taucht noch ein anderes Problem auf. Kann man das auch so realisieren, dass er das nur einmal macht (vielleicht in Abhängigkeit mit einer x-beliebigen Zelle ,in der ich was eintragen muss bevor er den Befehl ausführt)? Ich möchte mir nämlich dieses Dokument für jeden Monat in eine andere Tabelle kopieren, wobei dann nur noch die aktuelle Tabelle geändert werden darf. Ich hatte gedacht, dass durch einen Tabellenschutz auch ein automatisches Aktualisieren der Daten verhindert wird, aber dem ist wohl nicht so. Nun bin ich auch kein großer "Calc - Experte",aber das wird doch sicherlich auch zu realisieren sein`?

Aber vielleicht muss ich das auch in einen neuen Post schreiben, wollte es erst einmal so probieren.

[F3K Total]

http://de.openoffice.info/viewtopic.php?t=56497

[yazoo]

Jau Danke, funktioniert !!!!!