Giúp code tách giá trị Số từ 1 chuổi

[hondacrv2019]

Chào cả nhà GPE. Em cần 1 đoạn code tách ngày tháng năm, số từ 1 chuổi có 1 ký tự chử "A" nằm đằng trước






Xin chân thành cảm ơn

 

[be_09]

Chào cả nhà GPE. Em cần 1 đoạn code tách ngày tháng năm, số từ 1 chuổi có 1 ký tự chử "A" nằm đằng trước

View attachment 230786




Xin chân thành cảm ơn

Bạn nên về bài viết cũ hỏi tiếp chứ không nên hỏi một câu hỏi nhiều lần có thể sẽ vi phạm nội quy.
Đây là Link bài viết kia Giúp code thêm 1 ký tự và xóa đi 1 ký tự cho 1 vùng.

 

[SA_DQ]

	Dữ liệu ban đầu		Loại Dữ Liệu
	A01/08/2019		Ngày-Tháng	<=| =LoaiDL(B3)
	A02/08/2020		Ngày-Tháng
	A03/08/2021		Ngày-Tháng
	A15/08/2022		Ngày-Tháng
	A20/08/2023		Ngày-Tháng
	A05/18/2024		Ngày-Tháng
	A200		Number
	A500		Number
	G02-13-1987		Ngày-Tháng
	G1234567890		Number

Function LoaiDL(StrC As String)
Dim Tmp As String

Tmp = Mid(StrC, 2, Len(StrC))
If Tmp = "" Then
    LoaiDL = "":                        Exit Function
End If
If IsDate(Tmp) Then
    LoaiDL = "Ngày-Tháng"
ElseIf IsNumeric(Tmp) Then
    LoaiDL = "Number"
Else
    LoaiDL = "String"
End If
End Function