TimeTracker macro for LibreOffice

Checkpoint.bas

const START_COLUMN = 0
const STOP_COLUMN = 1
const MAX_ROW = 1000

function FormattedDate as string
	FormattedDate = Format(Now, "yyyy-mm-dd hh:mm:ss")
end function

sub Checkpoint
	let sheet = ThisComponent.CurrentController.ActiveSheet

	let row = 0
	let startCell = sheet.getCellByPosition(START_COLUMN, row)
	let stopCell = sheet.getCellByPosition(STOP_COLUMN, row)

	do until stopCell.string = "" or row > MAX_ROW
		startCell = sheet.getCellByPosition(START_COLUMN, row)
		stopCell = sheet.getCellByPosition(STOP_COLUMN, row)
		row = row + 1
	loop

	if startCell.string = "" then
		startCell.string = FormattedDate
	else
		stopCell.string = FormattedDate
	end if

end sub