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

dim nbjour as integer

if Tache.Date_Fin_Plus_Tard > New DateTime(1900, 1, 1) Then
    nbjour = DateAndTime.datediff(DateInterval.Day, Tache.Date_Fin_Plus_Tard, tache.date_fin_tache) 

    if nbjour = 0 andalso tache.date_fin_tache > Tache.Date_Fin_Plus_Tard then
        nbjour = 1
    end if
    
    select nbjour 

    case is >= 1  ' Retard de 1 jour
        couleur = Color.FromArgb(255,0,0)       ' rouge
    
    case 0        ' juste a temps
        couleur = Color.FromArgb(255,119,0)     ' orange

    case is >= -1 ' Avance de 1 jours
        couleur = Color.FromArgb(255,187,0)     ' orange clair
        
    case is >= -5  ' Avance de 2 à 5  jours 
        couleur =  Color.FromArgb(255,255,145)   ' jaune
        
    case is >= -15   ' Avance de 8 à 15 jours
        couleur = Color.FromArgb(89,255,89)      ' vert

    case is < -15   ' Avance de plus de 15 jours
        couleur =  Color.FromArgb(0,255,255)    ' bleu
        
        
    end Select
else
    ' Pas de délai
    Couleur =     Color.FromArgb(255,255,255) 
end if