Does VBA have Native Functions for MIN, MAX

[Jeffrey Mahoney]

I'm dabbling more into the VBA code for Outlook recently. I have external systems that send me emails with updates for services and notifications. The format of these emails are atrocious.

What I've noticed is that VBA doesn't have a built MIN and MAX function. Since I work primarily in Excel, I'm used to using Application.Min(). Outlook doesn't have that.

Does anybody find it strange that such a simple function doesn't exist? Am I looking at this wrong? Since early days of BASIC those were available. Comparing two variables with IF statements isn't too bad, but start adding 3 or more variables and now the IF structure gets kinda difficult.

 

[Rick Rothstein]

The Worksheet.Function calls are somewhat intuitive.

Did you see Message #8 yet? Also, you may want to reread the beginning of Message #1 again.

 

[Jon Peltier]

Yeah, I guess I wasn't reading very closely.

Of course, if you're working in Outlook, and you have set a reference to Excel, you could use Excel.Min and Excel.Max.

 

[Jeffrey Mahoney]

I can't use WorksheetFunction in Outlook or Word VBA.

@Rick. Nice! Now, of course I had to pick it apart. I ran that through VBA and through a formula in a cell also. Another strange thing. The TRUE value in an Excel formula equates to a 1, whereas the value for TRUE in VBA equates to -1. Gotta love those MS folks and the inconsistency!

The first half of the formula: -A * (A >= B) equates to zero if False and the second half is the same B * (B > A) .

I'm most likely to use the solution that IRobbo provided because I can feed it multiple values if needed and keep it in a library of functions. Thank you all.

 

[MARK858]

whereas the value for TRUE in VBA equates to -1. Gotta love those MS folks and the inconsistency!

It is because VBA uses the Binary representation of True as 1111111111 and this equates to a value of -1.
To see this in a spreadsheet...

Book1
	A
1	1111111111
2	-1
Sheet2

Cell Formulas
Range	Formula
A1	A1	=DEC2BIN(-1)
A2	A2	=BIN2DEC(1111111111)

 

[lrobbo314]

@Jeffrey Mahoney here's a little cleaner version of the function.

Function iMax(ParamArray Vals() As Variant)
For Each v In Vals
    If v > iMax Then iMax = v
Next v
End Function

 

[Jeffrey Mahoney]

Thank you sir