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

dim nbjour as integer

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 de 1 jour
        libelle = Cstr(nbjour) + "j de retard"
    case 0        ' juste a temps
        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
            Libelle = "Retard (après heure prévue)"
        else
            ' se termine dans la même journée mais AVANT l'heure de fin au plus tard
            Libelle = "Juste à temps"
        end if
    case is < 0  ' en Avance
        libelle = Cstr(-nbjour) + "j d'av."
    end Select
else
    ' Pas de délai
    libelle = "Pas de délai"
end if