Libreoffice calc 宏将当前日期 + 14 天放入单元格

Posted 2023-02-24

【中文标题】Libreoffice calc 宏将当前日期 + 14 天放入单元格

【英文标题】：Libreoffice calc macro to get current date + 14 days into a cell

【发布时间】：2015-10-04 22:11:15

【问题描述】：

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

我已经尝试过下面的代码，但是我缺乏处理“未设置对象变量”错误的知识。

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

也欢迎就如何完成此操作而不是宏提出不同的想法。

【参考方案1】：

嗯，不确定这是否能回答您实际尝试执行的具体操作，但您可以轻松获取当前日期，并直接在单元格公式中为其 +14。

像这样：

=NOW()+14

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

【讨论】：

谢谢，我用这个函数录制了一个宏，然后将格式应用于单元格。现在我可以将它绑定到键盘快捷键。

【参考方案2】：

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