Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 4. Как сделать так, чтобы вас уважали и ценили? Как сделать лучше себе и другим людям Как сделать свидание интересным?


Категории:

АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника






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

⇐ ПредыдущаяСтр 12 из 16Следующая ⇒

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

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 другие типы.


⇐ Предыдущая78910111213141516Следующая ⇒





Date: 2015-07-24; view: 387; Нарушение авторских прав


mydocx.ru - 2015-2025 year. (0.007 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию