How to convert http date to OLE(VB/VBS) date.

DateToHTTPDate and DateFromHTTP functions (source). Enables conversion between OLE datetime (8byte VARIANT-DATE) and http datetime (plain text). Useful for If-Modified-Since and Last-Modified headers.

'Converts date In http form (Fri, 22 Oct 1999 12:08:38 GMT)
'to date
Const GMTDiff As Date = #1:00:00 AM#
Public Function DateFromHTTP(HTTPDate As String) As Date
  Dim Swd As String, d As String, Sm As String, y As String, h As String, m As String, s As String, g As String, Out As Date
  HTTPDate = LCase$(HTTPDate)

  If Mid$(HTTPDate, 27, 3) = "gmt" Then
    Swd = Left$(HTTPDate, 3)
    d = Mid$(HTTPDate, 6, 2)
    Sm = Mid$(HTTPDate, 9, 3)
    y = Mid$(HTTPDate, 13, 4)
    h = Mid$(HTTPDate, 18, 2)
    m = Mid$(HTTPDate, 21, 2)
    s = Mid$(HTTPDate, 24, 2)
'    on error resume Next
    Out = DateSerial(y, mFromSm(Sm), d) + TimeSerial(h, m, s) + GMTDiff
'    on error goto 0
  End If
  DateFromHTTP = Out
End Function

Function wdFromSwd(Swd As String) As Integer
  Dim Out As Integer
  Select Case LCase$(Swd)
    Case "sun": Out = 1: Case "mon": Out = 2: Case "tue": Out = 3: Case "wed": Out = 4: Case "thu": Out = 5: Case "fri": Out = 6: Case "sat": Out = 7
  End Select
  wdFromSwd = Out
End Function

Function mFromSm(Sm As String) As Integer
  Dim Out As Integer
  Select Case LCase$(Sm)
    Case "jan": Out = 1: Case "feb": Out = 2: Case "mar": Out = 3: Case "apr": Out = 4
    Case "may": Out = 5: Case "jun": Out = 6: Case "jul": Out = 7: Case "aug": Out = 8
    Case "sep": Out = 9: Case "oct": Out = 10: Case "nov": Out = 11: Case "dec": Out = 12
  End Select
  mFromSm = Out
End Function

Copyright and use this code

The source code on this page and other samples at https://www.motobit.com/tips/ are a free code, you can use it as you want: copy it, modify it, use it in your products, ...

If you use this code, please:

1. Leave the author note in the source.

2. Link this sample from you page.

<A
 Href="https://www.motobit.com/tips/detpg_DateFromHTTP/"
 Title="ASP (VBS) function converting http string
	date (like Fri, 22 Oct
	1999 12:08:38 GMT) to DATE
	data type."
>How to convert http date to OLE(VB/VBS) date.</A>

How to convert http date to OLE(VB/VBS) date.MOTOBIT.COM

See also

Copyright and use this code