Nbre 1/2 heures


' on calcule le nbre de demies heures on va devoir colorer

HF = HFin.text
HD = HDeb.text

' on soustraie l'heure de début à l'heure de fin
nbH = HF - HD

' on convertit la variable date (nbH) en variable nombre (nbHi)
nbHi = CSng (nbH)

' on multiplie par 48 le nombre obtenu pour avoir le nombre de demies heures ( une journée egale 48 1/2 heures)
nbHi = nbHi * 48

' on convertit l'heure de début en nombre de demies heures
HD = CSng (HD)
HD = HD * 48
' on définit le nombre de cellules à sauter avant de colorier ( les cours commence à 8h => 16 1/2 heures)
HD = HD - 16

' on corrige le tir pour la demie heure du midi qui n'apparait pas dans le planning (planning pour l'après midi)
if HD > 10 then
HD = HD - 1
endif

Laisser un commentaire