on error resume next
dtmYesterday1 = Date
dtmYesterday = Date-4
strYear1 = Year(dtmYesterday1)
strYear = Year(dtmYesterday)
strMonth1 = Month(dtmYesterday1)
strMonth = Month(dtmYesterday)
strDay1 = Day(dtmYesterday1)
strDay = Day(dtmYesterday)
If Len(strMonth1) = 1 Then
strMonth1 = "0" & strMonth1
End If
If Len(strMonth) = 1 Then
strMonth = "0" & strMonth
End If
If Len(strDay1) = 1 Then
strDay1 = "0" & strDay1
End If
If Len(strDay) =