vbmvpsorg.docVIP

vbmvpsorg Attribute VB_Name = MRfc2822 ************************************************************************* Copyright ?006 Karl E. Peterson All Rights Reserved, / ************************************************************************* You are free to use this code within your own applications, but you are expressly forbidden from selling or otherwise distributing this source code, non-compiled, without prior written consent. ************************************************************************* Option Explicit Private Const Months As String = |Jan|Feb|Mar|Apr|May|Jun|Jul|Aug|Sep|Oct|Nov|Dec| Private Const Days As String = |Sun|Mon|Tue|Wed|Thu|Fri|Sat| Private Const RollOver As Long = 1950 Private Const Indeterminate As String = -0000 Public Function DatestampFormat(ByVal DateStamp As Date) As String This returns an RFC2822-compliant datestamp string. TODO: Offer timezone offset? Dim m As Long, w As Long Dim Result As String Extract weekday from constant array, append day, extract month from constant array, append year, append time. DatestampFormat = _ Mid$(Days, (((Weekday(DateStamp) - 1) * 4) + 2), 3) , _ Format$(Day(DateStamp), 00) _ Mid$(Months, (((Month(DateStamp) - 1) * 4) + 2), 3) _ Format$(Year(DateStamp), 0000) _ Format$(TimeValue(DateStamp), hh:mm:ss) End Function Public Function DatestampNormalize(ByVal DateStamp As String, Optional NewOffset As String = +0000) As Date Dim nChar As Long Dim Parts As Variant Dim d As Long, m As Long, y As Long Dim h As Long, n As Long, s As Long Dim TimeStamp As String Dim ZoneOffset As String Dim Result As Date Crunch down all whitespace. DateStamp = UnfoldWhitespace(DateStamp) Remove day-of-week, if present. nChar = InStr(DateStamp, ,) If nChar 0 And nChar Len(DateStamp) Then DateStamp = Trim$(Mid$(DateStamp, nChar + 1)) End If Break remainder of datestamp into