Hỏi hàm dò ngày tháng trong 1 Table

Trang chủ
Hỏi hàm dò ngày tháng trong 1 Table
RE: Hỏi hàm dò ngày tháng trong 1 Table

ongke0711 > 10-07-17, 06:50 PM

Cái vụ định dạng ngày/ tháng/ năm này nó rắc rồi thật.
- Anh chuyển ngày hệ thống (Windows) thành dạng: mm/dd/yyyy. Nó đúng với định dạng cho VBA code.
- Các table thì anh cứ giữ định dạng như hiện nay là:
+ Format: dd/mm/yyyy
+ Input mask: 00/00/0000
- Nhưng khi nhập liệu phải nhập tháng trước ngày sau (nhập mm/dd/yyyy) thì kết quả mới đúng yêu cầu. Khi nhập xong vô table, table sẽ tự động chuyển lại thành ngày/ tháng/ năm như định dạng.
Anh xóa dữ liệu Date và nhập lại kiểu trên đi, sẽ chạy ok.
RE: Hỏi hàm dò ngày tháng trong 1 Table

truongtrungviet > 10-07-17, 08:27 PM

(10-07-17, 06:50 PM)ongke0711 Đã viết: Cái vụ định dạng ngày/ tháng/ năm này nó rắc rồi thật.
- Anh chuyển ngày hệ thống (Windows) thành dạng: mm/dd/yyyy. Nó đúng với định dạng cho VBA code.
- Các table thì anh cứ giữ định dạng như hiện nay là:
+ Format: dd/mm/yyyy
+ Input mask: 00/00/0000
- Nhưng khi nhập liệu phải nhập tháng trước ngày sau (nhập mm/dd/yyyy) thì kết quả mới đúng yêu cầu. Khi nhập xong vô table, table sẽ tự động chuyển lại thành ngày/ tháng/ năm như định dạng.
Anh xóa dữ liệu Date và nhập lại kiểu trên đi, sẽ chạy ok.

OK. Đã chạy thành công.

Trích dẫn:Mình đang làm cái cách bình thường là nếu nghỉ 2 ngày thì cứ bù kế tiếp nhau thêm 2 ngày học nữa là bù thêm ngày thứ 2 và thứ 4. Anh nghĩ sao?
Còn cái hàm học bù thì sao bạn ơi.
RE: Hỏi hàm dò ngày tháng trong 1 Table

ongke0711 > 11-07-17, 03:27 AM

Sau đây là toàn bộ code tính ra ngày kết thúc khóa học sau khi bù thêm các ngày nghỉ chung.
Bao gồm:
- Hàm BuNgayHoc(): Tính ra số ngày phải dạy bù thêm nếu có ngày nghỉ chung trung ngày đi học.
- Hàm NgayKTKhoa(): Tính ra ngày kết thúc khóa học sau khi đã bù các ngày nghỉ chung.

Chi tiết giải thuật từ từ mình bổ sung giải thích sau nhé. Nói chung cách này nó cũng loằng ngoằn lắm nhưng ra kết quả là được rồi.
Cũng chưa test hết các trường hợp nên chưa biết nó còn lỗi ở đâu không, anh test thử đi nhe.

