Tính tuổi với lệnh Function trong VBA

[vangforex]

Các bạn ơi!
Mình mới bắt đầu học VBA, hiện tại mình đang có bài tập để tính tuổi. Mình viết code như thế này, không biết bị sai chỗ nào, các bạn giúp mình với. Mình cảm ơn nhiều

Sub hien_thi_tuoi()

Dim NgaySinh As Date
Dim Today As Date

NgaySinh = #4/2/1985#

Today = #4/23/2023#


End Sub

Function tinh_tuoi(NgaySinh As Date, Today As Date)

Dim tuoi As Integer

tuoi = Today - NgaySinh


End Function

 

[VetMini]

Tính kiểu Tây hay Ta?
Tây nó qua sinh nhật mới tính 1 tuổi. Ta cứ qua năm mới là thêm tuổi.

Function tinh_tuoi của bạn sai ở chỗ:
1. ngày trừ ngày thì chỉ ra số ngày chứ không thể ra năm.
2. function có thấy trả về cái gì đâu? Ở đâu đó phải có mọt lệnh tinh_tuoi = ...

Function tinh_tuoi(NgaySinh As Date, Today As Date) ' Today: tránh tên này
Dim tuoi As Integer ' khong cần
tuoi = Today - NgaySinh ' sai
End Function

Private Const TINHKIEUTA = True

Function tinh_tuoi(NgaySinh As Date, NgayTinh As Date) As Long
tinh_tuoi = Year(NgayTinh) - Year(NgaySinh)
IF TIINHKIEUTA Then Exit Function
IF Format(NgaySinh, "MMdd") < Format(NgayTinh), "MMdd") then tinh_tuoi = tinh_tuoi - 1
End Function