OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

tanner5

Člen

Registrace: 18. 4. 2020

Příspěvků: 50

funkce EDATE "VYŘEŠENO"

Tak jsem jeden zádrhel vyřešil a mám nový...

Jak mám zadata funkci Edate pomocí makra?

Jedná se o toto...
Dialogové okno, pole datum_do.. zadám datum... V dialogovém okně je dále políčko datum_ok a tam bych potřeboval načíst výsledek funkce edate ...datum_do -2 měsíce.
Mohl bych to vyřešit pomocným sloupcem atd , ale toto řešení by mi přišlo elegantnější a možná lepší.
Díky za tip

Editoval tanner5 (2. 3. 2022 21:07:00)

kamlan

Člen

Registrace: 15. 9. 2016

Příspěvků: 368

Re: funkce EDATE "VYŘEŠENO"

Tohle je jednodušší Basicem a fcí DateAdd. Ale ukázka i pro volání funkce Calcu.

Sub pridatKdatumu	
	const s="22.3.2022" 'datum
	const i=1 'kolik měsíců přidat
	rem čistě Basicem
	msgbox DateAdd("m", 1, s) 'přidat k datu hodnotu, parametry fce najdete v Nápovědě
	rem přes funkci Calcu
	dim oFunction as object, vysledek
	oFunction=createUnoService("com.sun.star.sheet.FunctionAccess")
	vysledek=oFunction.callFunction("EDATE", array(s, i))
	msgbox CDate(vysledek)
End Sub