Текстовые функции. Функции даты и времени

Функции даты и времени

Математические функции

2.1. Дополните процедуру командой, присваивания ячейке В2 корня квадратного А2:

Range("В2") = Sqr(Range("A2"))

2.2. Дополните программу так, чтобы использовалось свойство ячейки Formula:

Range("В2").FormulaR1C1 = "=COS(RC[-2])"

I.Стандартные математические функции. Основные математические функции в Visual Basic
1. Abs – модуль 2. Atn - арктангенс 3. Cos - косинус 4. Int - отбрасывание дробной части 5. Log– натуральный логарифм	6. Rnd – генерация случайного числа 7. Sin - синус 8. Sqr – квадратный корень 9. Tan - тангенс

2.3. Проверьте работу программы.

2.4. Измените программу так, чтобы заполнялись ячейки от В2 до В12 и использовалось свойство ячейки Formula для функции Sqr.

2.5. Увы, программа выдает ошибку!!!!!

2.6. Данное приложение (MSExcel) не распознает функцию Sqr, в качестве использования корня табличный процессор пользуется функцией SQRT ()

Range("B2:B12") = "=SQRT(RC[-1])"

2.7. Полезная функция MS Excel возведение в степень POWER ().:

Range("С2:С12") = "=POWER(RC[-1],2)"

For I = 1 To 11 MyValue = Int((6 * Rnd) + 1) Cells(I + 1, 3) = MyValue Next I

2.8. Проверьте работу программы.

2.9. Дополните программу строкой, которая заполнит столбец С от 2 до 12 строки случайными числами от 1 до 6, при этом используя циклический алгоритм.

2.10. Проверьте работу программы.

II.Стандартные функции даты и времени в VB 1. Date – системная дата 2. DateDiff – разность двух дат 3. DateSerial – дата по заданному (году, месяцу, дню) 4. Day – день месяца 5. Hour - Часы из выражения времени 6. Minute - минуты 7. Month – месяц из даты 8. Now – текущая дата и время 9. Second – секунды из времени 10. Time – текущее системное время 11. TimeSerial –время по (часам, минутам, секундам) 12. WeekDay – номер дня недели 13. WeekDayName –название дня недели 14. Year - год из даты

3.1. Перейдите на новый лист.

3.2. Вызовите макрос Time1, в п. 1.3.

3.3. Измените макрос так, чтобы начальная дата была сегодняшняя (системная). Для чего измените первую строку:

Range("C1") = Now

3.4. Добавить к программе код, который заполняет вторую строку номером дня недели.

For I = 1 To 7 Cells(2, I + 2) = Weekday(Cells(1, I + 2)) Next I

3.5. Доработайте работу макроса, который в зависимости от номера дня недели отражает название дня недели. Ниже циклического алгоритма поместить следующую строку. В MSExcel эта функция называется Выбор ().

Range("C3:I3") = "=CHOOSE(R[-1]C,""пн"",""вт"",""ср"",""чт"",""пт"",""сб"",""вс"")"

3.6. Проверьте работу программы.

3.7. Самостоятельно замените функцию Выбор () на WeekDayName().

3.8. Проверьте работу программы.

4.1. Доработайте макрос Time1, в котором используйте текстовую функцию Format, которую можно использовать не только в формате даты и времени, но и на все остальные типы данных. Смотрите приложение к этой лабораторной работе.

For I = 1 To 7 Cells(1, I + 2) = Format(Cells(1, I + 2), "mmm d yyyy") Next I

4.2. Проверьте работу программы.

4.3. Доработайте макрос Time1, в котором используйте текстовую функцию Mid (), аргументами которой являются строка в которой «вырывается» фрагмент, позиция, с которой начинается фрагмент, количество символов, которые нужно отделить.

For I = 1 To 7 Cells(4, I + 2) = Mid(Cells(1, I + 2), 5, 2) Next I

4.4. Проверьте работу программы, причем, самостоятельно задайте другие параметры, например, отделите год, но отделить места больше на 10 пробелов после него.

III.Стандартные текстовые функции в VB
1. Asc – получение кода первого символа строки 2. Chr – получение символа по коду 3. Join – слияние строк 4. Len – вычисляет число символов в строке 5. LTrim – строка с отброшенными пробелами 6.Mid – вырезание фрагмента строки	7. Replace -замена подстроки в строке 8. Right – вырезание фрагмента из строки с конца 9. Left - вырезание фрагмента из строки с начала 10. StrComp – сравнение двух строк StrReverse – запись строки наоборот

4.5. Перейдите на новый лист.

4.6. Введите в ячейку А1 произвольный текст.

4.7. Создайте макрос, который будет выводить в ячейке А2 количество слов, набранных в строке ячейки А1. Для этого необходимо будет обращаться к каждой букве, что позволит сделать циклический алгоритм, а также, нужно предусмотреть предел повторения (воспользуемся функцией Len):

For I = 1 To Len(Range("A1")) If Mid(Range("A1"), I, 1) = " " Then С = С + 1 Next I Range("B1") = С+1

4.8. Проверьте работу программы. Почему в последней строке прибавляется к С единица?

4.9. Оформите далее этот лист так, чтобы моделировалась таблица для телеграмм. Т.е. необходимо телеграфисту вносить текст телеграммы и называть отправителю сумму, которая высвечивается автоматически (за каждое слово – 8 тенге, а также комиссионные в размере 20 % от стоимости телеграммы).

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