آموزش توابع اکسس

1. جمع دو عدد

Function AddTwoNumbers(num1 As Double, num2 As Double) As Double     AddTwoNumbers = num1 + num2 End Function 

2. تفریق دو عدد

Function SubtractNumbers(num1 As Double, num2 As Double) As Double     SubtractNumbers = num1 - num2 End Function 

3. ضرب دو عدد

Function MultiplyNumbers(num1 As Double, num2 As Double) As Double     MultiplyNumbers = num1 * num2 End Function 

4. تقسیم دو عدد

Function DivideNumbers(num1 As Double, num2 As Double) As Double     If num2 <> 0 Then         DivideNumbers = num1 / num2     Else         DivideNumbers = 0     End If End Function 

5. محاسبه فاکتوریل یک عدد

Function Factorial(n As Integer) As Long     If n <= 1 Then         Factorial = 1     Else         Factorial = n * Factorial(n - 1)     End If End Function 

6. چک کردن اینکه یک عدد زوج است

Function IsEven(num As Integer) As Boolean     IsEven = (num Mod 2 = 0) End Function 

7. چک کردن اینکه یک عدد فرد است

Function IsOdd(num As Integer) As Boolean     IsOdd = (num Mod 2 <> 0) End Function 

8. تبدیل متن به حروف بزرگ

Function ToUpperCase(text As String) As String     ToUpperCase = UCase(text) End Function 

9. تبدیل متن به حروف کوچک

Function ToLowerCase(text As String) As String     ToLowerCase = LCase(text) End Function 

10. تبدیل اولین حرف هر کلمه به حروف بزرگ

Function CapitalizeFirstLetter(text As String) As String     CapitalizeFirstLetter = StrConv(text, vbProperCase) End Function 

11. بررسی وجود کاراکتر در یک رشته

Function ContainsChar(text As String, char As String) As Boolean     ContainsChar = InStr(1, text, char) > 0 End Function 

12. برگرداندن تعداد کاراکترهای یک رشته

Function GetStringLength(text As String) As Integer     GetStringLength = Len(text) End Function 

13. محاسبه میانگین دو عدد

Function AverageTwoNumbers(num1 As Double, num2 As Double) As Double     AverageTwoNumbers = (num1 + num2) / 2 End Function 

14. تولید یک رشته تصادفی

Function GenerateRandomString(length As Integer) As String     Dim i As Integer     Dim result As String     For i = 1 To length         result = result & Chr(Int((90 - 65 + 1) * Rnd + 65)) ' A-Z     Next i     GenerateRandomString = result End Function 

15. محاسبه توان یک عدد

Function Power(base As Double, exponent As Double) As Double     Power = base ^ exponent End Function 

16. محاسبه ریشه دوم یک عدد

Function SquareRoot(num As Double) As Double     SquareRoot = Sqr(num) End Function 

17. چک کردن اینکه یک سال کبیسه است

Function IsLeapYear(year As Integer) As Boolean     IsLeapYear = ((year Mod 4 = 0) And (year Mod 100 <> 0)) Or (year Mod 400 = 0) End Function 

18. چاپ رشته در کنسول

Function PrintText(text As String)     Debug.Print text End Function 

19. محاسبه مجموع اعداد در یک آرایه

Function SumArray(numbers() As Double) As Double     Dim i As Integer     Dim total As Double     total = 0     For i = LBound(numbers) To UBound(numbers)         total = total + numbers(i)     Next i     SumArray = total End Function 

20. برگرداندن بزرگترین عدد در یک آرایه

Function MaxInArray(numbers() As Double) As Double     MaxInArray = Application.Max(numbers) End Function 

21. محاسبه تعداد ارقام یک عدد

Function CountDigits(num As Long) As Integer     CountDigits = Len(CStr(num)) End Function 

22. چک کردن اینکه عدد اول است

Function IsPrime(num As Integer) As Boolean     Dim i As Integer     If num <= 1 Then         IsPrime = False         Exit Function     End If     For i = 2 To Sqr(num)         If num Mod i = 0 Then             IsPrime = False             Exit Function         End If     Next i     IsPrime = True End Function 

23. محاسبه مجموع ارقام یک عدد

Function SumDigits(num As Long) As Integer     Dim total As Integer     total = 0     Do While num > 0         total = total + (num Mod 10)         num = num \ 10     Loop     SumDigits = total End Function 

24. تبدیل تاریخ به رشته

Function DateToString(d As Date) As String     DateToString = Format(d, "dd/mm/yyyy") End Function 

25. برگرداندن تاریخ جاری

