呂理群的部落格

src: http://www.debugpoint.com/2014/11/date-and-time-processing-in-libreoffice-calc-using-macro/

在 LibreOffice Calc 使用巨集處理日期及時間

新增“月日”到日期

例一：使用DateValue函數把字元格式轉成日期格式

<code>
Dim my_date As Date '宣告變數
my_date = DateValue("Nov 20, 2014") '使用DateValue函數把字元格式轉成日期格式
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,1) '指定儲存格位置
my_cell.String = my_date '把my_date指定給my_cell.String
</code>

例二：使用 DateAdd 函數把日期往後調整(參數m代表月份，參數d代表天數)

<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,3)
my_cell.String = DateAdd("d", 3, my_date)

my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,5)
my_cell.String = DateAdd("m", 3, my_date)
</code>

例三：日期的格式化
** 格式 1 – 結果: 20 – 11 – 14 **
<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,7)
my_cell.String = Format(my_date, "d - m - yy") ' 20 - 11 - 14
</code>

** 格式 2 – 結果: 20 Nov 2014 **

<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,9)
my_cell.String = Format(my_date, "d MMM yyyy") '20 Nov 2014
</code>

** 格式 3 – 結果: 20 November 2014 **

<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,11)
my_cell.String = Format(my_date, "d MMMM yyyy") '20 November 2014
</code>

** 格式 4 – 結果: Thursday, 20 Nov 2014 **
<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,13)
my_cell.String = Format(my_date, "dddd, d MMM yyyy") 'Thursday, 20 Nov 2014
</code>

** 格式 5 – 結果: Thursday, 20 November 2014 **

<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,15)
my_cell.String = Format(my_date, "dddd, d MMMM yyyy") 'Thursday, 20 November 2014
</code>

時間處理

Now函數：顯示現在日期及系統時間包含小時分秒
<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,17)
my_cell.String = Now
</code>

Hour函數：顯示小時
<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,19)
my_cell.String = Hour(Now)
</code>

Minute函數：顯示分鐘
<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,21)
my_cell.String = Minute(Now)
</code>

Second函數：顯示秒數
<code>
my_cell = ThisComponent.Sheets(0).getCellbyPosition(1,23)
my_cell.String = Second(Now)
</code>