|
|
Viết bởi: hugox03 03-08-13, 12:51 AM Chuyên mục: Forms - Bài trả lời (6) |
|
|
Viết bởi: trav2t 02-08-13, 11:34 AM Chuyên mục: Query - Bài trả lời (4) |
Public Function Daytrungnhau(st As String) As Boolean
Dim kt As Integer, sophantu As Integer
Dim ktso As String
Dim kts As String
Dim tohop() As Integer 'Tạo mãng động do không biết số phần tự trong dãy số nhập vào là bao nhiêu'
'Đếm số phần tử trong dãy số'
kt = 1
sophantu = 0
kts = st + " "
Do While kt < Len(kts)
ktso = ""
Do While Mid(kts, kt, 1) <> " "
ktso = ktso + Mid(kts, kt, 1)
kt = kt + 1
Loop
sophantu = sophantu + 1
kt = kt + 1
Loop
ReDim tohop(sophantu) As Integer 'Tao lai mang voi so luong la sophantu kieu Integer'
kt = 1
For i = 1 To sophantu 'Lay gia tri cac phan tu gan cho mang'
Do While kt < Len(ktphieu)
ktso = ""
Do While Mid(ktphieu, kt, 1) <> " "
ktso = ktso + Mid(ktphieu, kt, 1)
kt = kt + 1
Loop
tohop(i) = Val(ktso) 'Đổi các ký tự số kiểu text thành số kiểu Number và gán cho mãng vị trí thứ i'
kt = kt + 1
Loop
Next i
'Kiểm tra các phần tử trong mãng có trùng nhau không'
'Nếu trùng nhau thì gắn kết quả False và thoát khỏi hàm'
For i = 1 To sophantu - 1
For j = 2 To sophantu
If tohop(i) = tohop(j) Then
Daytrungnhau = False
Exit Function
End If
Next j
Next i
Daytrungnhau = True 'Nếu đến cuối cùng không tìm được số trùng nhau thì gắn kết quả True'
End Function
Private Sub cmdKiemtra_Click()
If Daytrungnhau(dayso) then
MsgBox "Có số trùng nhau", vbInformation, "Thông báo!"
Else
MsgBox "Không có số trùng nhau", vbInformation, "Thông báo!"
End If
End Sub
|
|
Viết bởi: duongpn365 01-08-13, 06:00 PM Chuyên mục: Report - Bài trả lời (2) |
|
|
Viết bởi: nguyenbalai 01-08-13, 05:46 PM Chuyên mục: Forms - Bài trả lời (11) |
|
|
Viết bởi: anhupro 01-08-13, 04:58 PM Chuyên mục: Query - Bài trả lời (2) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 632 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |