OpenOffice.org Macros Explained - LibreOffice-NA.US

second correspond to the numbers 1/24, 1/(24 * 60), and 1/(24 * 60 * 60), respectively. The date functions
supported by OOo Basic are introduced in Table 10 and fully discussed later.
Listing 15. Demonstrate date variables.
Sub ExampleDateType
Dim tNow As Date, tToday As Date
Dim tBirthDay As Date
tNow = Now()
tToday = Date()
tBirthDay = DateSerial(1776, 7, 4)
Print "Today = " & tToday
Print "Now = " & tNow
Print "A total of " & (tToday - tBirthDay) &_
" days have passed since " & tBirthDay
End Sub
Negative numbers are valid and correspond to dates before December 30, 1899. January 1, 0001,
corresponds to the floating-point number -693,595. Continuing backward produces dates that are B.C.
(Before Christ, sometimes also referred to as B.C.E., meaning Before the Christian Era, or Before the
Common Era) rather than A.D. (Anno Domini). A thorough discussion of date handling is presented later.
Table 10. Functions and subroutines related to dates and times.
Function Type Description
CDate(expression) Date Convert a number or string to a date.
CDateFromIso(string) Date Convert to a date from an ISO 8601 date representation.
CDateToIso(date) String Convert a date to an ISO 8601 date representation.
Date() String Return the current date as a String.
DateSerial(yr, mnth, day) Date Create a date from component pieces: Year, Month, Day.
DateValue(date) Date Extract the date from a date/time value by truncating the decimal portion.
Day(date) Integer Return the day of the month as an Integer from a Date value.
GetSystemTicks() Long Return the number of system ticks as a Long.
Hour(date) Integer Return the hour as an Integer from a Date value.
IsDate(value) Boolean Is this a date
Minute(date) Integer Return the minute as an Integer from a Date value.
Month(date) Integer Return the month as an Integer from a Date value.
Now() Date Return the current date and time as a Date object.
Second(date) Integer Return the seconds as an Integer from a Date value.
Time() String Return the time as a String.
Timer() Date Return the number of seconds since midnight as a Date. Convert to a Long.
TimeSerial(hour, min, sec) Date Create a date from component pieces: Hours, Minutes, Seconds.
WeekDay(date) Integer Return the integer 1 through 7, corresponding to Sunday through Saturday.
Year(date) Integer Return the year as an Integer from a Date value.
40