结算时间的编程实现方式可以根据具体需求和场景来定制。以下是一个基于Excel VBA的示例，用于计算并确定结算日期。这个示例假设结算日期是每周的特定几天（如下周一、下周三等），并且可以根据交货日期来推算结算日期。
步骤：
计算交货日期的星期数和距本周结束的天数
使用 `WEEKDAY` 函数计算交货日期是星期几。
计算交货日期距离本周结束还有几天时间。
推算结算日期
根据得出的天数加上交货日期计算出当周星期天的日期。
使用 `WORKDAY.INTL` 函数来推算结算日期，其中自定义周末类型表示工作日为0，休息日为1。
示例代码：
```vba
Sub CalculateSettlementDate（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"） ' 修改为你的工作表名称
Dim deliveryDate As Date
deliveryDate = ws.Cells（2, 3）.Value ' 假设交货日期在C2单元格
' 计算交货日期是星期几（1表示星期日，7表示星期六）
Dim dayOfWeek As Integer
dayOfWeek = WEEKDAY（deliveryDate, 2）
' 计算交货日期距离本周结束还有几天时间
Dim daysUntilEndOfWeek As Integer
daysUntilEndOfWeek = 7 - dayOfWeek
' 计算当周星期天的日期
Dim settlementDate As Date
settlementDate = deliveryDate + daysUntilEndOfWeek
' 使用WORKDAY.INTL函数推算结算日期
' 假设结算日期是交货后的下周三，自定义周末类型为0111111（0表示工作日，1表示休息日）
Dim settlementWorkday As Integer
settlementWorkday = 1 + （3 - dayOfWeek）
settlementDate = WORKDAY.INTL（settlementDate, settlementWorkday, "0111111", ""）
' 输出结算日期
ws.Cells（2, 4）.Value = settlementDate
End Sub
```
解释：
计算星期几
`WEEKDAY（deliveryDate, 2）` 返回交货日期是星期几，其中2表示星期一为1，星期日为7。
计算距离本周结束的天数
`7 - dayOfWeek` 计算交货日期距离本周结束还有几天时间。
计算当周星期天的日期
`deliveryDate + daysUntilEndOfWeek` 计算出当周星期天的日期。
使用 `WORKDAY.INTL` 推算结算日期
`WORKDAY.INTL（settlementDate, settlementWorkday, "0111111", ""）` 推算出结算日期，其中 "0111111" 表示工作日为0，休息日为1。
注意事项：
请根据实际情况修改工作表名称和单元格引用。
如果结算日期不是固定的下周三，可以根据具体需求调整 `settlementWorkday` 的计算方式。
如果需要考虑节假日，可以在 `WORKDAY.INTL` 函数的第四个参数中添加假期日期。
这个示例提供了一个基本的结算日期计算框架，具体实现可能需要根据实际业务需求进行调整和优化。