Цитата:
|
Сообщение от angvelem
Нас на слабо не возьмёшь.  И что у тебя вернётся в Label2 при Result:='сб'? Всегда суббота, а как же следующий за ним день? |
Внимательно смотри код.
Он вернет 'вс', т.к. тут вопрос в том, какой параметр передается в функцию. Ну и неплохо бы понимать как устроен TDateTime и какой результат будет для Date()+1 (специально указал Date() со скобками - это встроенная функция).