WE Counter

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

'                             WEEK-END COUNTER
'                              Par y.geronimi
'                                20/12/2014

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


dim no%, obj_alpha%,obj_bar%,obj_alpha2%,j%,m%,a%,temps%
j% = left$(date$,2)
m% = mid$(date$,4,2)
a% = right$(date$,4)

label horodate,close

height 0,160 : width 0,300 : caption 0,"W.E"
font_name no%,"times"

no%=no%+1 : obj_alpha%=no%
Alpha no% : top no%,20 : left no%,20 : font_bold no%  : font_size no%,12

no%=no%+1 : obj_bar%=no%
Progress_bar no% : top no%,40 : left no%,20 : width no%,width(0)-56
min no%,0 : max no%,168

no%=no%+1 : obj_alpha2%=no%
Alpha no% : top no%,80 : left no%,20 :font_bold no%  : font_size no%,10

no%=no%+1 : Temps%=no%
Timer no% :Timer_interval no%,1000 : on_timer no%,horodate

on_close 0,close
end


horodate:
   Maj()
return

Close:
   Timer_off Temps%
return

Sub Maj()
   JourSem$(J%,M%,A%)
   caption obj_alpha%,Jour$+" - "+time$
   position obj_bar%,((rs_js%-1)*24)+val(left$(time$,2))

   if jour$="Vendredi"
      caption obj_alpha2%,"Téléchargement du Week-end en cours..."
      font_color obj_alpha2%,85,165,5
   else
      if jour$="Samedi"
         caption obj_alpha2%,"Encore 1 jour et "+str$(168-(6*24)-val(left$(time$,2)))+" heures de repos"
         font_color obj_alpha2%,235,110,5
      else
         if jour$="Dimanche"
            caption obj_alpha2%,"Plus que "+str$(24-val(left$(time$,2)))+" heures avant Lundi..."
            font_color obj_alpha2%,230,0,0
         else
            if jour$="Jeudi"
               caption obj_alpha2%,"Encore "+str$(168-72-val(left$(time$,2)))+" heures avant téléchargement du Week-End"
               font_color obj_alpha2%,0,0,230
            else
               caption obj_alpha2%,"Encore "+str$(5-rs_j$)+" jours et "+str$(168-48-val(left$(time$,2)))+" heures avant téléchargement du Week-End"
               font_color obj_alpha2%,0,0,230
            end_if
         end_if
      end_if
   end_if
End_sub

SUB JourSem$(J,M,A)
    if variable("jour$") = 0 then dim jour$
    JourSem(J,M,A)
    select rs_js%
        case 0 : jour$ = "Dimanche"
        case 1 : jour$ = "Lundi"
        case 2 : jour$ = "Mardi"
        case 3 : jour$ = "Mercredi"
        case 4 : jour$ = "Jeudi"
        case 5 : jour$ = "Vendredi"
        case 6 : jour$ = "Samedi"
    end_select
END_SUB

SUB JourSem(Jour,Mois,Annee)
   ' Jour de la semaine d'une date donnée (0= Dimanche à 6= Samedi) -> rs_js%
   dim_local js_d
   if variable("rs_js%") = 0 then dim rs_js%
   js_d = Annee
   if Mois < 3 then js_d = js_d-1
   js_d=int(23*Mois/9) + Jour + 4 + Annee + int(js_d/4) - int(js_d/100) + int(js_d/400)
   if Mois>=3 then js_d = js_d-2
   rs_js% = js_d-7*int(js_d/7)
END_SUB