dotrung > 01-02-20, 01:30 PM
Xuân Thanh > 01-02-20, 05:40 PM
(01-02-20, 01:30 PM)dotrung Đã viết: Hiện tại em đang bí phần làm số lượng chẵn lên và chẵn xuống theo bảo bó có sẵn
ví dụ : nhập số lượng 100 , với bản bó 30
- Nếu chọn chẵn lên : khi nhập 100 số lượng tự động nhảy lên 120 (tương ứng 4 hộp)
- Nếu chọn chẵn xuống : khi nhập 100 số lượng tự động nhảy lên 90 (tương ứng 3 hộp)
Rất mong các bác trong diễn đàn hỗ trợ code giúp, em cảm ơn nhiều ạ.
ongke0711 > 01-02-20, 06:18 PM
Option Compare Database
Option Explicit
Function PackageQty(lngQty As Long, lngPackage As Long, blnRoundUp As Boolean) As Long
'Kiem tra thong tin hop le
If lngQty < 0 Or lngPackage <= 0 Then
MsgBox "Tham sô không hop lê.", vbCritical, "Canh báo"
Exit Function
End If
Dim lngQtyRemain As Long
Dim lngQtyInPakage As Long
lngQtyInPakage = lngQty \ lngPackage
lngQtyRemain = lngQty Mod lngPackage
PackageQty = 0
Select Case lngQtyRemain 'So luong dung voi goi (package)
Case Is = 0
PackageQty = lngQtyInPakage * lngPackage
Case Else 'So luong khong chãn vói gói
If lngQtyInPakage = 0 Then 'TH: so luong < gói. Vd: Qty=20; Package=30
PackageQty = 1 * lngPackage
Else
Select Case blnRoundUp
Case True
PackageQty = (lngQtyInPakage + 1) * lngPackage
Case False
PackageQty = lngQtyInPakage * lngPackage
End Select
End If
End Select
End Function
dotrung > 01-02-20, 08:57 PM