VBA单元格的日期范围与持续时间

Question

来自SørenHolten Hansen的代码 This post实际上有我的答案的一部分，但不完全。
我需要拆分日期以及各自的持续时间。

例如：
开始时间     结束日期     持续时间
11月3日                            5 - 11月                      2.5

我需要它看起来像这样：
11月3日    4 - 11月    5 - 11月      0.5

我需要半天才能显示在最后一天。我不知道如何做到这一点。 感谢此论坛提供的帮助。这真的会拯救我的生命！

我的代码：
ActiveCell.FormulaR1C1 = _ “= IF（AND（RC [-4] = R [-1] C [-4]，RC [-4] = R [1] C [-4]），R [-1] C [-2] -R [-1] C，IF（R [-1] C [-2] = R [-1] C，R [-1] C [-2]，R [-1] C [-2]）） 范

Answer 1

以下代码可能有助于解决您的问题。

'Function print_date 
' 1st argument: date of period begin 
' 2nd argument: date of period end 
' 3rd argument: duration in days 
' 
' CAUTION: This code does not check consistency between dates and duration. 
' If you set duration 1.5 between Nov-3 to Nov-5, this code raise no error 
' and you may see duration -0.5 on Nov-5. 
Function print_date(beginDay, endDay, duration) As Integer 
    Dim aDay As Date 
    Dim row As Integer 

    row = 1 
    For aDay = beginDay To endDay 
    Cells(row, 1) = aDay 'set date on first column 
    If duration > 1# Then 
     Cells(row, 2) = 1 'set 1 on second column because more one day left. 
    Else 'Duration is less than one day 
     Cells(row, 2) = duration 
    End If 
    duration = duration - 1# 
    row = row + 1 
    Next aDay 

End Function 

' Test routine I checked operation of print_date. 
Sub test_print_date() 
Dim a As Long 

a = print_date(DateValue("2014/11/03"), DateValue("2014/11/05"), 2.5) 


End Sub 

您可能会看到在单元格A1输出：B3当你运行 'test_print_date（）' avobe代码。