Пример использования функции CBool
В следующем примере используется CBool функцию для преобразования выражений для Booleanзначения. Если результатом выражения является ненулевое значение CBool возвращает True; в противном случае возвращается значение False.
VBКопировать
Dim a, b, c As IntegerDim check As Booleana = 5b = 5' The following line of code sets check to True.check = CBool(a = b)c = 0' The following line of code sets check to False.check = CBool(c)Пример использования функции CByte
В следующем примере используется CByte функцию для преобразования выражения Byte.
VBКопировать
Dim aDouble As DoubleDim aByte As ByteaDouble = 125.5678' The following line of code sets aByte to 126.aByte = CByte(aDouble)Пример использования функции CChar
В следующем примере используется CChar функцию для преобразования первого символа Stringвыражение Char типа.
VBКопировать
Dim aString As StringDim aChar As Char' CChar converts only the first character of the string.aString = "BCD"' The following line of code sets aChar to "B".aChar = CChar(aString)Входной аргумент для CChar должен иметь тип данных Char или String. Нельзя использовать CCharдля преобразования числа в символ, поскольку CChar не может принимать числового типа данных. В следующем примере получается число, представляющее кодовую точку (код знака) и преобразует его в соответствующий символ. Она использует InputBox функции для получения строки из цифр, CInt для преобразования строки в тип Integer, и ChrW для преобразования числа к типу Char.
VBКопировать
Dim someDigits As StringDim codePoint As IntegerDim thisChar As CharsomeDigits = InputBox("Enter code point of character:")codePoint = CInt(someDigits)' The following line of code sets thisChar to the Char value of codePoint.thisChar = ChrW(codePoint)Пример использования функции CDate
|
|
|
В следующем примере используется CDate функцию для преобразования строк для Date значения. В общем случае не рекомендуется жестко запрограммированные значения даты и время в виде строк (как показано в следующем примере). Используйте литералы даты и времени, например #Feb 12, ޱ и # 4:45:23 PM #, вместо этого.
VBКопировать
Dim aDateString, aTimeString As StringDim aDate, aTime As DateaDateString = "February 12, 1969"aTimeString = "4:35:47 PM"' The following line of code sets aDate to a Date value.aDate = CDate(aDateString)' The following line of code sets aTime to Date value.aTime = CDate(aTimeString)Пример использования функции CDbl
VBКопировать
Dim aDec As DecimalDim aDbl As Double' The following line of code uses the literal type character D to make aDec a Decimal.aDec = 234.456784D' The following line of code sets aDbl to 1.9225456288E+1.aDbl = CDbl(aDec * 8.2D * 0.01D)Пример использования функции CDec
В следующем примере используется CDec функцию для преобразования числовых значений для Decimal.
VBКопировать
Dim aDouble As DoubleDim aDecimal As DecimalaDouble = 10000000.0587' The following line of code sets aDecimal to 10000000.0587.aDecimal = CDec(aDouble)Пример использования функции CInt
В следующем примере используется CInt функции, чтобы преобразовать значение в Integer.
VBКопировать
Dim aDbl As DoubleDim anInt As IntegeraDbl = 2345.5678' The following line of code sets anInt to 2346.anInt = CInt(aDbl)Пример использования функции CLng
|
|
|
В следующем примере используется CLng функцию для преобразования значения Long.
VBКопировать
Dim aDbl1, aDbl2 As DoubleDim aLng1, aLng2 As LongaDbl1 = 25427.45aDbl2 = 25427.55' The following line of code sets aLng1 to 25427.aLng1 = CLng(aDbl1)' The following line of code sets aLng2 to 25428.aLng2 = CLng(aDbl2)Пример использования функции CObj
В следующем примере используется CObj функцию для преобразования числовых значений для Object. Object Переменная содержит только 4 байтовый указатель, указывающая на Doubleприсвоенного значения.
VBКопировать
Dim aDouble As DoubleDim anObject As ObjectaDouble = 2.7182818284' The following line of code sets anObject to a pointer to aDouble.anObject = CObj(aDouble)Пример использования функции CSByte
В следующем примере используется CSByte функцию для преобразования числовых значений для SByte.
VBКопировать
Дата добавления: 2018-02-28; просмотров: 380; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!