Ниже приведен пример функции поиска максимального элемента в массиве:

Function FindMax(ByVa1 a() As Integer Dim finish As Integer = UBound(a) Dim max As Integer = a(0) Dim i As Integer For i = 0 To finish If a(i) > max Then max = a(i) Next i Return max End Function

Но может имеется встроенная функция????
типа Dmax(arrary())

Спасибо попробую.....

=============================
Это другой топик
А можно как то узнать встроенными средствами
понедельник < вторника
или функцию свою писать????

Weekday () - возвращает день недели... так ?

Я плохо описал ситуяйцию - звиняюсь.
Юзер делает выбор дней недели в двух комбобоксах
У меня в первом комбо_боксе понедельник, а во втором среда - это нормально...
А ежели наоборот - тогда крик , шум - неверно введены начения дней недели - вот так надо организовать............
А как тут применть Weekday () ???

Привет!!!!!
Заврался я в конец ......
Ващето дело в VB6 происходит
Но так как в ту ветку мало кто ходит
Я здесь свой вопрос написал
И вот в передряги попал..........

Думаю массив использовать

Dim W_DAY(1 To 7) As String dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' понедельник W_DAY(1) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' вторник W_DAY(2) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' среда W_DAY(3) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' четверг W_DAY(4) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' пятница W_DAY(5) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' суббота W_DAY(6) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99) DAY_FIRST.AddItem LPSTRToVBString(buffer) ' воскресенье W_DAY(7) = LPSTRToVBString(buffer)

Не красиво как то но.....

Dim F As Long Dim W_DAY(1 To 7) As String Dim DAY_F As Long Dim DAY_L As Long

dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2A, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' понедельник W_DAY(1) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2B, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' вторник W_DAY(2) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2C, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' среда W_DAY(3) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2D, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' четверг W_DAY(4) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2E, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' пятница W_DAY(5) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H2F, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' суббота W_DAY(6) = LPSTRToVBString(buffer) dl& = GetLocaleInfo(LOCALE_USER_DEFAULT, &H30, buffer, 99) Me!DAY_FIRST.AddItem LPSTRToVBString(buffer) ' воскресенье W_DAY(7) = LPSTRToVBString(buffer)

Private Sub DAY_FIRST_LostFocus() For F = 1 To 7 If W_DAY(F) = Me!DAY_FIRST Then DAY_F = F Next F For F = 1 To 7 If W_DAY(F) = Me!DAY_LAST Then DAY_L = F Next F If NZVB(Me!DAY_LAST) = "" Then Exit Sub If DAY_F > DAY_L Then Call MsgBox("Не верно выбраны дни недели !!! " & Me!DAY_FIRST & " и " & Me!DAY_LAST, vbCritical)  Me!DAY_FIRST.Text = ""  Me!DAY_LAST.Text = "" End If End Sub

ну и хорошо!!!!
А вот вопрос по винде...
правой кнопкой в свободном месте внутри папки щёлк
выпадает минюшка
выбираем создать
тут у меня пропала возможность создать текстовый файл
исчезла строка така - как это меню изменить - добавить , удалить????????????

Private Sub DAY_FIRST_LostFocus()
For F = 1 To 7
If W_DAY(F) = Me!DAY_FIRST Then DAY_F = F
If W_DAY(F) = Me!DAY_LAST Then
DAY_L = F
exit for
end if
Next F
If NZVB(Me!DAY_LAST) = "" Then Exit Sub
If DAY_F =0 Then
Call MsgBox("Не верно выбраны дни недели !!! " & Me!DAY_FIRST & " и " & Me!DAY_LAST, vbCritical)
Me!DAY_FIRST.Text = ""
Me!DAY_LAST.Text = ""
End If
End Sub

как вариант

Спасибо!!!!!!! За ССылку!!!