Libreoffice calc 宏获取当前日期 + 14 天到一个单元格

Question

我需要将今天的日期 + 14 天的字符串以标准 dd.mm.yyyy 格式格式化到 Libre Office 计算单元中。

我已经尝试了下面的代码，但我缺乏处理 "Object variable not set" 错误的知识。

REM  *****  BASIC  *****

sub Datumplus14
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
Dim cell as object
dim term as date
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
term = today()
cell.String = DateAdd("d", 14, datum)

dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, cell)

end sub

也欢迎提出关于如何代替宏完成此操作的不同想法。

Answer 1

嗯，不确定这是否会回答您实际尝试做的具体问题，但您可以轻松获取当前日期并直接在单元格公式中直接 +14。

像这样：

=NOW()+14

剩下的只是将所需的日期格式应用于该单元格。您也可以从另一个单元格中获取日期。

Answer 2

Function myFunction() As String
    myFunction = Format(Now()+14, "dd.mm.yyyy")
End Function

Libreoffice calc 宏获取当前日期 + 14 天到一个单元格

Libreoffice calc macro to get current date + 14 days into a cell

macros

libreoffice-calc