گرفتن کوچکترین عدد

[Angry Fox 48]

سلام

من کد زیرو نوشتم که اختلاف بین تاریخی که توی دیتابیس نوشته شده و تاریخ امروز رو به صورت یک عدد بدست بیام و تا اینجا مشکل نداشتم

	Dim intig As Int
	Dim ns As String = AR.PersianDate(0,0,0,"")
	For ie = 0 To Cur1.RowCount-1
	intig = ie
	arr(ie)=arr(ie).Replace("/",arr(ie))
	arr2(ie) =	arr(ie) - ns
	Next

در ضمن کورسور رو یه جا دیگه از قبل اینیشیالایز کردم

خب من میخام ببینم چه جوری میشه کوچکترین عدد رو از arr2(ie) بدست اورد?

[salar_blackdroid 408]

اگه arr2 یک آرایه هست که دیگه پیدا کردن کوچکترین راحته.

یدونه Sub بنویسید که با مقایسه عناصر و در ابتدا با در نظر گرفتن یک Min فرضی ، Min  را پیدا کند.