Retour sommaire : Direct Planning - Formules - Voir aussi : ‣

Formule utile pour coloré une bande du ticket sur d’un mode d’affichage.

La couleur sera :

• Transparente : si pas de retard
• Rouge : si retard
• Jaune : si juste à temps, c’est à dire se termine juste avant la date de fin au plus tard, dans la même journée.

dim nbjour as integer
dim CouleurRetard as color =  Color.FromArgb(255,0,0) 
dim CouleurWarning as color =   Color.FromArgb(255,255,0) 

Couleur = nothing

if Tache.Date_Fin_Plus_Tard > New DateTime(1900, 1, 1) Then
    ' On ne s'occupe pas de l'heure : seule la journée est prise en compte
    nbjour = DateAndTime.datediff(DateInterval.Day,  Tache.Date_Fin_Plus_Tard.date, Tache.date_fin_tache.date)
   
    select nbjour
    case is >= 1  ' Retard 
        couleur =   CouleurRetard
        
    case 0      
        if Tache.date_fin_tache > Tache.Date_Fin_Plus_Tard Then
            ' Se termine dans la même journée mais APRES l'heure de fin au plus tard
            couleur = CouleurRetard
        else
            ' Juste à temps : se termine dans la même journée mais AVANT l'heure de fin au plus tard
            couleur = CouleurWarning    'jaune 
        end if
    End Select
else
    ' Pas de délai
    'Couleur =    Color.FromArgb(255,255,255)
end if