Допустим, у вас есть дата и с этой даты Вы хотите получить название дня (понедельник, вторник и т.д.) И это можно сделать с помощью всего лишь одной формулы. Получить название дня с помощью функции ТЕКСТ Используйте функцию ТЕКСТ для извлечения названия дня из даты...

1. На форму из вкладки Standart выносим кнопки Button(1шт), Label(2шт), Edit (1шт) 2. Для компонента Label1 свойство Caption пишем: Введите текст 3. Для компонента Label2 свойство Caption пишем: В тексте 4. Для компонента Edit1 свойство Text делаем пустым 5. Для компонента Button1 свойство Caption пишем: Вычислить 6. Должно получиться как на рис.1 7. Для Button1 пишем код: procedure TForm1.Button1Click(Sender: TObject); var n: integer; s: string; begin n:=length(Edit1.Text); label2.Caption:='В тексте '; if n>20 then n:=n mod 10; case n of 1:s:=' символ'; 2...