Tính tiền qua đêm dựa vào thứ trong tuần

[kkev]

Hiện giờ em đang làm project khách san dựa vào Access . Nhưng tình huống của em thì giống với Excel nên em mạng phép post bài này vì tuần sau em phải xong.
Tình huống của em là: 1 người ở từ thứ 3 tuần này đến thứ 3 tuần sau trong khách sạn.
Nếu người đó ở như vậy thì khi vào chủ nhật hoặc thứ 7 (phòng lên giá vào cuối tuần), vậy thì tổng tiền phải là:
Tổng tiền (từ ngày vào ở đến ngày ra)= nếu vào ngày thứ 7 hay chủ nhật, tính phòng= giá phòng cuối tuần+tổng tiền (giá phòng bình thường)của những ngày trước đó (như ví dụ ở trên thì trước khi gặp thứ 7 hay cn thì có thứ 3 ,4,5,6) +tổng tiền (giá phòng bình thường) của những ngày sau đó (thứ 2 và thứ 3 tuần sau)
Em tính dựa vào VBA để làm nhưng ko biết đoạn code và link với cái form của em như thế nào. Đây là đoan code hay nói đúng hơn là ý tưởng ban đầu em viết ko biết có đúng ko?

Function billing(i as date, tong as currency)
Tong=0
For i=check in date[ngày vào] to check out date[ngày ra]
If format(i,”ddd”)=”sat” or format(i,”ddd”)=”sun” then tong=tong+price+10[giá phòng cuối tuần là price+10]
Else tong=tong+price
Next i

Em xin các bác, các chú, các cô, các chị giúp em. Em thật sự ko biết làm sao, vì cái bài project này rất quan trọng đối với em. Em chân thành cám ơn những người giúp đỡ em.
Em xin cảm ơn

 

[SA_DQ]

Hàm này xài định dạng ngày theo bọn Mẽo

Option Explicit
Function TienPhong(NgDen As Date, NgDi As Date, DonGia As Double) As Double
 Dim iJ As Long
 For iJ = 0 To (NgDi - NgDen)
        TienPhong = TienPhong + DonGia
    If Weekday(iJ + NgDen) = 7 Or Weekday(iJ + NgDen) = 1 Then
        TienPhong = TienPhong + DonGia * 0.1
    End If
 Next iJ
End Function

Cứ vào thứ bảy hay CN sẽ tăng đơn giá lên 10%!

 

[kkev]

Em xin cảm ơn SA_DQ . Thế là cũng giải quyết được chuyện coding nhưng bây h còn chuyện nữa là link nó vào cái form trong Access của em.

Em xin làm phiền mọi người thêm chuyện này. Tại vì nếu chỉ có code thui nhưng ko biết link vào form để có dữ liệu thì cũng như... có thể nói như ko có giá trị (cho em xin lỗi ).

Mong mọi người giúp đỡ.

 

[ptm0412]

Trên form của bạn chắc là đã có các textbox hoặc control là ngày đến, ngày đi, đơn giá rồi. Tên của chúng giả sử là d1, d2 và price.
1. Trong database window chọn module ở cột bên trái, chọn new. Trong cửa sổ code hiện lên copy và dán đoạn code của Sa_DQ vào.
2. Click chọn textbox tongtien, trong property data-control source gõ:
=tienphong(d1,d2,price)
3. Chạy thử form, cho số liệu vào d1, d2, price và xem kết quả.
4. Nếu d1, d2, price chưa có dữ liệu sẽ có báo lỗi #Error, vậy hãy đặt default value cho 3 control này cho khỏi bị trống.
Chúc thành công.