|
Option Explicit
Public Function TextToDateFormat(TargetObj As Label, TargetData As String)
Dim FieldData As String
FieldData = Replace(TargetData, " ", "")
If FieldData = "" Then
TargetObj.Caption = ""
TextToDateFormat = True
Exit Function
End If
FieldData = Mid(TargetData, 3, 2) & "/" & Right(TargetData, 2) & "/" & Left(TargetData, 2)
If Not IsDate(FieldData) Then
TextToDateFormat = False
Exit Function
End If
TargetObj.Caption = Left(TargetData, 2) & "/" & Mid(TargetData, 3, 2) & "/" & Right(TargetData, 2)
TextToDateFormat = True
End Function
| |