Hàm xác định ngày hết hạn căn cước công dân

Chia sẻ bởi:hands

★★★★★

‹ Tính khoảng cách dựa vào GPS có... Nhờ anh chị hỗ trợ về hàm... ›

Quảng cáo

Em xin chân thành cảm ơn.

Em chào Anh/Chị,
Anh/Chị trong diễn đàn mình có ai đã đã làm được function tính ngày hết hạn căn cước công dân chưa ạ?
Tham số đầu vào sẽ là ngày sinh nhật và ngày cấp căn cước công dân.
Ví dụ: =ngayhethancccd(23/05/1994; 27/08/2021), kết quả cho ra là 23/05/2034)
Quy tắc tính em tìm hiểu thì như trang web đây ạ: www.thegioididong.com/tin-tuc/thoi-han-cua-can-cuoc-cong-dan-co-gan-chip-1403938#:~:text=Quy%20%C4%91%E1%BB%8Bnh%20n%C3%AAu%20tr%C3%AAn%20cho,%C4%91%E1%BA%BFn%20m%E1%BB%91c%20tu%E1%BB%95i%20ti%E1%BA%BFp%20theo.
Em xin chân thành cảm ơn.

Hên xui, chưa kiểm tra :

Function NgayHetHanCCCD(ByVal ngaysinh As Date, ByVal ngaycap As Date) As Variant
    On Error GoTo LOI
    tuoi = VBA.DateDiff("yyyy", ngaysinh, ngaycap) + 2
    Select Case tuoi
        Case 0 To 25
        NgayHetHanCCCD = VBA.DateAdd("yyyy", 25, ngaysinh)
        Case 26 To 40
        NgayHetHanCCCD = VBA.DateAdd("yyyy", 40, ngaysinh)
        Case 41 To 60
        NgayHetHanCCCD = VBA.DateAdd("yyyy", 60, ngaysinh)
        Case Is > 60
        NgayHetHanCCCD = "Không th" & ChrW(7901) & "i h" & ChrW(7841) & "n"
    End Select
    Exit Function
LOI: NgayHetHanCCCD = "__/__/____"
End Function

www.giaiphapexcel.com/diendan/threads/h%C3%A0m-x%C3%A1c-%C4%91%E1%BB%8Bnh-ng%C3%A0y-h%E1%BA%BFt-h%E1%BA%A1n-c%C4%83n-c%C6%B0%E1%BB%9Bc-c%C3%B4ng-d%C3%A2n.160498/