VBA 将单元格中的日期范围与持续时间分开

Question

This post 下的 Søren Holten Hansen 的代码实际上包含了我的部分答案，但并不完全。
我需要将日期与它们各自的持续时间分开。

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

我需要它看起来像这样：
11 月 3 日     1
11 月 4 日     1
11 月 5 日     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]) )" 范围（“E21”）。选择

谢谢你，
马文。

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

当您运行 avobe 代码的“test_print_date()”时，您可能会在单元格 A1:B3 上看到输出。