Denkanstoss zur Zeitberechnung

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von hal2000.

    Denkanstoss zur Zeitberechnung

    Ich benötige mal einen Denkanstoss um folgendes zu lösen

    Festlegung

    20:00:00 bis 00:00:00 = 10%
    00:00:00 bis 04:00:00 = 20%
    04:00:00 bis 06:00:00 = 15%

    Zeitspanne
    22:00:00 bis 04:30:00

    als ergebins müste rauskomme

    2 Stunden x 10%
    4 Stunden x 20%
    0,5 Stunden x 15%

    mir fehlt im Moment eine Idee das umzusetzen.

    Hat jemand von euch eine Idee.

    Vielen Dank schon mal Norbert
    CCU2 • Raspberry für Wetterstation • ioBroker • HP ProLiant MicroServer Gen8 12GB 2x3TB Server 2012 R2 • PHP • MYSQL • VB.NET (Anfänger)

    Hier mal meine Lösung dazu:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    5. Dim t As New TimeCollection
    7. t.Add("20:00", "0:00", 0.1)
    8. t.Add("0:00", "4:00", 0.2)
    9. t.Add("4:00", "6:00", 0.15)
    11. For Each x In t.EnumerateTimespan("22:00", "4:30")
    12. Console.WriteLine("{0}h {1}%", x.Item1, x.Item2 * 100)
    13. Next
    15. Console.ReadLine()
    16. End Sub
    18. End Module
    20. Class TimeCollection
    21. Private diffs As New List(Of TimeSpan)
    22. Private values As New List(Of Double)
    23. Private beginTime As Date?
    25. Public Sub Add(t1 As String, t2 As String, p As Double)
    26. Dim d1 = Date.Parse(t1)
    27. Dim d2 = Date.Parse(t2)
    28. Dim diff As TimeSpan
    30. If d1 < d2 Then
    31. diff = d2 - d1
    32. Else
    33. diff = TimeSpan.FromHours(24) - (d1 - d2)
    34. End If
    36. diffs.Add(diff)
    37. values.Add(p)
    39. If Not beginTime.HasValue Then
    40. beginTime = d1
    41. End If
    42. End Sub
    44. Public Iterator Function EnumerateTimespan(t1 As String, t2 As String) As IEnumerable(Of Tuple(Of TimeSpan, Double))
    45. If diffs.Count = 0 Then Return
    47. Dim d1 = Date.Parse(t1)
    48. Dim d2 = Date.Parse(t2)
    50. ' Shift both limits one day into future if the
    51. ' lower limit is "earlier" than the first data point
    52. If d1 < beginTime.Value Then
    53. d1 = d1.AddDays(1)
    54. d2 = d2.AddDays(1)
    55. End If
    57. ' Shift the upper limit an additional day
    58. ' into future if upper limit < lower limit
    59. If d1 > d2 Then
    60. d2 = d2.AddDays(1)
    61. End If
    63. Dim spot As Date = beginTime.Value
    64. Dim i As Int32 = 0
    66. ' Adjust spot to match the lower limit
    67. While d1 > spot And i < diffs.Count
    68. spot = spot.Add(diffs(i))
    70. ' Yield initial difference
    71. If d1 < spot Then
    72. Yield New Tuple(Of TimeSpan, Double)(spot - d1, values(i))
    73. End If
    75. i += 1
    76. End While
    78. ' Stop if data is already exhausted
    79. If i = diffs.Count Then Return
    81. ' Yield all intermediate differences
    82. While i < diffs.Count AndAlso spot.Add(diffs(i)) < d2
    83. spot = spot.Add(diffs(i))
    84. Yield New Tuple(Of TimeSpan, Double)(diffs(i), values(i))
    85. i += 1
    86. End While
    88. ' Stop if data is already exhausted
    89. If i = diffs.Count Then Return
    91. ' Yield final difference
    92. Yield New Tuple(Of TimeSpan, Double)(d2 - spot, values(i))
    94. End Function
    96. End Class


    Den Iterator finde ich ein wenig hässlich, aber es funktioniert. Folgende Annahmen habe ich getroffen:

    - Ist die untere Grenze der gewünschten Zeitspanne kleiner als der erste Zeitpunkt, ist der nächste Tag gemeint
    - Ist die obere Grenze des Zeitintervalls kleiner als die untere, ist ebenfalls der nächste Tag gemeint.
    Gruß
    hal2000

    @nobse Vielleicht ist es besser, gleich eine vollständige Lösung zu implementieren, also:
    Wie sind die Festlegungen von 6 bis 20 Uhr, so dass da 100% rauskommen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ich würde eine "While" Schleife schreiben die eine Variablen "Startzeit" immer ein Minutee anhebt.
    In der While eine Select Case Variablen "Startzeit" und Case mit den 3 +1 Bereichen (Zeiten) 0% / 10% / 15% / 20% und über 4 Variablen dann jeweils eine Minute dazuzählen.
    Wenn die Endzeit erreicht ist, dann hast Du alle Werte die Du benötigst..

    Hallo

    vielen Dank für Eure Beiträge.

    @hal2000 Danke für deinen Code der hat auf anhieb super funktioniert.

    @RodFromGermany Die andere Zeit gibt es 0%. Hier werden Zuschläge für die angegebene Zeit Berechnet.

    Ich werde den Code von hal2000 implementieren wenn er nichts dagegen hat.

    Gruß Norbert
    CCU2 • Raspberry für Wetterstation • ioBroker • HP ProLiant MicroServer Gen8 12GB 2x3TB Server 2012 R2 • PHP • MYSQL • VB.NET (Anfänger)

    nobse schrieb:

    Die andere Zeit gibt es 0%.
    AHa.
    Zuschläge für Arbeit während der Nachtstunden.
    So was muss einem gesagt werden.
    Nimm den normalen Satz und multipliziere den Anteil, der auf die Nachtzeit fällt, mit
    20:00:00 bis 00:00:00 = 10% ==> 1,1
    00:00:00 bis 04:00:00 = 20% ==> 1,2
    04:00:00 bis 06:00:00 = 15% ==> 1,15

    Zeitspanne
    22:00:00 bis 04:30:00
    ==>
    2 Stunden á 1,1
    4 Stunden á 1,2
    0,5 Stunden á 1,15
    Bei einem Stundenlohn von sagen wir 12 €:
    2 h * 12 € / h * 1,1 = 26,4 €
    4 h * 12 € / h * 1,2 = 57,6 €
    0,5 h * 12 € / h * 1,15 = 6,90 €
    Summe = 90,90 €
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende