VPF::Есть ли в VB аналог Hi() и Low() из Delphi?

Тутанхамец

Дата 12.3.2006, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Есть ли в VB функции, которые возвращают максммальное и минимальное значение, которое можно поместить в переменную указанного типа?

Что нибудь типа GetMax(Long)?

Заранее благодарен. smile

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

cardinal

Дата 12.3.2006, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Исходя из этого

Цитата(MSDN)

Len Function Example
The first example uses Len to return the number of characters in a string or the number of bytes required to store a variable. The Type...End Type block defining CustomerRecord must be preceded by the keyword Private if it appears in a class module. In a standard module, a Type statement can be Public.

Type CustomerRecord ' Define user-defined type.
ID As Integer ' Place this definition in a
Name As String * 10 ' standard module.
Address As String * 30
End Type

Dim Customer As CustomerRecord ' Declare variables.
Dim MyInt As Integer, MyCur As Currency
Dim MyString, MyLen
MyString = "Hello World" ' Initialize variable.
MyLen = Len(MyInt) ' Returns 2.
MyLen = Len(Customer) ' Returns 42.
MyLen = Len(MyString) ' Returns 11.
MyLen = Len(MyCur) ' Returns 8.

The second example uses LenB and a user-defined function (LenMbcs) to return the number of byte characters in a string if ANSI is used to represent the string.

Function LenMbcs (ByVal str as String)
LenMbcs = LenB(StrConv(str, vbFromUnicode))
End Function

Dim MyString, MyLen
MyString = "ABc"
' Where "A" and "B" are DBCS and "c" is SBCS.
MyLen = Len(MyString)
' Returns 3 - 3 characters in the string.
MyLen = LenB(MyString)
' Returns 6 - 6 bytes used for Unicode.
MyLen = LenMbcs(MyString)
' Returns 5 - 5 bytes used for ANSI.

ты можешь написать GetMax примерно так

Код


Option Explicit

Private Sub Command1_Click()
Dim MyVar As Long
Dim num As Double
Dim i As Integer
num = 1
For i = 1 To Len(MyVar)
    num = num * 256
Next
Debug.Print num / 2 - 1
End Sub

Только работать это будет только с Integer и Long.

А вообще вот тут написана вся тебе нужная ифнормация

Цитата(MSDN)

Data Type Summary

The following table shows the supporteddata types, including storage sizes and ranges.

Data type Storage size Range
Byte 1 byte 0 to 255
Boolean 2 bytes True or False
Integer 2 bytes -32,768 to 32,767
Long
(long integer) 4 bytes -2,147,483,648 to 2,147,483,647
Single
(single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to 3.402823E38 for positive values
Double
(double-precision floating-point) 8 bytes -1.79769313486232E308 to
-4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values
Currency
(scaled integer) 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807
Decimal 14 bytes +/-79,228,162,514,264,337,593,543,950,335 with no decimal point;
+/-7.9228162514264337593543950335 with 28 places to the right of the decimal; smallest non-zero number is
+/-0.0000000000000000000000000001
Date 8 bytes January 1, 100 to December 31, 9999
Object 4 bytes Any Object reference
String
(variable-length) 10 bytes + string length 0 to approximately 2 billion
String
(fixed-length) Length of string 1 to approximately 65,400
Variant
(with numbers) 16 bytes Any numeric value up to the range of a Double
Variant
(with characters) 22 bytes + string length Same range as for variable-length String
User-defined
(using Type) Number required by elements The range of each element is the same as the range of its data type.

Note Arrays of any data type require 20 bytes of memory plus 4 bytes for each array dimension plus the number of bytes occupied by the data itself. The memory occupied by the data can be calculated by multiplying the number of data elements by the size of each element. For example, the data in a single-dimension array consisting of 4 Integer data elements of 2 bytes each occupies 8 bytes. The 8 bytes required for the data plus the 24 bytes of overhead brings the total memory requirement for the array to 32 bytes.

A Variant containing an array requires 12 bytes more than the array alone.

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Gannibal

Дата 13.3.2006, 00:42 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17

может это поможет http://vbnet.ru/vbguide/showfunction.asp?id=118 ?? или ыа чегото непонял?

--------------------

Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!

Akina

Дата 13.3.2006, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Тутанхамец @ 12.3.2006, 16:02

)

Есть ли в VB функции, которые возвращают максммальное и минимальное значение, которое можно поместить в переменную указанного типа?

Оно однозначно определяется типом - получить же тип переменной (только для Variant, ибо для остальных он известен заранее) не проблема.
А для enum вопрос бессмыслен.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Тутанхамец

Дата 14.3.2006, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

С типами понятно. Проще всего, кажется, инициализировать максимальным значением через литералы и if по типу. Что-то вроде if vartype(a)=vbLong then a=2147483647.

Всем спасибо.

Это сообщение отредактировал(а) Тутанхамец - 14.3.2006, 09:10

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

Akina

Дата 14.3.2006, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(Тутанхамец @ 14.3.2006, 10:07

)

Проще всего, кажется, инициализировать максимальным значением через литералы и if по типу. Что-то вроде if vartype(a)=vbLong then a=2147483647.

Лучше ввести

Код


Public Const vbMaxLong As Long = 2147483647

в отдельном common-модуле.

--------------------

Тутанхамец

Дата 14.3.2006, 20:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Принято.)

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »