Использование текстовых функций

Использование функций даты и времени.

Использование математических функций.

II. Самостоятельная работа.

Создать модель расчетов синуса, косинуса и их квадратов для указанных значений угла (Х), указанного в радианах.

1.1. Заполнить с помощью макроса ячейки столбца А значениями от 0 до 6 с шагом 0,05.

1.2. Дополнить макрос операторами, которые в соответствии со значениями углов столбца А заполнят столбец В значениями синуса, в С – косинуса, далее: квадрат синуса, квадрат косинуса, сумму квадратов синуса и косинуса.

Вывести по дате заключение о количестве дней в месяце

2.1. Перейти на другой лист.

2.2. Заполнить с помощью макроса ячейки столбца А датами от сегодняшней с шагом 1 месяц на весь год.

2.3. Дополнить макрос операторами, которые в соответствии со значениями номеров месяца в столбце А заполняют столбец В количеством дней в этом месяце.

Написать шифратор.

3.1. Перейти на другой лист.

3.2. Создайте макрос, который будет кодировать текст, заменяя буквы «а» в тексте указанной ячейки на произвольный символ, и выводить закодированный текст в новой ячейке.

Примеры использования некоторых функцийПример 1 Dim MyTime, MyDate, MyStrMyTime = #17:04:23#MyDate = #January 27, 1993# MyStr = Format( Time, "Long Time" ) MyStr = Format( Date, "Long Date" ) MyStr = Format( MyTime, "h:m:s" ) ' Возвращает "17:4:23".MyStr = Format( MyTime, "hh:mm:ss AMPM" ) ' Возвращает "05:04:23 PM".MyStr = Format( MyDate, "dddd, mmm d yyyy" ) ' Возвращает "Wednesday, ' Jan 27 1993".MyStr = Format( 23 ) ' Возвращает "23".MyStr = Format( 5459.4, "##,##0.00" ) ' Возвращает "5,459.40".MyStr = Format( 334.9, "###0.00" ) ' Возвращает "334.90".MyStr = Format( 5, "0.00%" ) ' Возвращает "500.00%".MyStr = Format( "HELLO", "<" ) ' Возвращает "hello".MyStr = Format( "This is it", ">" ) ' Возвращает "THIS IS IT". Пример 2

Пример демонстрирует вывод количества дней между сегодняшенй датой и вводимой с клавиатуры.

Dim TheDate As Date Dim MsgTheDate = InputBox("Enter a date")Msg = "Days from today: " & DateDiff( "d", Now, TheDate ) MsgBox Msg Пример 3

Пример демонстрирует отсечение крайних пробелов с указанной стороны.

Dim MyString, TrimString

MyString = " <-Trim-> " ' объявление строки.

TrimString = LTrim( MyString ) ' TrimString = "<-Trim-> ".

TrimString = RTrim( MyString ) ' TrimString = " <-Trim->".

TrimString = LTrim(RTrim( MyString )) ' TrimString = "<-Trim->".

TrimString = Trim( MyString ) ' TrimString = "<-Trim->".

Пример 4

Пример демонстрирует перевод строкового значения в текст. Пробелы игнорируются, но символы, не являющиеся цифрами – сигнал для обрывания числа.

Dim MyValueMyValue = Val( "2457" ) ' Возвращает 2457.MyValue = Val( " 2 45 7" ) ' Возвращает 2457.MyValue = Val( "24 and 57" ) ' Возвращает 24. Функции преобразования типов данных

Функция	Тип	Пояснения
CBool	Boolean	Преобразование в логический тип данных.
CByte	Byte	0 to 255.
CCur	Currency	-922,337,203,685,477.5808 to 922,337,203,685,477.5807.
CDate	Date	Преобразование в тип Дата.
CDbl	Double	-1.79769313486231E308 to - 4.94065645841247E-324; 4.94065645841247E-324 to 1.79769313486232E308.
CDec	Decimal	Преобразование в тип Variant
CInt	Integer	-32,768 to 32,767;
CLng	Long	-2,147,483,648 to 2,147,483,647;
CSng	Single	-3.402823E38 to -1.401298E-45; 1.401298E-45 to 3.402823E38
CStr	String	Преобразование в строку.
CVar	Variant	Преобразование в двойную точность чисел и как String другие типы.

Дата добавления: 2014-12-24