Beregning af tillæg

Ps. gerne i vb kode

der er en type TimeSpan som indeholder tidsintervaller

Dim diff as TimeSpan
og f.eks.
diff = til-dato - fra-dato

og du kan trække differ ud som dage, timer osv osv - slå den op på msdn

Hvis det var mit problem så ville jeg løse det på følgende måde :
1. Beregn hvor mange tillægstimer der er på startdagen
2. Beregn hvor mange timer der er på slutdagen
3. Beregn hvor mange  dage der er mellem fra-dato.adddays(1).date  og til-dato.date  - antallet af dage x 13 timer vil give dig antallet af tillægstimer


Jeg kan desværre ikke bakse med det lige nu,  men ovenstående burde give dig en start :)

Hej neoman. Jeg har nu siddet og rodet lidt med det på et stykke papir for at få hold på funktionen, men uden det store held. Det bliver hurtigt lidt rodet for mig med en masse if-sætninger og derfor ikke særligt elegant. Hvis du får tid og har lyst vil jeg blive glad for et forslag fra dig.

Dim vagtdato(2) As Date
        Dim tmpdato As Date
        Dim tillaegstimer As Integer

        vagtdato(0) = "01-01-2007 22:00"
        vagtdato(1) = "02-01-2007 23:00"

        tmpdato = vagtdato(0)

        tmpdato = tmpdato.AddHours(1)
        While tmpdato < vagtdato(1)


            Select Case tmpdato.Hour

                '17- midnat hvor mange timer
                Case 17, 18, 19, 20, 21, 22, 23
                    tillaegstimer = tillaegstimer + 1
                    '01-06 om natten
                Case 0, 1, 2, 3, 4, 5, 6
                    tillaegstimer = tillaegstimer + 1

            End Select

            tmpdato = tmpdato.AddHours(1)


        End While