S
DQ Sa: Này bạn Microsoft Bing, bạn có thể mã hóa 1 trị ngày-tháng-năm thành YTN
Khi đó Y - ký tự chỉ năm, như A: năm 2021, B: năm 2022,. . . .
T ký tự hay ký số chỉ tháng như: 9 chỉ tháng 9, tháng 10 là A,. . .
N kí tự hay kí số chỉ ngày, như ngày 11 là B, ngày 12 là C,. . .
Bạn có thể viết 1 hàm VBA để mã hóa như trên khi ta giao cho hàm 1 trị Ngày-Tháng-Năm?
Xin cảm ơn bạn trước
M. Bing:
Tôi có thể giúp bạn viết một hàm VBA để mã hóa ngày-tháng-năm thành chuỗi YTN.
Bạn có thể sử dụng hàm sau:
DQ Sa: Bây giờ thực hiện dùm mình bài toán ngược lại:
Giải mã các kí tự CJG kia thành trị ngày-tháng-Năm bằng 1 hàm VBA!
M. Bing:
Để giải mã chuỗi YTN thành ngày-tháng-năm, bạn có thể sử dụng hàm VBA sau:
Khi đó Y - ký tự chỉ năm, như A: năm 2021, B: năm 2022,. . . .
T ký tự hay ký số chỉ tháng như: 9 chỉ tháng 9, tháng 10 là A,. . .
N kí tự hay kí số chỉ ngày, như ngày 11 là B, ngày 12 là C,. . .
Bạn có thể viết 1 hàm VBA để mã hóa như trên khi ta giao cho hàm 1 trị Ngày-Tháng-Năm?
Xin cảm ơn bạn trước
M. Bing:
Tôi có thể giúp bạn viết một hàm VBA để mã hóa ngày-tháng-năm thành chuỗi YTN.
Bạn có thể sử dụng hàm sau:
PHP:
:Sao chép.
Function EncodeDateToYTN(inputDate As Date) As String
Dim yearCode As String
Dim monthCode As String
Dim dayCode As String
yearCode = Chr(Asc("A") + Year(inputDate) - 2021)
monthCode = Chr(Asc("A") + Month(inputDate) - 1)
dayCode = Chr(Asc("A") + Day(inputDate) - 1)
EncodeDateToYTN = yearCode & monthCode & dayCode
End Function
DQ Sa: Bây giờ thực hiện dùm mình bài toán ngược lại:
Giải mã các kí tự CJG kia thành trị ngày-tháng-Năm bằng 1 hàm VBA!
M. Bing:
Để giải mã chuỗi YTN thành ngày-tháng-năm, bạn có thể sử dụng hàm VBA sau:
Mã:
Function DecodeYTNToDate(encodedString As String) As Date
Dim yearCode As Integer
Dim monthCode As Integer
Dim dayCode As Integer
yearCode = Asc(UCase(Mid(encodedString, 1, 1))) - Asc("A") + 2021
monthCode = Asc(UCase(Mid(encodedString, 2, 1))) - Asc("A") + 1
dayCode = Asc(UCase(Mid(encodedString, 3, 1))) - Asc("A") + 1
DecodeYTNToDate = DateSerial(yearCode, monthCode, dayCode)
End Function