Hortense Glaser calculate-schd-dividend1798