Как лучше всего провести рабочий день?
У меня есть ситуация, когда я хочу добавить часы к дате и перенести новую дату вокруг рабочего дня. Я придумал функцию для определения этой новой даты, но хочу убедиться, что ничего не забываю.
Добавляемые часы называются «задержкой». Вместо этого он мог бы быть параметром функции.
Пожалуйста, отправьте любые предложения. [Предупреждение VB.NET]
Private Function GetDateRequired() As Date
''// A decimal representation of the current hour
Dim hours As Decimal = Decimal.Parse(Date.Now.Hour) + (Decimal.Parse(Date.Now.Minute) / 60.0)
Dim delay As Decimal = 3.0 ''// delay in hours
Dim endOfDay As Decimal = 12.0 + 5.0 ''// end of day, in hours
Dim startOfDay As Decimal = 8.0 ''// start of day, in hours
Dim newHour As Integer
Dim newMinute As Integer
Dim dateRequired As Date = Now
Dim delta As Decimal = hours + delay
''// Wrap around to the next day, if necessary
If delta > endOfDay Then
delta = delta - endOfDay
dateRequired = dateRequired.AddDays(1)
newHour = Integer.Parse(Decimal.Truncate(delta))
newMinute = Integer.Parse(Decimal.Truncate((delta - newHour) * 60))
newHour = startOfDay + newHour
Else
newHour = Integer.Parse(Decimal.Truncate(delta))
newMinute = Integer.Parse(Decimal.Truncate((delta - newHour) * 60))
End If
dateRequired = New Date(dateRequired.Year, dateRequired.Month, dateRequired.Day, newHour, newMinute, 0)
Return dateRequired
End Sub
Примечание: Вероятно, это не сработает, если задержка превышает 9 часов. Он никогда не должен меняться с 3 до.
Обновлено: Цель состоит в том, чтобы найти дату и время, которые вы получите в результате добавления нескольких часов к текущему времени. Это используется для определения значения по умолчанию для срока подачи заявки. Я хочу добавить 3 часа к текущему времени, чтобы получить срок выполнения. Однако я не хочу, чтобы сроки сдачи выходили за пределы 17:00 текущего дня. Итак, я попытался разделить часы между (сегодня, до 17:00) и (завтра, с 8:00), так что добавление 3 часов к 16:00 даст вам 19:00, потому что 1 час добавляется к концу сегодняшнего дня и 2 часы добавляются к началу завтрашнего дня.
Ответы 3
Вам, вероятно, следует написать несколько автоматических тестов для каждого условия, которое вы можете придумать, а затем просто начать мозговой штурм, записывая тесты так, как вы о них думаете. Таким образом, вы можете убедиться, что он будет работать, и продолжит работать, если вы внесете в него дальнейшие изменения. Если вам нравятся результаты, посмотрите Test Driven Development.
Хорошо, а как насчет этого? Разница между подходами должна говорить сама за себя.
Кроме того, это проверено, насколько я могу его бросить. Гарантия длится до ... сейчас.
Надеюсь, это поможет!
Module Module1
Public Function IsInBusinessHours(ByVal d As Date) As Boolean
Return Not (d.Hour < 8 OrElse d.Hour > 17 OrElse d.DayOfWeek = DayOfWeek.Saturday OrElse d.DayOfWeek = DayOfWeek.Sunday)
End Function
Public Function AddInBusinessHours(ByVal fromDate As Date, ByVal hours As Integer) As Date
Dim work As Date = fromDate.AddHours(hours)
While Not IsInBusinessHours(work)
work = work.AddHours(1)
End While
Return work
End Function
Public Function LoopInBusinessHours(ByVal fromDate As Date, ByVal hours As Integer) As Date
Dim work As Date = fromDate
While hours > 0
While hours > 0 AndAlso IsInBusinessHours(work)
work = work.AddHours(1)
hours -= 1
End While
While Not IsInBusinessHours(work)
work = work.AddHours(1)
End While
End While
Return work
End Function
Sub Main()
Dim test As Date = New Date(2008, 8, 8, 15, 0, 0)
Dim hours As Integer = 5
Console.WriteLine("Date: " + test.ToString() + ", " + hours.ToString())
Console.WriteLine("Just skipping: " + AddInBusinessHours(test, hours))
Console.WriteLine("Looping: " + LoopInBusinessHours(test, hours))
Console.ReadLine()
End Sub
End Module
Я работал со следующей формулой (псевдокодом) с некоторым успехом:
now <- number of minutes since the work day started
delay <- number of minutes in the delay
day <- length of a work day in minutes
x <- (now + delay) / day {integer division}
y <- (now + delay) % day {modulo remainder}
return startoftoday + x {in days} + y {in minutes}
Я искал способ решить эту проблему модульной операцией. Крутая вещь.