Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 17. 2. 2022 00:34:13

tanner5
Člen
Registrace: 18. 4. 2020
Příspěvků: 52

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)

Offline

#2 17. 2. 2022 09:35:57

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

Offline

Zápatí