Độc thân, đó không hoàn toàn là lỗi của mình???

[binhminhcaonguyen2]

http://diendantoanhoc.net/vmf/index...rd&view=postlist&forum=5&topic=154&Itemid=474
Công thức tìm bạn đời???
Là trợ giảng môn kinh tế tại ĐH Warwick (Anh), thầy Backus 30 tuổi, đã công bố luận văn "Sao tôi không có bạn gái?" sau ba năm mày mò đơn độc. Nghiên cứu kỳ quặc của Backus sử dụng một công thức nổi tiếng gọi là phương trình Drake, từng được dùng để ước tính khả năng tồn tại của cuộc sống ngoài trái đất! Tuy nhiên, kết quả dường như không hứa hẹn nhiều đối với những kẻ độc thân, vì Backus tính ra trong số 30 triệu phụ nữ ở Anh chỉ có 26 người thích hợp làm bạn gái của anh...
Theo công thức của Backus, mỗi lần ra ngoài anh chỉ có 0,0000034% cơ hội tìm được bạn đời lý tưởng.
Cái gì cũng có khoa học và cần phải khoa học!!! Pó tay!!! Kể cả cái vụ tìm bạn chung thân. Toán học thì bảo đó là xác suất ngẫu nhiên. Có lẽ thế. Còn lý giải theo quan điểm trực giác Phương đông thì:
1-/ Hữu duyên thiên lý năng tương ngộ/ Vô duyên đối diện bất tương phùng. Hoặc là: Cái tình là ý của ta/ Còn duyên tại số- chỉ ra ý Trời.v.v...
2-/ (Quên mất tiêu)
Năm nay không ăn nhậu, chỉ để bình tâm suy ngẫm xem mình có cái số gì không. Chắc là có. Một đóng số 0 luôn. Nản. Xác suất của mỗi lần là 0,0000034%. Hỏng muốn đi tìm con số 1 nữa. Tự gẫm :"Ai bảo ta sống mòn theo năm tháng/ Rồi giật mình-lỗi hẹn với nhân gian.

 

[havietchuong]

Đúng là đầu óc của EXCEL.
Tôi mới đăng kí mua sách VBA trên Excel nên chưa có cái code nào giải quyết được. Hy vọng một ngày nào đó, với những lão tướng của GPE sẽ viết cho cộng đồng chúng ta những đoạn code ngắn nhất, có hiệu quả nhất.
Chúc vui vẻ.

 

[ptm0412]

Muốn code thì có code:

Public Sub FindMatch (Nick As Man, MinAge As Long, MaxAge As Long)
    Dim Manner As Characteristic:  Match As Boolean   : Difficulty As Long
    Dim Ladies As NewADODB Connection:  Dim MySQL As String
    MySQL = "Select * From Women " & Chr(10) & _
    "Where (Women.Status = Single) And (Women.Age Between MinAge And MaxAge) " & Chr(10) & _
    "Order By Women.Age;"
    Ladies.Open MySQL
    GoTo FirstRecord 
    Do While Not EOF()
    ' EOF() xa lắm à nha
    '
        For i = 1 to Nick.Manners.Count
            Match = Match And (Nick.Manner(i) = Women.Manner(i)) 
        Next i
        If Match = False Then 
           Difficulty = Difficulty +1
           Goto NextRecord
        Else
           Rate = "1/" & Difficulty
           MsgBox Rate, "Result"
           Exit Sub
        End If
    Loop
End Sub

Test thử:

Test Nick | Kết quả
Call FindMatch KTGG, 40, 50 | 1/50.000
Call FindMatch Cadafi, 20, 30 | 1/5.000
Call FindMatch cheettit, 30, 45 | Treo máy

 

[Candlelight]

Không phải tại anh, cũng chẳng phải tại em, tại VÀNG lên giá nên hai đứa mình xa nhau!!!

 

[binhminhcaonguyen2]

Đúng là đầu óc của EXCEL.
Tôi mới đăng kí mua sách VBA trên Excel nên chưa có cái code nào giải quyết được. Hy vọng một ngày nào đó, với những lão tướng của GPE sẽ viết cho cộng đồng chúng ta những đoạn code ngắn nhất, có hiệu quả nhất.
Chúc vui vẻ.

Không có code thì dùng hình tạm vậy, bởi vì đâu phải chỉ có duy nhất phương tiện code mới có thể giải quyết tốt vấn đề đâu nè. Hình đây:

Vấn đề quan trọng là, trong tấm hình trên, bmcn2 là mảnh ghép nào? Và mảnh ghép còn lại của bmcn2 là mảnh ghép nào? hu hu hu hu uuuuuuuuu

 

[ptm0412]

Đọc lại, thấy rằng cách đây rất rất rất lâu, lão chết tiệt đã viết ADO nhon nhon rồi.

 

[binhminhcaonguyen2]

Đọc lại, thấy rằng cách đây rất rất rất lâu, lão chết tiệt đã viết ADO nhon nhon rồi.

Thật sự thì bmcn2 chưa từng thấy, cũng chưa từng đọc cái ADO nhon nhon nên cũng không biết gì về ADO nhon nhon hết. híkkkkk....đến biết mà còn chưa thì nói gì đến chuyện hiểu chứ?!

 

[hoamattroicoi]

Độc thân, đó không hoàn toàn là lỗi của mình???

Tất cả là do mình hết nhưng lại hay trách đời..................bạc bẽo với ta....hihi
Tâm hồn của bmcn2 mong manh dễ vỡ quá, hic hic

 

[binhminhcaonguyen2]

Độc thân, đó không hoàn toàn là lỗi của mình???

Tất cả là do mình hết nhưng lại hay trách đời..................bạc bẽo với ta....hihi
Tâm hồn của bmcn2 mong manh dễ vỡ quá, hic hic

bmcn2 không như bạn nghĩ đâu. Vì đời còn có câu: "Tiên trách kỷ, hậu trách nhân"
Mà nè, vấn đề là:
Đàn ông muốn làm giàu thì phải có vợ (1)
Đàn ông muốn có có vợ thì phải giàu (2)
Từ (1) và (2), ta suy ra một núi mâu thuẫn luôn
hi hi hi, thế nên bmcn2 muốn nhắn nhủ với mảnh ghép kia rằng:

Tiếp nữa nè: