Đá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
  Di chuyển list index trong listbox về cuối list khi thêm 1 record vuga 1 65 15-01-17, 01:00 PM
Bài mới nhất: ongke0711
Photo Lỗi hàm Sum trong Report va ngày tháng trên Form ! vocan 3 141 09-01-17, 06:19 PM
Bài mới nhất: maidinhdan
Question ? cách gán thuộc tính .listindex = giá trị được chọn trong combobox vuga 1 70 08-01-17, 11:42 AM
Bài mới nhất: ongke0711
Question V/v Cách tạo phiếu xuất thứ tự theo từng ngày vuga 1 115 04-01-17, 06:38 PM
Bài mới nhất: maidinhdan
  ? Đối tượng recordset để truy tìm việc trùng thông tin trong table vuga 3 108 04-01-17, 01:22 AM
Bài mới nhất: vuga

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ơ