Mã PHP:
Option Explicit Dim BuoiHocArr() As String Public Function BuNgayHoc(NgayBD As Date, NgayKT As Date, BuoiHoc As String) As Integer Dim tmpBuoiHoc As String tmpBuoiHoc = Replace(BuoiHoc, "CN", 1) BuoiHocArr = Split(tmpBuoiHoc, "-") Dim tmpSoNgayBu As Integer Dim tmpNgay As Date Dim tmpNgayBD As Date tmpNgay = NgayBD tmpSoNgayBu = 0 Do Until tmpNgay > NgayKT If DCount("*", "tblNgayNghiChung", "[NgayNghi] =#" & tmpNgay & "#") > 0 Then If IsInArray(Weekday(tmpNgay), BuoiHocArr) Then tmpSoNgayBu = tmpSoNgayBu + 1 End If End If tmpNgay = tmpNgay + 1 Loop BuNgayHoc = tmpSoNgayBu End Function Function IsInArray(ByVal stringToBeFound As String, ByVal arr As Variant) As Boolean Dim element As Variant For Each element In arr If element = stringToBeFound Then IsInArray = True Exit Function End If Next element End Function Public Function NgayKTKhoa(NgayBD As Date, NgayKT As Date, BuoiHoc As String) As Date Dim intSoNgayBu As Integer intSoNgayBu = BuNgayHoc(NgayBD, NgayKT, BuoiHoc) If intSoNgayBu = 0 Then NgayKTKhoa = NgayKT Exit Function End If '----------------------------------------------------------------------------------------- 'Tim buoi hoc cuoi khóa vào thu may? <=> So thu tu trong mang cua ngay do - BuoiHocArr(k) Dim i As Integer, k As Integer, j As Integer Dim blnFlag As Boolean Dim BuoiHocCuoi As Integer Dim intBuoiHocCuoi_ArrNo As Integer i = LBound(BuoiHocArr) k = UBound(BuoiHocArr) If BuoiHocArr(i) > Weekday(NgayKT) Then intBuoiHocCuoi_ArrNo = k blnFlag = True 'Dùng de tinh so tuan bu them cua code ben duoi (-1) ElseIf BuoiHocArr(k) < Weekday(NgayKT) Then intBuoiHocCuoi_ArrNo = k blnFlag = False Else j = k BuoiHocCuoi = BuoiHocArr(j) Do While BuoiHocCuoi > Weekday(NgayKT) j = j - 1 BuoiHocCuoi = BuoiHocArr(j) intBuoiHocCuoi_ArrNo = j '--> Tim ra so thu tu trong mang Arr Loop blnFlag = False End If '------------------------------------------------------------------------------------------ 'Tinh ngay bu them cuoi cung roi vao thu may? Dim intBuoiHocBuCuoi As Integer Dim intBuoiHocBuCuoi_ArrNo As Integer Dim intSoTuanBuThem As Integer, SoLan As Integer intBuoiHocBuCuoi_ArrNo = (intBuoiHocCuoi_ArrNo + intSoNgayBu) Mod (k + 1) intBuoiHocBuCuoi = BuoiHocArr(intBuoiHocBuCuoi_ArrNo) If blnFlag Then intSoTuanBuThem = Int((intBuoiHocCuoi_ArrNo + intSoNgayBu) / (k + 1)) - 1 Else intSoTuanBuThem = Int((intBuoiHocCuoi_ArrNo + intSoNgayBu) / (k + 1)) End If NgayKTKhoa = NgayKT + (intSoTuanBuThem * 7 - Weekday(NgayKT)) + intBuoiHocBuCuoi End Function

Link file demo: http://www.mediafire.com/file/o4vgp2g7en...nal%29.mdb
RE: Hỏi hàm dò ngày tháng trong 1 Table

truongtrungviet > 11-07-17, 10:24 AM

Tôi mong được mời bạn chầu cafe ongke0711. Quá hay.
Nếu mà trong VBA set được cái hàm ngày tháng theo dd/mm/yyyy nữa thì tuyệt cú mèo.
RE: Hỏi hàm dò ngày tháng trong 1 Table

tranthanhan1962 > 11-07-17, 05:44 PM

Hì hì! Mấy hôm nay mình cũng thường xuyên đăng nhập vào forum. Nhưng mà chỉ cỡi ngựa xem hoa hoặc thấy cái gì nhè nhẹ thì bay vào. Do mình cũng đang bận xử lý một phần mềm mua bán nữ trang bằng mã vạch cho khách. Mà ông khách này cũng dạng đòi hỏi trên trời, dưới đất . Đại loại tiền công không được ghi bằng số mà phải ghi bằng chữ như mật mã (chỉ người trong cửa hàng mới hiểu) . Tên tiệm vàng phải rõ đẹp trong khi miếng tem nhỏ hơn ngón tay út với cái máy in nghĩa địa cũ xì, kiếm muốn khùng mới xin được cái driver . Nên khi thấy cái chủ đề của bạn truongtrungviet là mình dội ngang . Mình mới đọc sơ sơ mấy cái mod của các bạn nên chưa hiểu rõ lắm về cấu trúc của nó. Nhưng qua cách nói của các bạn mình thấy đang vướng vấn đề dd/mm/yyyy của cách viết tiếng Việt và mm/dd/yyyy của cấu trúc ngôn ngữ code. Thật là trời đã đẻ ra thằng Tây sau lại đẻ thêm thằng Mỹ .
Nói vui tí thôi, nhưng mà cũng có ý nhỏ để xem có giúp gì các bạn được không? Thôi thì gom lại ngày-tháng-năm hay tháng-ngày-năm nó rắc rối thì xé nó ra luôn. Ở table cho thêm 3 cột: Ngày, Tháng, Năm. Khi nhập dữ liệu vào tách luôn. Đến khi viết code thì dùng hàm gom nó lại theo cấu trúc code. Ý tưởng thì như vậy, nhưng không biết thực hiện như thế nào. Nếu xử lý được thì không cần đổi ngày hệ thống.
Chúc các bạn thành công.
RE: Hỏi hàm dò ngày tháng trong 1 Table

