Libre Office数据库数据录入表单自动功能实现咨询

一、自动识别周末并设置Weekend字段 #

1. 打开表单的设计模式（点击表单工具栏的“设计模式”按钮）。
2. 选中日期输入控件，右键选择「控件」→「事件」。
3. 在「失去焦点」或「文本改变」事件中，点击「...」按钮，选择「宏」→「新建」，进入LibreOffice Basic编辑器。
4. 粘贴以下代码，替换对应的控件名称（比如日期控件叫DateField，Weekend布尔控件叫WeekendCheckBox）：

Sub SetWeekend(oEvent As Object)
    Dim oForm As Object
    Dim oDateCtrl As Object
    Dim oWeekendCtrl As Object
    Dim iWeekDay As Integer
    
    oForm = oEvent.Source.Model.Parent
    oDateCtrl = oForm.getByName("DateField") ' 替换为你的日期控件名称
    oWeekendCtrl = oForm.getByName("WeekendCheckBox") ' 替换为你的Weekend布尔控件名称
    
    If Not IsNull(oDateCtrl.Value) Then
        iWeekDay = Weekday(oDateCtrl.Value)
        ' 周六=7，周日=1，部分区域周日为7，可根据系统区域调整
        If iWeekDay = 1 Or iWeekDay = 7 Then
            oWeekendCtrl.Value = True
        Else
            oWeekendCtrl.Value = False
        End If
    End If
End Sub

5. 保存宏，关闭编辑器，退出设计模式测试：输入日期后，Weekend字段会自动切换为“是”或“否”。

二、自动计算工作时长 #

1. 在表单设计模式下，选中下班时间控件，右键进入「事件」设置。
2. 在「失去焦点」事件中绑定宏，新建宏并粘贴以下代码（替换打卡时间控件CheckInTime、下班时间控件CheckOutTime、工作时长字段WorkHours的名称）：

Sub CalculateWorkHours(oEvent As Object)
    Dim oForm As Object
    Dim oInTime As Object
    Dim oOutTime As Object
    Dim oHoursCtrl As Object
    Dim nDiff As Double
    
    oForm = oEvent.Source.Model.Parent
    oInTime = oForm.getByName("CheckInTime") ' 替换为打卡时间控件名称
    oOutTime = oForm.getByName("CheckOutTime") ' 替换为下班时间控件名称
    oHoursCtrl = oForm.getByName("WorkHours") ' 替换为工作时长字段控件名称
    
    If Not IsNull(oInTime.Value) And Not IsNull(oOutTime.Value) Then
        ' 计算时间差（单位为天），转换为小时
        nDiff = (oOutTime.Value - oInTime.Value) * 24
        ' 保留两位小数，按需调整精度
        oHoursCtrl.Value = Round(nDiff, 2)
    End If
End Sub

3. 保存宏并退出设计模式：输入打卡和下班时间后，控件失去焦点时会自动计算并填充工作时长。

注意：务必根据你表单的实际控件名称替换代码中的对应字段；Weekday函数的周末判断逻辑可能因系统区域设置不同变化，可自行调整iWeekDay的判断值。

内容的提问来源于stack exchange，提问作者DC952