Em có ý tưởng nhưng ko biết viết VBA

[tienduyet]

Anh, chị ah. Giúp thằng em đang mày mò tìm hiểu về Access giải các yêu cầu trong SKT bằng VBA với nhé.
Thật là, em tự học nên mong anh chị làm cho em các trình mẫu, từ đó em học hỏi và nâng cao hiểu biết của em về VBA cũng như kiến thức về Access, hiểu tý chút về lập trình nữa ah!
Cảm ơn anh, chị!

Yêu cầu bài toán ở trong file Access này nha: http://www.mediafire.com/download.php?aaraaaagaaa

 

[tienduyet]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Vâng, chỉ em cách tính HômNay - 01/01/2008 = ?? ngày
anh tải giúp em File ở đường link trên rồi về xem và giải giúp em nhé
Cảm ơn anh.

 

[suynghidi]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Vâng, chỉ em cách tính HômNay - 01/01/2008 = ?? ngày
anh tải giúp em File ở đường link trên rồi về xem và giải giúp em nhé
Cảm ơn anh.

Dùng hàm Datediff (ngày đầu, ngày cuối, "d" )
Nếu muốn tính số tháng thì thay "d" bằng "m", tương tự năm là "y".

 

[muontennguoi]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Các hàm về ngày tháng thường dùng của VBA (dùng cả trong Access lẫn Excel ..)

IsDate(biểuthức) kiểm tra xem biểuthức có phải là kiểu ngày tháng hay không.

Year(date), Month(date), Day(date) trả về năm, tháng , ngày của bỉêu thức date

DateSerial(year, month, day) trả về biểu thức kiểu ngày có giá trị ngày tháng theo yêu cầu.
Ví dụ: Date(2008,8,10) trả về #10/8/2008#

Weekday(date) trả về con số của Thứ trong tuần.
Ví dụ: Weekday(now()) trả về 1 nghĩa là Chủ nhật

DateDiff(part , date1, date2) trả về số chênh lệch giữa 2 ngày date1 và date2
Trong đó part là kiểu chuỗi có thể mang các gía trị sau:
"yyyy" : chênh nhau mấy năm
"q" : chênh nhau mấy quý
"m" : chênh nhau mấy tháng
"d" : chênh nhau mấy ngày
"w" : chênh nhau mấy tuần (làm tròn xuống) (VD 8 ngày tính là 1 tuần)
"ww" : chênh nhau mấy tuần (làm tròn lên)(VD 8 ngày tính là 2 tuần)
"h" : chênh nhau mấy giờ
"n" : chênh nhau mấy phút
"s" : chênh nhau mấy giây.
Nếu date2<date1 thì DateDiff trả về số âm.

DateAdd(part , baonhiêu, date1) trả về ngày tháng cách date1 baonhiêu ngày, tháng, năm hoặc giờ, phút ...
Trong đó :
part : là chuỗi có thể mang các giá trị giống part của hàm DateDiff().
baonhiêu : là 1 số.

Và nhiều hàm khác. Khi viết code hãy ... nhấn F1..

 

[tienduyet]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Vâng em làm được rồi.
Thế còn như đây thì em dùng hàm gì vậy ah? Em gửi 01 tháng, ngày gửi là 01/01/2008 => dùng hàm gì để em biết được ngày đến hạn là 01/02/2008.
(Các anh thông cảm vì em là dân mới vào nghề ý mà)

 

[muontennguoi]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

DateAdd("m", 1, [ngaygui])
Nếu ngày gửi là 22/12/2007 thì nó vẫn ra đúng là ngày 22/01/2008. Yên tâm.

 

[suynghidi]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Vâng em làm được rồi.
Thế còn như đây thì em dùng hàm gì vậy ah? Em gửi 01 tháng, ngày gửi là 01/01/2008 => dùng hàm gì để em biết được ngày đến hạn là 01/02/2008.
(Các anh thông cảm vì em là dân mới vào nghề ý mà)

Function NgayDenHan(XDate As Date, XKyhan As Integer) As Date
Dim temp As Integer
Dim Nam, Thang, Ngay As Integer
Nam = Year(XDate)
Thang = Month(XDate)
Ngay = Day(XDate)
SoNgayTrongThang = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
SoNam = Int(XKyhan / 12)
SoThang = XKyhan Mod 12
'If (Ngay & Thang) <> "0101" Then
If (Thang + SoThang) <= 12 Then
Nam = Nam + SoNam
Thang = Thang + SoThang
' Ngay = Ngay - 1
NgayThangNamstr = Right("0" & Ngay, 2) & "/" & Right("0" & Thang, 2) & "/" & Nam
Else
Nam = Nam + SoNam + 1
Thang = (Thang + SoThang) Mod 12
'Ngay = Ngay - 1
NgayThangNamstr = Right("0" & Ngay, 2) & "/" & Right("0" & Thang, 2) & "/" & Nam
End If

NgayDenHan = Format(CVDate(NgayThangNamstr), "Short date")
End Function

Một đoạn code tính ngày đến hạn trong ứng dụng In sổ tiết kiệm của anh. Em dùng thử nhé, chúc thành công

 

[tienduyet]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Anh ơi, hôm trước anh hứa là gửi STK cho em mà, anh gửi cho em đi. Anh có để dữ liệu thì em cũng chẳng dùng để làm gì cả.
Em chỉ học hỏi đoạn code anh viết thôi mà. Hay không được thì anh gửi cả đoạn code đó em đi ah.
Cảm ơn anh!

 

[suynghidi]

Ðề: Em có ý tưởng nhưng ko biết viết VBA

Anh ơi, hôm trước anh hứa là gửi STK cho em mà, anh gửi cho em đi. Anh có để dữ liệu thì em cũng chẳng dùng để làm gì cả.
Em chỉ học hỏi đoạn code anh viết thôi mà. Hay không được thì anh gửi cả đoạn code đó em đi ah.
Cảm ơn anh!

Híc, anh đang bận quá, lu bu với cái IT4DKT nên chưa có time xóa data và gửi cho em được. anh sẽ cố gắng xử lý sớm rồi bỏ lên Thư viện IT4DKT để em và mọi người cùng tải. Cùng nâng cấp lun..