[AccessD] highest value of 4 variables - urgent

jwcolby jwcolby at colbyconsulting.com
Sun Nov 4 11:53:19 CST 2007


LOL, the least you could have done is dig up the quicksort. 


John W. Colby
Colby Consulting
www.ColbyConsulting.com 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Michael R Mattys
Sent: Saturday, November 03, 2007 7:58 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] highest value of 4 variables - urgent

Remember this? (Just kidding, but it is from NeatCode.mdb)

Sub ShellSortArray(A() As Variant)
Dim i As Long, j As Long
Dim Low As Long, Hi As Long
Dim PushPop As Variant
   Low = LBound(A)
   Hi = UBound(A)
   j = (Hi - Low + 1) \ 2
   Do While j > 0
     For i = Low To Hi - j
      If A(i) > A(i + j) Then
         PushPop = A(i)
         A(i) = A(i + j)
         A(i + j) = PushPop
      End If
     Next i
     For i = Hi - j To Low Step -1
      If A(i) > A(i + j) Then
         PushPop = A(i)
         A(i) = A(i + j)
         A(i + j) = PushPop
      End If
     Next i
     j = j \ 2
   Loop
End Sub

Function TestShellSortArray()
    Dim vA() As Variant
    Dim i As Long
    vA = Array(64, 16, 8, 32, 40, 48, 24, 56)
    ShellSortArray vA()
    For i = LBound(vA()) To UBound(vA())
        Debug.Print vA(i)
    Next
End Function

Michael R. Mattys
MapPoint & Access Dev
www.mattysconsulting.com

----- Original Message -----
From: "Kath Pelletti" <kp at sdsonline.net>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Saturday, November 03, 2007 7:35 PM
Subject: Re: [AccessD] highest value of 4 variables - urgent


> That's where I am with it too Rocky - until I get another solution I will 
> go
> with this.....(but I'm sure there will be something that we both can't
> remember?)
>
> Ta
> ----- Original Message ----- 
> From: "Rocky Smolin at Beach Access Software" <rockysmolin at bchacc.com>
> To: "'Access Developers discussion and problem solving'"
> <accessd at databaseadvisors.com>
> Sent: Sunday, November 04, 2007 10:29 AM
> Subject: Re: [AccessD] highest value of 4 variables - urgent
>
>
>> Brute Force?
>>
>> Function GetHigh as Variant
>>
>> GetHigh = var1
>> If var2 > GetHigh Then GetHigh = var2
>> If var3 > GetHigh Then GetHigh = var3
>> If var4 > GetHigh Then GetHigh = var4
>>
>> End Function
>>
>> I'm sure there's a more elegant way...
>>
>> Rocky
>>
>>
>>
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Kath Pelletti
>> Sent: Saturday, November 03, 2007 3:57 PM
>> To: Access D Normal List
>> Subject: [AccessD] highest value of 4 variables - urgent
>>
>> maybe i am having a vague moment - but what function can I use to get the
>> highest value of 4 variables, eg:
>>
>>
>> eg. I want to know x where x is the highest of (var1, var2, var3, var4)
>>
>> ta
>> ______________________________________
>> Kath Pelletti
>> --
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>> No virus found in this incoming message.
>> Checked by AVG Free Edition.
>> Version: 7.5.503 / Virus Database: 269.15.19/1106 - Release Date:
>> 11/2/2007
>> 9:46 PM
>>
>>
>> -- 
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com 

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list