Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function GetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" ( _
ByVal Locale As LongPtr, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
#Else
Private Declare Function GetLocaleInfo Lib "kernel32" _
Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
#End If
Private Const LOCALE_SSHORTDATE As Long = &H1F
Private Const LOCALE_USER_DEFAULT As Long = &H400
Function GetSystemDateFormat() As String
Dim buffer As String * 255
Dim result As Long
result = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SSHORTDATE, buffer, 255)
If result > 0 Then
GetSystemDateFormat = Left(buffer, result - 1)
Else
GetSystemDateFormat = "Khong co du lieu"
End If
End Function
Sub GPE_Sort()
Dim Lr&, Date_Seach
Dim dateFormat$
On Error Resume Next
Application.ScreenUpdating = False
dateFormat = GetSystemDateFormat()
Date_Seach = CDate(InputBox("Nhap theo dinh dang " & dateFormat))
With Sheets("Sheet1")
If .AutoFilterMode = True Then .AutoFilterMode = False
Lr = .Range("B" & Rows.Count).End(xlUp).Row
.Range("B5:P5").AutoFilter
.Range("B5:P" & Lr).AutoFilter Field:=2, _
Operator:=xlFilterValues, Criteria2:=Array(2, Date_Seach)
End With
Application.ScreenUpdating = True
End Sub
