Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tìm Min, Max của số (Ngày) trong dãy số (Ngày)
#1
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn Noname
#2
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 MinArrMaxArr
    Dim Arr
Msg
    Arr 
Split(strArr",")
    
MinArr Arr(0): MaxArr Arr(0)
    
Dim i As Long
    
For 0 To UBound(Arr)
        If 
MaxArr Arr(iThen MaxArr Arr(i)
        If 
MinArr Arr(iThen 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
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#3
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 !
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Việc set thuộc tính OnClick trong Code toancvp 5 229 31-10-16, 10:14 AM
Bài mới nhất: toancvp
  [Hỏi] File chạy chậm vì trong quá trình design phải chỉnh sửa và test thử nhiều. toancvp 4 262 29-07-16, 11:36 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng phần mềm viết bằng Access trong mạng LAN chantroi_19 9 751 21-06-16, 10:33 AM
Bài mới nhất: lmthu
  [Help] Nhờ anh em trong diễn đàn giúp mình thiết kế chương trình báo dịch hàng ngày vinhpaint 1 254 21-06-16, 09:15 AM
Bài mới nhất: zinzin8x
  [Hỏi] Tạo nút mở rộng thu nhỏ trong access nguyenhungcuong 11 409 10-06-16, 12:39 PM
Bài mới nhất: nguyenhungcuong

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