< Public Function CInternetDate (Expression As String) As Date (?)

Comments

    
    '-------------------------------------------------------------------------
    'Converts a date in the internet format to a normal date
    '-------------------------------------------------------------------------

Public Function CInternetDate (Expression As String) As Date

    If Expression = "" Then Exit Function
    
    If SearchLast(Expression, " GMT") Then
        Expression = Left(Expression, InStrRev(Expression, "GMT") - 2)
    End If
    
    If Len(Expression) > 4 Then
        Select Case Left(Expression, 3)
            Case "Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun":
                Expression = Right(Expression, Len(Expression) - 4)
            Case Else:
        End Select
    End If
    
    If IsDate(Expression) Then
        CInternetDate = CDate(Expression)
    End If
End Function

Copying, Return to index