• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tìm Min, Max của số (Ngày) trong dãy số (Ngày)

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Tìm Min, Max của số (Ngày) trong dãy số (Ngày)
• Tìm Min, Max của số (Ngày) trong dãy số (Ngày)

• Tìm Min, Max của số (Ngày) trong dãy số (Ngày)

  Minh Tiên > 17-12-13, 04:20 PM

  tmtien261 sưu tầm được Function tìm số (ngày) lớn nhất, số (ngày) nhỏ nhất, xin chia sẽ cùng các ACE "tín đồ" cần dùng.
  Demo_TimMinMax
  Qua đây tmtien261 xin các ACE pro chỉ giáo:
  1. tmtien261 muốn tách chuỗi số (Hoặc ngày) trong textbox và ghi trực tiếp vào mãng (Khai báo trong sub) để tìm số (ngày) lớn nhất, số (ngày) nhỏ nhất luôn mà không phải ghi vào table có được không ? Nếu được xin chỉ dẫn cách viết code. Cảm ơn nhiều !

• RE: Tìm Min, Max của số (Ngày) trong dãy số (Ngày)

  Xuân Thanh > 17-12-13, 09:28 PM

  1/ Xem lại hàm Xor. Lên Google mà tham khảo thêm
  2/ Góp vui bằng một hàm tìm giá trị nhỏ nhất và lớn nhất trong một dãy số cách nhau bằng dấu phẩy
  
  

  Mã PHP:

  Function TimMinMax(strArr As String)
    Dim MinArr, MaxArr
    Dim Arr, Msg
    Arr = Split(strArr, ",")
    MinArr = Arr(0): MaxArr = Arr(0)
    Dim i As Long
    For i = 0 To UBound(Arr)
        If MaxArr < Arr(i) Then MaxArr = Arr(i)
        If MinArr > Arr(i) Then MinArr = Arr(i)
    Next
    Msg =  MsgBox("So nho nhat la " & MinArr & " va so lon nhat la " & MaxArr)
    TimMinMax = Msg
End Function 


  
  Các bạn chế biến cho phù hợp
  Thân mến

• RE: Tìm Min, Max của số (Ngày) trong dãy số (Ngày)

  Minh Tiên > 18-12-13, 09:11 PM

  tmtien261 Xin mạn phép bạn Xuân Thanh, xin đc dùng code của bạn ghép code mình sưu tầm thành:
  1. Tìm Min Max dãy số:
  

  Mã:

  Private Function GetMinMaxValues(strArr As String, Optional bGetMax As Boolean = False) As Integer
    Dim iCounter
    Dim Ary
    Ary = Split(strArr, ",")
    GetMinMaxValues = Ary(0) 'set to the first one so it's not empty
    For iCounter = 0 To UBound(Ary)
    If (GetMinMaxValues < Trim(Ary(iCounter))) Xor bGetMax Then
        GetMinMaxValues = Trim(Ary(iCounter))
    End If
    Next
End Function
'Call Function:
'Min: GetMinMaxValues(strArr, True)
'Max: GetMinMaxValues(strArr)

  2. Tìm Min Max dãy ngày:
  

  Mã:

  Private Function GetMinMaxDays(strArr As String, Optional bGetMax As Boolean = False) As Date
    Dim iCounter
    Dim Ary
    Ary = Split(strArr, ",")
    GetMinMaxDays = Ary(0) 'set to the first one so it's not empty
    For iCounter = 0 To UBound(Ary)
    If (GetMinMaxDays < Trim(Ary(iCounter))) Xor bGetMax Then
        GetMinMaxDays = Trim(Ary(iCounter))
    End If
    Next
End Function
'Call Function:
'Min: GetMinMaxDays(strArr, True)
'Max: GetMinMaxDays(strArr)

  Dãy số hoặc dãy ngày nhập cách nhau dấu phẩy và cho phép có khoảng trắng.
  Thân chào !
• Bài trước Bài tiếp