View Single Post
  #3 (permalink)  
Old March 7th, 2007, 07:29 PM
click click is offline
Authorized User
 
Join Date: Mar 2007
Location: , , .
Posts: 17
Thanks: 0
Thanked 0 Times in 0 Posts
Default

if (T) > (S-T) then (T) else (S-T)".
T = transportation & S = shipping charge.

sub doIt()
  dim myReturnValue as integer
  myReturnValue = getHigher(shippingCost,Transportation)
end sub

private function getHigher(s as integer,t as integer) as integer
  if t > (s - t) then
     return t
  else
     return s - t
  end if
end function