truongtrungviet > 11-07-17, 07:53 PM

Trích dẫn:Thôi thì gom lại ngày-tháng-năm hay tháng-ngày-năm nó rắc rối thì xé nó ra luôn. Ở table cho thêm 3 cột: Ngày, Tháng, Năm. Khi nhập dữ liệu vào tách luôn. Đến khi viết code thì dùng hàm gom nó lại theo cấu trúc code. Ý tưởng thì như vậy, nhưng không biết thực hiện như thế nào. Nếu xử lý được thì không cần đổi ngày hệ thống.
Bây giờ cái đầu nó muốn nổ tung rồi anh. Em thấy phương án can thiệp code VBA Ngày theo kiểu dd/mm/yyyy là tối ưu nhất, nhưng không biết can thiệp nó như thế nào, rất mong ace trợ giúp. Xin cảm ơn tất cả vì sự nhiệt tình.
RE: Hỏi hàm dò ngày tháng trong 1 Table

tranthanhan1962 > 11-07-17, 10:52 PM

Sorry, Hồi trước lúc quản lý trung tâm tin học mình có viết cái vụ này. Hồi đó chư có trình độ như các bạn bây giờ đâu! mày mò cả tháng nhưng nữa chừng mình lại bỏ cuộc. Vì có nhiều vấn đề đẻ ra: Nào giáo viên bệnh không có người thay phải cho nghỉ, cúp điện nghĩ, lớp phải nghỉ vì nhiều lý do (ví dụ học viên là học sinh phổ thông nghỉ ôn thi với số lượng lớn, v.v. và v. v...) cuối cùng làm ... thủ công. Nói chung ngày kết thúc không chỉ trừ các ngày lễ chung và ngày nghỉ là đủ.
RE: Hỏi hàm dò ngày tháng trong 1 Table

MTNQ > 12-07-17, 06:45 AM

(11-07-17, 07:53 PM)truongtrungviet Đã viết: ...
Bây giờ cái đầu nó muốn nổ tung rồi anh. Em thấy phương án can thiệp code VBA Ngày theo kiểu dd/mm/yyyy là tối ưu nhất, nhưng không biết can thiệp nó như thế nào, rất mong ace trợ giúp. Xin cảm ơn tất cả vì sự nhiệt tình.

Bác chỉ cần chỉnh hàm BuNgayHoc lại một chút xíu nữa thôi.
Dòng này:

Mã:
If DCount("*", "tblNgayNghiChung", "[NgayNghi] =#" & tmpNgay & "#") > 0 Then

Sửa thành:

Mã:
If DCount("*", "tblNgayNghiChung", "[NgayNghi] =#" & Format(tmpNgay, "mm/dd/yyyy") & "#") > 0 Then

Như vậy định dạng ngày giờ trên hệ thống theo dd/mm/yyyy hay mm/dd/yyyy... cũng đều được
RE: Hỏi hàm dò ngày tháng trong 1 Table

ongke0711 > 13-07-17, 11:51 PM

(12-07-17, 06:45 AM)MTNQ Đã viết: Sửa thành:

Mã:
If DCount("*", "tblNgayNghiChung", "[NgayNghi] =#" & Format(tmpNgay, "mm/dd/yyyy") & "#") > 0 Then

Nhiều lúc cái kỹ thuật này làm hoài mà lại quên.
Nhưng có cái mình không nghĩ ra được là lúc đầu mình dùng hàm Format() này khi gán biến: tmpNgay = Format (NgayBD, "mm/dd/yyyy") nó lại cho kết quả sai. Khi dùng trong Dcount lại cho kq đúng.
Bài trước Bài tiếp