Question

我需要将标准dd.mm.yyyy格式的今天日期+ 14天字符串转换为Libre Office calc单元格。

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

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天进入单元格

2 个答案: