VB6 Confrontare orari

[Dr Mal]

'giorno a tutti,

Qualc1 ha qualke dritta su come confronatare le ore (intese come hh.mm)?

tipo dalle 22.30 alle 6.45 sono passate 8.15 ore

Nn esiste qualke function in vb ke mi fa sto calcolo automaticamente oppure devo x forza implementare 1 routine? :master:

Ho provato con dateDiff ma la gestione è 1 po' complicata.....

grazie,

[xegallo]

secondo me datediff è abbastanza facile

Private Function CalcolaIntervallo(DatIni As String, OraIni As String, DatFin As String, OraFin As String) As String
'########################################################################################
'# la funzione restituisce il tempo trascorso espresso in giorni ore e minuti da una    #
'# data e ora iniziale a una data e ora finale.                                         #
'# si aspetta date in fomato dd/mm/yyyy e orari in formato hh:mm                        #
'########################################################################################
    On Error GoTo lblError
    Dim giorni As Integer
    Dim ore As Integer, minuti As Long, secondi As Long
    Dim d1 As String, d2 As String 'date estese
    'controllo coerenza dati
    If Not (IsDate(DatIni) Or IsDate(DatFin)) Then
        CalcolaIntervallo = "-1"
        Exit Function
    End If
    If Not (IsDate(OraIni) Or IsDate(OraFin)) Then
        CalcolaIntervallo = "-1"
        Exit Function
    End If
    If CDate(DatIni) > CDate(DatFin) Then
        CalcolaIntervallo = "-1"
        Exit Function
    End If
    'calcolo del tempo trascorso

    d1 = DatIni & " " & OraIni
    d2 = DatFin & " " & OraFin
    secondi = DateDiff("s", d1, d2)
    ore = Fix(secondi / 3600)
    minuti = Fix(secondi / 60)
    CalcolaIntervallo = ore & ":" & Format$(minuti, "00")
Exit Function
lblError:
    Call GestErrore(Me.Name & ".CalcolaIntervallo")
End Function

[Dr Mal]

:gren:
Grazie 1000 xegallo.... 6 sempre il mio salvatore....
....ehm.....potresti spiegarmi semplicemente il funzionamento?......

Grazie...

[Dr Mal]

OK, ho capito il meccanismo.....
Ma nn funge molto bene...... in pratica "azzecca" solo le ore e mi sballa i minuti
(nn funge neanke la function x la gestione degli errori xkè la routine è incompleta!)

EX: datainizio = 12/10/2003
datafine= 13/10/2003
orainizio = 22:30
orafine = 7:30

il risultato è : 9:540

:master:

[xegallo]

ups sbagliato il collage :gren:

minuti = Fix(secondi MOD 60)


la gestione dell' errore non ti va perchè non te l'ho data :quipy:

[Dr Mal]

Originariamente inviato da xegallo
ups sbagliato il collage :gren:
minuti = Fix(secondi MOD 60)

Funge meglio di prima!
Però a me serve sapere anke i minuti rimanenti.....mentre in questo caso mi vengono arrotondati....(sai, è un calcolo di ore di straord. quindi sono importanti)

la gestione dell' errore non ti va perchè non te l'ho data :quipy:

Lo so..... volevo solo avvertirti...

Cmq se puoi fare qualcosa x i minuti, te ne sarei davvero grato (nn ke ora nn lo sia, x carità.....)

[xegallo]

Originariamente inviato da Dr Mal
Funge meglio di prima!
Però a me serve sapere anke i minuti rimanenti.....mentre in questo caso mi vengono arrotondati....(sai, è un calcolo di ore di straord. quindi sono importanti)




Lo so..... volevo solo avvertirti...

Cmq se puoi fare qualcosa x i minuti, te ne sarei davvero grato (nn ke ora nn lo sia, x carità.....)

togli fix

[Dr Mal]

Originariamente inviato da xegallo
togli fix

...Nn funge cmq...

[xegallo]

bho io non capisco che risultato vuoi allora e cmq l'idea è quella applicatici un po'

[Dr Mal]

Originariamente inviato da xegallo
bho io non capisco che risultato vuoi allora e cmq l'idea è quella applicatici un po'

Scusa ma l'ho scritto nel 1º post.....

....Qualc1 ha qualke dritta su come confronatare le ore (intese come hh.mm)?

tipo dalle 22.30 alle 6.45 sono passate 8.15 ore
.....

So ke sei buono....
HelpMe.....