Function GetCurrentDate() As Date     GetCurrentDate = Date End Function 

26. محاسبه اختلاف بین دو تاریخ

Function DateDifference(d1 As Date, d2 As Date) As Integer     DateDifference = DateDiff("d", d1, d2) End Function 

27. تبدیل مبلغ به فرمت ارز

Function FormatCurrency(amount As Double) As String     FormatCurrency = Format(amount, "Currency") End Function 

28. پیدا کردن کمترین عدد در یک آرایه

Function MinInArray(numbers() As Double) As Double     MinInArray = Application.Min(numbers) End Function 

29. چک کردن اینکه یک رشته خالی است

Function IsStringEmpty(text As String) As Boolean     IsStringEmpty = Len(Trim(text)) = 0 End Function 

30. مقایسه دو رشته

Function CompareStrings(text1 As String, text2 As String) As Boolean     CompareStrings = (StrComp(text1, text2, vbTextCompare) = 0) End Function 

31. تبدیل رشته به عدد

Function StringToNumber(text As String) As Double     StringToNumber = Val(text) End Function 

32. برگرداندن رشته معکوس

Function ReverseString(text As String) As String     Dim i As Integer     Dim result As String     result = ""     For i = Len(text) To 1 Step -1         result = result & Mid(text, i, 1)     Next i     ReverseString = result End Function 

33. ایجاد تاخیر در اجرا

Sub PauseExecution(seconds As Double)     Dim endTime As Date     endTime = DateAdd("s", seconds, Now)     Do While Now < endTime         DoEvents     Loop End Sub 

34. برگرداندن تاریخ فعلی و زمان

Function GetCurrentDateTime() As String     GetCurrentDateTime = Format(Now, "dd/mm/yyyy hh:nn:ss") End Function 

35. تبدیل عدد به رشته

Function NumberToString(num As Double) As String     NumberToString = CStr(num) End Function 

36. جایگزین کردن کاراکتر در رشته

Function ReplaceChar(text As String, oldChar As String, newChar As String) As String     ReplaceChar = Replace(text, oldChar, newChar) End Function 

37. تبدیل دما از سانتیگراد به فارنهایت

Function CelsiusToFahrenheit(celsius As Double) As Double     CelsiusToFahrenheit = (celsius * 9 / 5) + 32 End Function 

38. تبدیل دما از فارنهایت به سانتیگراد

Function FahrenheitToCelsius(fahrenheit As Double) As Double     FahrenheitToCelsius = (fahrenheit - 32) * 5 / 9 End Function 

39. محاسبه محیط دایره

Function CirclePerimeter(radius As Double) As Double     CirclePerimeter = 2 * 3.1416 * radius End Function 

40. محاسبه مساحت دایره

Function CircleArea(radius As Double) As Double     CircleArea = 3.1416 * radius * radius End Function 

41. چک کردن اینکه یک رشته به عدد ختم می‌شود

Function EndsInNumber(text As String) As Boolean     EndsInNumber = IsNumeric(Right(text, 1)) End Function 

42. پاک کردن فضای خالی از ابتدا و انتهای رشته

Function TrimSpaces(text As String) As String     TrimSpaces = Trim(text) End Function 

43. تبدیل عدد به رشته باینری

Function NumberToBinary(num As Long) As String     NumberToBinary = WorksheetFunction.Dec2Bin(num) End Function 

44. محاسبه سری فیبوناچی

Function Fibonacci(n As Integer) As Long     If n <= 1 Then         Fibonacci = n     Else         Fibonacci = Fibonacci(n - 1) + Fibonacci(n - 2)     End If End Function 

45. چک کردن اینکه یک رشته به رشته دیگر شروع می‌شود

Function StartsWith(text As String, prefix As String) As Boolean     StartsWith = (Left(text, Len(prefix)) = prefix) End Function 

46. پیدا کردن اولین مکان یک کاراکتر در رشته

Function FindChar(text As String, char As String) As Integer     FindChar = InStr(1, text, char) End Function 

47. محاسبه مساحت مستطیل

Function RectangleArea(length As Double, width As Double) As Double     RectangleArea = length * width End Function 

48. برگرداندن حروف بزرگ یک رشته

Function UpperCaseString(text As String) As String     UpperCaseString = UCase(text) End Function 

49. برگرداندن تفاوت بین دو عدد

Function Difference(num1 As Double, num2 As Double) As Double     Difference = Abs(num1 - num2) End Function 

50. تبدیل رشته به عدد صحیح

Function ToInteger(text As String) As Integer     ToInteger = CInt(text) End Function