•Β‚Ά‚ι

DMAX@DMIN@Ε‘ε’lAΕ¬’l


'-----------------------------------------------------------------------------

'  DMin(expr, domain, [criteria])

'  DMax(expr, domain, [criteria]) 

'-----------------------------------------------------------------------------



Dim curX As Currency

Dim curY As Currency



curX = DMin("[‰^‘——Ώ]", "Žσ’", "[o‰Χζ“s“Ή•{Œ§] = 'ˆ€’mŒ§'")

curY = DMax("[‰^‘——Ώ]", "Žσ’", "[o‰Χζ“s“Ή•{Œ§] = 'ˆ€’mŒ§'")





Dim dteOrderDate As Date

Dim curX As Currency



dteOrderDate = #03/30/2000#

curX = DMin("[‰^‘——Ώ]", "Žσ’", "[Žσ’“ϊ] = #" & dteOrderDate & "#")