Formattazione ore minuti

[Enrique_Rojas]

Hola a todos.

Ho questo codice:

'**********************************
'ORE STRAORDINARIO
strORESTRAORDINARIO = formatnumber(Rs("strORESTRAORDINARIO"),2)

lngStartPos = 1
strSearchFor = "," 

lngFoundPos = InStr(lngStartPos,strORESTRAORDINARIO,strSearchFor)

Do While lngFoundPos > 0 

    lngStartPos = lngFoundPos + 1 
    lngFoundPos = InStr(lngStartPos,strORESTRAORDINARIO,strSearchFor) 
    
    strORESTRAORDINARIO_Min1 = replace(strORESTRAORDINARIO, ",", "")       
       
    ore = strORESTRAORDINARIO_Min1 \ 60
    min = strORESTRAORDINARIO_Min1 mod 60
    
    strORESTRAORDINARIO_2 = ore &","& min   
    
    response.write strORESTRAORDINARIO_2
 

Loop 

'**********************************

Mi viene restituito valore 7,00 in strORESTRAORDINARIO_2, mentre nella tabella del db i valori sono:

1,45 + 1,45 + 1,30 = 5

Che sbaglio?

[Enrique_Rojas]

Ecco:

strORESTRAORDINARIO  = 4,20 (1,45 + 1,45 + 1,30)
strORESTRAORDINARIO_Min1 = 420
ore = 7
min = 0
ore ,min = 7,0

[optime]

la prima somma è concettualmente sbagliata! non ne avevamo già parlato qualche settimana fa?

[Enrique_Rojas]

Originariamente inviato da optime
la prima somma è concettualmente sbagliata! non ne avevamo già parlato qualche settimana fa?

Davvero? dove?

[optime]

Originariamente inviato da Enrique_Rojas
Davvero? dove?

QUI!

cerca MOD nel forum...

[Enrique_Rojas]

Originariamente inviato da optime
QUI!

cerca MOD nel forum...

Forse questa?

http://forum.html.it/forum/showthrea...&highlight=mod

Ma come risolvo nel mio caso???

[optime]

sommati separatamente le ore. le moltiplichi per 60 e sommi alla somma dei minuti. poi ri-estrai ore e minuti. non ci vuole tanto...

[Enrique_Rojas]

ok provo subito e ti faccio sapere, x il momento tante grazie.

[Enrique_Rojas]

C'è qualcosa che mi sfugge:

'ORE STRAORDINARIO
strORESTRAORDINARIO = formatnumber(Rs("strORESTRAORDINARIO"),2)

lngStartPos = 1
strSearchFor = "," 

lngFoundPos = InStr(lngStartPos,strORESTRAORDINARIO,strSearchFor)

Do While lngFoundPos > 0 

    lngStartPos = lngFoundPos + 1 
    lngFoundPos = InStr(lngStartPos,strORESTRAORDINARIO,strSearchFor) 

'SPLITTO PER VIRGOLA
    strORESTRAORDINARIO = split(strORESTRAORDINARIO, ",") 

'CALCOLO ORE
    strORESTRAORDINARIO_Ore = strORESTRAORDINARIO(0) * 60

'SOMMA ORE MINUTI
    strORESTRAORDINARIO_1 = strORESTRAORDINARIO_Ore + strORESTRAORDINARIO(1)

'TRASFORMAZIONE IN ORE
    ore = int(strORESTRAORDINARIO_1 \ 60)

'TRASFORMAZIONE IN MINUTI
    min = strORESTRAORDINARIO_1 mod 60

Loop

Ottengo 4,20 che non è esatto...

[Enrique_Rojas]

Non sarà la query il problema, quando gli faccio fare la somma delle ore straordinario ?

   strSQL = " SELECT *, "
   strSQL = strSQL & " SUM(ORE_STRAORDINARIO) AS strORESTRAORDINARIO "
   strSQL = strSQL & " FROM PRESENZE_PERSONALE "
   strSQL = strSQL & " WHERE "
   strSQL = strSQL & " ID_GEST = " & ID_GEST & " "
   strSQL = strSQL & " AND ID_COD = " & ID_COD & " "