Minimum af en række variable

Her er et eksempel..

Funktionen kaldes med min("tal1;tal2;tal3"), og kan håndtere kommatal. Den laver automatisk "," om til ".".

function min(t)
dim m, n
t = replace(t, ",", ".") ' lav "," om til "."
t = split(t, ";")
m = 0

for i = 0 to ubound(t)
n = CDBl(t(i))
  if i = 0 then
      m = n
    else
      if m > n then m = n
    end if
next

'm = replace(m, ".", ",") ' fjern kommenteringen for at få "," (komma) returneret
min = m
end function

=IIf([tal1]<[tal2] And [tal2]<[tal3];[tal1];IIf([tal2]<[tal1] And [tal2]<[tal3];[tal2];[tal3]))

skriv det i et ubundet felt.

[tal1], [tal2] og [tal3] er de felter der tjekkes

rettelse, den skal se sådan ud hvis du kan have flere med samme værdi

=IIf([tal1]<=[tal2] And [tal2]<=[tal3];[tal1];IIf([tal2]<=[tal1] And [tal2]<=[tal3];[tal2];[tal3]))

Hej thesurfer
Funktionen min(t) er nok smartest, for den anden bliver lidt besværligt hvis der er mere end 3 tal.

Tak for hjælpen

Underligt - kan ikke få lov at acceptere svaret - måske endnu et driftsproblem. Jeg prøver i morgen!

Du kan ikke acceptere mit forslag, da jeg endnu ikke har lagt et "svar".. det har jeg gjort nu.

Læs evt ExpFAQ, der indholder en masse tips: http://expfaq.1go.dk/
Behandling af svar: http://expfaq.1go.dk/?id=3#behandling_af_svar