如何使用userform在会议之间生成相等的时间间隔
如何使用userform在会议之间生成相等的时间间隔
提问于 2020-05-10 19:15:25
我想知道在输入“会议次数”、“开始时间”和“结束时间”(如下图所示)后，如何在工作表上生成相等的会议时间间隔。在将信息输入到用户表单时，“生成”按钮将列出所指示的“开始时间”和“结束时间”之间的所有会议。
例如，有5个会议，开始时间为12:00，结束时间为17:00。生成按钮将显示5个会议，所有空间间隔1小时。1次会议将在下午12点，1次会议将是下午1点，以此类推……
当前代码
目前，我正在计算开始和结束时间之间的时间差，并计算每次会议的可用时间。我不知道如何在间隔相等的情况下显示所有5个会议。
Private Sub generate_btn_Click()
totalHour = DateDiff("n", startTime, endTime) / 60
timePer = num_observation / totalHour
End Sub回答 1
Stack Overflow用户
回答已采纳
发布于 2020-05-10 19:29:35
这里的关键是使用TimeValue将时间作为适当的时间来解析字符串，然后所有的计算都变得很容易：
Sub CalculateHours(numberOfMeetings As String, startTime As String, endTime As String)
startHour = TimeValue(startTime)
endHour = TimeValue(endTime)
differenceTime = endHour - startHour
meetingDuration = differenceTime / numberOfMeetings
For i = 1 To numberOfMeetings
Cells(i, 1) = startHour + meetingDuration * (i - 1)
Next
End Sub
Sub Test()
' Here's how you call it, the parameters will come from your form
Call CalculateHours(5, "12:00", "14:00")
End Sub输出结果为：
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/61711066
复制相关文章
相似问题
腾讯云开发者
