Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
Использование текстовых функций
Написать шифратор.
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 другие типы. |
Date: 2015-07-24; view: 355; Нарушение авторских прав; Помощь в написании работы --> СЮДА... |