[ASP] Time and minutes

[viki1967]

Hi there.

I have this code ASP from to calculate time and minutes:

 
'**********************************
'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 
 
'**********************************
 

But value returned is 7,00 in strORESTRAORDINARIO_2, while in the tbl of database the values are:

1,45 + 1,45 + 1,30 = 4,20 ===> time:5, minutes:00

Can anyone help?

Thanks, regards
Viki

[viki1967]

 
   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 & " "
 
 
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open strSql, objconn
 
If Not Rs.EOF Then
Do while NOT Rs.EOF
 
'**********************************
'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 
 
'**********************************
 
Rs.MoveNext
Loop
End if
 
Rs.Close
set Rs = nothing
 
objconn.Close
set objconn = nothing