En küçük sayıyı bulmak

Merhaba arkadaşlar, bir konuda yardımınızı istiyorum.

Form’a 4 adet Metin Kutusu ekledim. Üç tanesine sayısal veri girince, bu sayıların en küçüğünü En Küçük isimli 4 üncü Metin kutusuna yazacak.

Yalnız bir kural var; eğer sadece bir Metin Kutusunda sayı varsa, doğal olarak en küçük sayı olacak. İki Metin Kutusunda sayı varsa da onların en küçüğü olacak.

Şimdiden teşekkür ederim.

Formu tasarım görünümünde aç, vb sayfasına aşağıdaki kodu ekle

Function EnKucuk(ParamArray alanlar() As Variant)

   Dim a As Integer

   Dim deger As Variant

   deger = alanlar(0)

   For a = 0 To UBound(alanlar)

      If alanlar(a) < deger Then

         deger = alanlar(a)

      End If

   Next a

   EnKucuk = deger

End Function

Forma komut butonu ekle ve tıklandığında olayına

Me.Metin6 = EnKucuk([Metin0], [Metin2], [Metin4])

Kodunu yaz.

Çok teşekkür ederim, ellerinize sağlık.

Rica ederim. Konu taşınmıştır.