ho creato una pagina per tenere sotto controllo gli orari di lavoro e ora non riesco a calcolare gli straordinari totali, premetto che tutti i giorni faccio 8 ore tranne il sabato 4 ore e mezza, qualk1 mi può aiutare?

ecco il codice:

codice:
if Not rs.EOF then
dalle1=rs("dalle1")
alle1=rs("alle1")
dalle2=rs("dalle2")
alle2=rs("alle2")
data=rs("data")


giornoDellaSettimana = WeekDayName(datePart("w", data))


DiffAmattina = DateDiff("n", dalle1, alle1)
DiffAmattinatot=DiffAmattinatot+DiffAmattina



DiffApomeriggio = DateDiff("n", dalle2, alle2)

 
 if giornoDellaSettimana ="sabato" then
 
'straordinari
  ora=60*oresabato
  minuti = DiffAmattina - minutisabato



'totale
  DiffApomeriggiotot=DiffApomeriggiotot
  totale_giorno = (DiffAmattina)\60 & ":" & (DiffAmattina) mod 60
  
 
 else
 
  'straordinari
  ora=60*orealgiorno
  minuti = (DiffAmattina + DiffApomeriggio) - minutigiorno

  
  
  
'totale 
  DiffApomeriggiotot=DiffApomeriggiotot+DiffApomeriggio
  totale_giorno = (DiffAmattina + DiffApomeriggio)\60 & ":" & (DiffAmattina + DiffApomeriggio) mod 60

 
  
 end if
 

 
  totale_giorni = (DiffAmattinatot + DiffApomeriggiotot)\60 & ":" & (DiffAmattinatot + DiffApomeriggiotot) mod 60
 
 
 
  'straordinari
 
 'lo script calcola gli strardinari ma è da sistemare in quanto mi stampa 118:80 ore invece di 119:20 ore come è giusto che sia
 
 straordinari = minuti - ora
 ore =  straordinari\60
 oretot=oretot+ore
 
 minutiefettivi =  (straordinari - (ore*60)) MOD 60
 
 minutiefettivitot=minutiefettivitot+minutiefettivi
 totalestraordinari = ore & ":" & minutiefettivi
 totalestraordinaritot = oretot & ":" & minutiefettivitot
penso che sia una mia svista e che non sia difficile, qualk1 può aiutarmi?