Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Работа с числами Добавлено: 03.10.02 14:43  

Автор вопроса:  spektr
Как узнать из набора цифр какое из них максимальное?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #1 		Добавлено: 03.10.02 21:49

По-моему в VB нет такой функции. Но ты поищи, возможно я ошибаюсь.

Ответить

Номер ответа: 2
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
  Web-сайт: www.radio-device.narod.ru
 Профиль | | #2 		Добавлено: 03.10.02 23:35
Точнее у меня в папке есть обсолютно одинаковые файлы, только отличаються последней цифрой и вот мне нужно узнать последнию цифру.

Ответить

Номер ответа: 3
Автор ответа:
 CyRax



Разработчик Offline Client

ICQ: 204447456 

Вопросов: 180
Ответов: 4229
  Web-сайт: basicproduction.nm.ru
 Профиль | | #3 		Добавлено: 04.10.02 20:08

Попробуй такой код. Находит наибольшее значение папки

 

Dim Largest As Long
' Display the names in C:\ that represent directories.
MyPath = "C:\TEMP\CHECK\"  ' Set the path.
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If MyName <> "." And MyName <> ".." Then
        ' Use bitwise comparison to make sure MyName is a directory.
     If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
        If Largest < Val(MyName) Then Largest = MyName
     End If  ' it represents a directory.
    End If
    MyName = Dir    ' Get next entry.
Loop
MsgBox Largest

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам