Calcolo ritardo tra record.

Ciao Vladimiro,

prova a valutare la seguente funzione che, apparentemente, restituisce un risultato corretto sulla base delle evidenze precedenti.

Option Compare Database

Option Explicit

Private iContaP As Integer

Public Function fCalcolaRitardi(ByVal dData As Date, ByVal dOra As Date) As Integer

    Dim db As DAO.Database

    Dim rst As DAO.Recordset

    Dim dDataPrec As Date

    Dim dOraPrec As Date

    Dim sGGPrec As String

    Dim iRitardo As Integer

    Set db = CurrentDb

    'Set rst = db.OpenRecordset("SELECT Data, Ora, GG From tRitardi " _

            & "WHERE cdbl(Data) + cdbl(Ora) <= " & Replace(CDbl(dData) + CDbl(dOra), ",", ".") _

            & " ORDER BY Data, ORA")

    Set rst = db.OpenRecordset("SELECT Data, Ora, GG From tRitardi " _

            & "WHERE CDbl(([Data]) + Cdbl([Ora])) <= " & Replace(CDbl(dData + dOra), ",", ".") _

            & " ORDER BY Data, Ora")

    With rst

        iContaP = 0

        Do While Not .EOF

            Debug.Print !Data; !Ora; !GG

            If !GG = "V" Then

                If sGGPrec = "V" Then

                    iRitardo = 0

                Else

                    iRitardo = iContaP + 1

                End If

            Else

                If sGGPrec = "V" Then

                    If dDataPrec <> !Data Then

                        iContaP = iContaP + 1

                    Else

                        If iRitardo > 0 Then

                            iContaP = 0

                        Else

                            iContaP = 1

                        End If

                    End If

                    iRitardo = 0

                Else

                    iRitardo = 0

                End If

            End If

            dDataPrec = !Data

            dOraPrec = !Ora

            sGGPrec = !GG

            .MoveNext

        Loop

        Debug.Print "Data: " & dDataPrec; " | Ora: " & dOraPrec; " | GG: " & sGGPrec; _

                    " | Ritardo: " & iRitardo; " | ContaP: " & iContaP

    End With

    fCalcolaRitardi = iRitardo

    rst.Close

    db.Close

    Set rst = Nothing

    Set db = Nothing

End Function

David

Ciao Vladimiro,

come ho un po' di tempo mi ci rimetto di impegno.

David

Ciao,

ok, posso ancora sperare allora! :-)

Vladimiro

Ciao Vladimiro,

come ho un po' di tempo mi ci rimetto di impegno.

David

Ciao David,

c'è ancora possibilità di trovare una soluzione?

Vladimiro

Ciao David,

eccomi qui.

Continuano ad esserci cose che non capisco :-(

• la P del 29/01 ore 16 vale 1

- la P del 30/01 ore 14 vale 0

Essendo la data del 29/01 una data univoca, la P vale 1.

Il significato di quanto detto deriva dal fatto che nella giornata del 29/01 si è giocato una sola volta per cui la P anche se perdente, bisogna comunque considerarla.

Cosa diversa la P del 30/01 in quanto si trova coinvolta in più date simili (con orari naturalmente diversi) e con la presenza di una V.

Quando in una stessa data formata da più date simili c'è una V, tutte le P coinvolte in quella data si annullano e le altre eventuali V assumono il valore di zero.

perchè invece

• la P del 01/02 ore 16 vale 1

- la P del 02/02 ore 14 vale 1

Per la P del 01/02 vale lo stesso discorso di sopra riguardante la data univoca.

Per quanto riguarda la P del 02/02:

quando in una stessa data formata da più date simili c'è solo la presenza della P, vale solo una P =1 e le altre si annullano.

Vladimiro