Funcao - proximo dia util

Top  Previous  Next

Function ProximoDiaUtil (dData : TDateTime) : TDateTime; 

begin 

  if DayOfWeek(dData) = 7 then 

    dData := dData + 2 

  else 

    if DayOfWeek(dData) = 1 then 

      dData := dData + 1

  Result := dData; 

end