Friday, June 29, 2018
12 Monkeys
2006 Kerry Burgess
Dim vTargetDateSearch
Dim c
Dim firstaddress
Dim xlWorkBookReleaseDatesMaster As Excel.Workbook
Dim xlWbMasterItemsList As Excel.Workbook
Dim xlWbMasterList As Excel.Workbook
Private Sub cmdAddListItem_Click()
If txtAddListItem.Text = "" Then
MsgBox "Add List Item"
Else
lstMasterList.AddItem (txtAddListItem.Text)
End If
End Sub
Private Sub UserForm_Initialize()
optStart.Value = True
Primaries
Secondaries
SecondariesPost1980
QwikStartEnd
txt2xDays.Text = lstSecondary.ListCount
End Sub
Private Sub lstSearchResults_Click()
FindReleaseDateItems
End Sub
Sub FindReleaseDateItems()
Excel.Application.Visible = False
If xlWorkBookReleaseDatesMaster Is Nothing Then
Set xlWorkBookReleaseDatesMaster = Excel.Workbooks.Open("C:\TimeDifference\release dates master.xlsm")
txtMasterListItemReport.Text = "Opening {release dates master.xlsm}"
Else: End If ' If xlWorkBookReleaseDatesMaster Is Nothing Then
txtMasterListItemReport.Text = ""
If chkUSA.Value = True Then
Set c = xlWorkBookReleaseDatesMaster.Worksheets("USA release 1").Range("A:A").Find("USA:" & Format(lstSearchResults.Text, "d mmmm yyyy"))
If Not c Is Nothing Then
txtMasterListItemReport.Text = txtMasterListItemReport.Text & vbCr & c.Value '& vbCr
Else
txtMasterListItemReport.Text = txtMasterListItemReport.Text & vbCr & "No matches found." & vbCr
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = "USA:" & Format(lstSearchResults.Text, "d mmmm yyyy")
Set c = xlWorkBookReleaseDatesMaster.Worksheets("USA release 1").Range("A:A").FindNext(c)
If Not c Is Nothing Then
txtMasterListItemReport.Text = txtMasterListItemReport.Text & vbCr & c.Value '& vbCr
Else: End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
Else: End If ' If chkUSA.Value = True Then
If chkUK.Value = True Then
Set c = xlWorkBookReleaseDatesMaster.Worksheets("UK release 1").Range("A:A").Find("UK:" & Format(lstSearchResults.Text, "d mmmm yyyy"))
If Not c Is Nothing Then
txtMasterListItemReport.Text = txtMasterListItemReport.Text & vbCr & c.Value '& vbCr
Else
txtMasterListItemReport.Text = txtMasterListItemReport.Text & vbCr & "No matches found." & vbCr
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = "UK:" & Format(lstSearchResults.Text, "d mmmm yyyy")
Set c = xlWorkBookReleaseDatesMaster.Worksheets("UK release 1").Range("A:A").FindNext(c)
If Not c Is Nothing Then
txtMasterListItemReport.Text = txtMasterListItemReport.Text & vbCr & c.Value '& vbCr
Else: End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
Else: End If ' If chkUK.Value = True Then
End Sub
Private Sub cmdExcelQuit_Click()
Excel.Application.DisplayAlerts = False
Excel.Application.Quit
End Sub
Private Sub lstMasterList_Click()
MasterListItemText
End Sub
Sub MasterListItemText()
If xlWbMasterList Is Nothing Then Set xlWbMasterList = Excel.Workbooks.Open("c:\TimeDifference\Master List.xlsm")
Excel.Application.Visible = False
txtListItemNumber.Text = lstMasterList.ListIndex + 1
Dim SearchRangeCount
Dim xlMasterListRange
Set xlMasterListRange = xlWbMasterList.Worksheets("Master List").Range("A:A")
SearchRangeCount = Excel.WorksheetFunction.CountA(xlMasterListRange)
For i = 1 To SearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value = lstMasterList.Text Then
txtMasterListItem.Text = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Exit For
Else: End If
Next i
vTargetDateSearch = txtTargetDateSearch.Text
txtMasterListItemReport.Text = ""
dM = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
If dM = 0 Then Exit Sub
SearchResultsListItems
End Sub
Sub SearchResultsListItems()
'--- Solution set
'''---
''' Target < Master
''' Target < 11/2/1965
''' Master < 11/2/1965
'---
' Target < Master
' Target < 11/2/1965
' Master > 11/2/1965
'---
' Target < Master
' Target > 11/2/1965
' Master < 11/2/1965
'''---
''' Target < Master
''' Target > 11/2/1965
''' Master > 11/2/1965
'---
' Target > Master
' Target < 11/2/1965
' Master < 11/2/1965
'---
' Target > Master
' Target < 11/2/1965
' Master > 11/2/1965
'''---
''' Target > Master
''' Target > 11/2/1965
''' Master < 11/2/1965
'''---
''' Target > Master
''' Target > 11/2/1965
''' Master > 11/2/1965
Dim dMa
Dim dMb
Dim dMz
Dim dMz2
Dim dM
lstSearchResults.Clear
dM = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMa = DateDiff("d", vTargetDateSearch, #11/2/1965#)
dMb = DateDiff("d", lstMasterList.Text, #11/2/1965#)
If dM < 0 Then
If dMa < 0 Then
If dMb < 0 Then
'---
' Target > Master
' Target > 11/2/1965
' Master > 11/2/1965
dM = DateDiff("d", lstMasterList.Text, vTargetDateSearch)
dMz = DateAdd("d", dM, #11/2/1965#)
lstSearchResults.AddItem (dMz)
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dM / 2, #11/2/1965#)
lstSearchResults.AddItem (dMz)
Else: End If
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz = DateAdd("d", -dM, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
' fixed 23 April 2015 two references
' VVVVV
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
' ^^^^^
' fixed 23 April 2015
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", -dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
Else ' If dMb < 0 Then '--- dMb is greater than zero '--- MasterListItem happens before 11/2/1965
'---
' Target > Master Example: TargetDate(10/3/1991) MasterDateListItem(3/3/1959)
' Target > 11/2/1965 the date 10/3/1991 happens after 11/2/1965 and therefore is greater than 11/2/1965
' Master < 11/2/1965 Example: 3/3/1959 happens before 11/2/1965 and therefore is less than 11/2/1965
dMb = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dM = DateDiff("d", lstMasterList.Text, vTargetDateSearch)
dMz = DateAdd("d", dM, #11/2/1965#)
lstSearchResults.AddItem (dMz)
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dM / 2, #11/2/1965#)
lstSearchResults.AddItem (dMz)
Else: End If
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", -dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
End If
Else ' If dMa < 0 Then '--- dMa is greater than zero
Debug.Print dMa
If dMb < 0 Then
Debug.Print dMb
Else ' If dMb < 0 Then '--- dMb is greater than zero
Debug.Print dMb ' solution set t-8-29-1950 m=4-21-1926
dM = DateDiff("d", lstMasterList.Text, vTargetDateSearch)
dMz = DateAdd("d", dM, #11/2/1965#)
lstSearchResults.AddItem (dMz)
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dM / 2, #11/2/1965#)
lstSearchResults.AddItem (dMz)
Else: End If
End If ' If dMb < 0 Then
End If ' If dMa < 0 Then
Else ' If dM < 0 Then '--- dM is greater than zero
If dMa < 0 Then
Debug.Print dMa
''' 09/07/2016 possible flaw - missing results
''' VVVVVV
If dMb < 0 Then
'''---
''' Target < Master
''' Target > 11/2/1965
''' Master > 11/2/1965
dMb = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMz = DateAdd("d", dMb, #11/2/1965#)
lstSearchResults.AddItem (dMz)
If dMb Mod 2 = 0 Then
dMz = DateAdd("d", dMb / 2, #11/2/1965#)
lstSearchResults.AddItem (dMz)
Else: End If
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz = DateAdd("d", -dM, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
''' added 09/07/2016
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", -dM, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, lstMasterList.Text)
lstSearchResults.AddItem (dMz)
Else ' If dMb < 0 Then '--- dMb is greater than zero
'Debug.Print dMb
End If
Else ' If dMa < 0 Then '--- dMa is greater than zero
'Debug.Print dMa
If dMb < 0 Then
'Debug.Print dMb
' Target = 7/9/1955 Master = 3/16/1991
'---
' Target < Master
' Target < 11/2/1965
' Master > 11/2/1965
dMb = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMz = DateAdd("d", dMb, #11/2/1965#)
lstSearchResults.AddItem (dMz)
If dMb Mod 2 = 0 Then
dMz = DateAdd("d", dMb / 2, #11/2/1965#)
lstSearchResults.AddItem (dMz)
Else: End If
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz = DateAdd("d", -dM, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
dMz = DateAdd("d", dM, vTargetDateSearch)
lstSearchResults.AddItem (dMz)
Else ' If dMb < 0 Then '--- dMb is greater than zero
'---
' Target < Master
' Target < 11/2/1965
' Master < 11/2/1965
dM = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMz = DateAdd("d", dM, #11/2/1965#)
lstSearchResults.AddItem (dMz)
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dM / 2, #11/2/1965#)
lstSearchResults.AddItem (dMz)
Else: End If ' If dM Mod 2 = 0 Then
End If ' If dMb < 0 Then
End If ' If dMa < 0 Then
End If ' If dM < 0 Then
End Sub
Private Sub cmdKeyList_Click()
KeyList
End Sub
Sub KeyList()
Dim dMa
Dim dMb
Dim dMz
Dim dMz2
Dim dM
Dim vTargetDateSearchItemText
Dim dMzItemText
Dim MasterListItemKey
Dim MasterListItemKeyText
txtKeyList.Text = ""
If xlWbMasterList Is Nothing Then Set xlWbMasterList = Excel.Workbooks.Open("c:\TimeDifference\Master List.xlsm")
Excel.Application.Visible = False
Dim KeySearchRangeCount
Dim xlKeyMasterListRange
Set xlKeyMasterListRange = xlWbMasterList.Worksheets("Master List").Range("A:A")
KeySearchRangeCount = Excel.WorksheetFunction.CountA(xlKeyMasterListRange)
For i = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value = lstMasterList.Text Then
MasterListItemKeyText = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Exit For
Else
MasterListItemKeyText = "***** NO MATCH FOUND *****"
End If
Next i
For i = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value = vTargetDateSearch Then
vTargetDateSearchItemText = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Exit For
Else
vTargetDateSearchItemText = txtTargetDescr.Text
End If
Next i
dM = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMa = DateDiff("d", vTargetDateSearch, #11/2/1965#)
dMb = DateDiff("d", lstMasterList.Text, #11/2/1965#)
If dM < 0 Then
If dMa < 0 Then
If dMb < 0 Then
'---
' Target > Master
' Target > 11/2/1965
' Master > 11/2/1965
' test this code
dM = DateDiff("d", lstMasterList.Text, vTargetDateSearch)
dMz = DateAdd("d", dM, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dM / 2, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
dM & " = " & dM / 2 & " + " & dM / 2 & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dM / 2 & " days" & vbCr & vbCr
Else: End If
' test this code
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz = DateAdd("d", -dM, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' fixed 23 April 2015 two references
' VVVVV
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' ^^^^^
' fixed 23 April 2015
' test this code
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", -dM, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
Else ' If dMb < 0 Then '--- dMb is greater than zero '--- MasterListItem happens before 11/2/1965
'---
' Target > Master Example: TargetDate(10/3/1991) MasterDateListItem(3/3/1959)
' Target > 11/2/1965 the date 10/3/1991 happens after 11/2/1965 and therefore is greater than 11/2/1965
' Master < 11/2/1965 Example: 3/3/1959 happens before 11/2/1965 and therefore is less than 11/2/1965
dMb = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dM = DateDiff("d", lstMasterList.Text, vTargetDateSearch)
dMz = DateAdd("d", dM, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dM / 2, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
dM & " = " & dM / 2 & " + " & dM / 2 & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dM / 2 & " days" & vbCr & vbCr
Else: End If
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' redundant?
'dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
'dMz = DateAdd("d", dM, lstMasterList.Text)
'lstSearchResults.AddItem (dMz)
' test this code
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", -dM, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
End If
Else ' If dMa < 0 Then '--- dMa is greater than zero
'Debug.Print dMa
If dMb < 0 Then
'Debug.Print dMb
Else ' If dMb < 0 Then '--- dMb is greater than zero
'Debug.Print dMb
End If ' If dMb < 0 Then
End If ' If dMa < 0 Then
Else ' If dM < 0 Then '--- dM is greater than zero
If dMa < 0 Then
'Debug.Print dMa
If dMb < 0 Then
'''---
''' Target < Master
''' Target > 11/2/1965
''' Master > 11/2/1965
''' 09/07/2016 possible flaw - missing results
dMb = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMz = DateAdd("d", dMb, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dMb / 2, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
dM & " = " & dM / 2 & " + " & dM / 2 & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dM / 2 & " days" & vbCr & vbCr
Else: End If
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz = DateAdd("d", -dM, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", dM, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
''' added 09/07/2016
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dM = DateDiff("d", #11/2/1965#, vTargetDateSearch)
dMz = DateAdd("d", -dM, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, lstMasterList.Text)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
Else ' If dMb < 0 Then '--- dMb is greater than zero
'Debug.Print dMb
End If
Else ' If dMa < 0 Then '--- dMa is greater than zero
'Debug.Print dMa
If dMb < 0 Then
'Debug.Print dMb
' Target = 7/9/1955 Master = 3/16/1991
'---
' Target < Master
' Target < 11/2/1965
' Master > 11/2/1965
dMb = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMz = DateAdd("d", dMb, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr
If dM Mod 2 = 0 Then
dMz = DateAdd("d", dMb / 2, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
dM & " = " & dM / 2 & " + " & dM / 2 & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dM / 2 & " days" & vbCr & vbCr
' dM / 2 correction applied 02 May 2012
Else: End If
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz = DateAdd("d", -dM, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
' test this code
dMz2 = dM + dM
dMz = DateAdd("d", -dMz2, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & dMz & " ( " & dMzItemText & " ) " & "To " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dM = DateDiff("d", #11/2/1965#, lstMasterList.Text)
dMz2 = dM + dM
dMz = DateAdd("d", dMz2, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dMz2 & " days" & vbCr & vbCr & _
dMz2 & " = " & dM & " + " & dM & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
dMz = DateAdd("d", dM, vTargetDateSearch)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & dMz & " ( " & dMzItemText & " ) " & _
"is " & dM & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dM & " days" & vbCr & vbCr
Else ' If dMb < 0 Then '--- dMb is greater than zero
'---
' Target < Master
' Target < 11/2/1965
' Master < 11/2/1965
dMb = DateDiff("d", vTargetDateSearch, lstMasterList.Text)
dMz = DateAdd("d", dMb, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr
If dMb Mod 2 = 0 Then
dMz = DateAdd("d", dMb / 2, #11/2/1965#)
For ii = 1 To KeySearchRangeCount
If xlWbMasterList.Worksheets("Master List").Cells(ii, 1).Value = dMz Then
dMzItemText = xlWbMasterList.Worksheets("Master List").Cells(ii, 3).Value
Exit For
Else
dMzItemText = "***** NO MATCH FOUND *****"
End If
Next ii
txtKeyList.Text = txtKeyList.Text & vbCr & vbCr & _
"From " & vTargetDateSearch & " ( " & vTargetDateSearchItemText & " ) " & "To " & lstMasterList.Text & " ( " & MasterListItemKeyText & " ) " & _
"is " & dMb & " days" & vbCr & vbCr & _
dMb & " = " & dMb / 2 & " + " & dMb / 2 & vbCr & vbCr & _
"From 11/2/1965 ( my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer ) To " & _
dMz & " ( " & dMzItemText & " ) " & _
"is " & dMb / 2 & " days" & vbCr & vbCr
Else: End If
End If ' If dMb < 0 Then
End If ' If dMa < 0 Then
End If ' If dM < 0 Then
End Sub
Private Sub cmdMasterList_Click()
MasterListRefresh
End Sub
Sub MasterListRefresh()
Excel.Application.Visible = False
If xlWbMasterItemsList Is Nothing Then Set xlWbMasterItemsList = Excel.Workbooks.Open("c:\TimeDifference\Master List.xlsm")
lstMasterList.Clear
Dim SearchRangeCount
Dim xlMasterListRange
Set xlMasterListRange = xlWbMasterItemsList.Worksheets("Master List").Range("A:A")
SearchRangeCount = Excel.WorksheetFunction.CountA(xlMasterListRange)
For i = 1 To SearchRangeCount
lstMasterList.AddItem (xlWbMasterItemsList.Worksheets("Master List").Cells(i, 1).Value)
Next i
txtMasterListCount.Text = SearchRangeCount
'xlWbMasterItemsList.Application.ActiveWorkbook.Close
'xlWbMasterItemsList.Application.Quit
'Set xlWbMasterItemsList = Nothing
'Excel.Application.Quit
End Sub
Private Sub cmdMasterListSearch_Click()
MasterListSearch
End Sub
Sub MasterListSearch()
Excel.Application.Visible = True
Dim xlWorkbook As Excel.Workbook
Set xlWorkbook = Excel.Workbooks.Open("c:\TimeDifference\Working Results.xlsx")
Set xlWbMasterList = Excel.Workbooks.Open("c:\TimeDifference\Master List.xlsm")
Dim d
Dim d1
Dim dMid
Dim i
Dim g
Dim k
Dim PrimaryTargetDate
Dim SourceDateText
Dim ReportLineItemText
PrimaryTargetDate = "11/2/1965"
SourceDateText = txtSourceDate.Text
g = 0
Dim SearchRangeCount
Dim xlMasterListRange
Set xlMasterListRange = xlWbMasterList.Worksheets("Master List").Range("A:A")
SearchRangeCount = Excel.WorksheetFunction.CountA(xlMasterListRange)
Dim SearchRangeCountFind
Dim xlMasterListRangeFind
Set xlMasterListRangeFind = xlWbMasterList.Worksheets("Master List").Range("A:A")
SearchRangeCountFind = Excel.WorksheetFunction.CountA(xlMasterListRangeFind)
'--- searches on future dates and produces dates to find
'--- From 9/16/1991 ( ) To 6/28/1994 ( ) is 1016 days
'--- 1016 = 508 + 508
'--- From 11/2/1965 ( ) To 3/25/1967 ( ) is 508 days
'--- From 9/16/1991 ( ) To 6/27/1994 ( ) is 1015 days
'--- From 11/2/1965 ( ) To 8/13/1968 ( ) is 1015 days
For i = 1 To SearchRangeCount ' for each item in "Master List"
If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
e = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If e > 0 Then ' SourceDateText > happens before > xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value) if greater than zero
df = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If df Mod 2 = 0 Then
dMidf = df / 2
d1f = DateAdd("d", dMidf, PrimaryTargetDate)
Set c1 = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1f)
If Not c1 Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1f, "d mmmm yyyy")
For k1 = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k1, 1).Value = d1f Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k1, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1f Then
Next k1
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c1 Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1f, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c1 Is Nothing
Else: End If ' d mod 2
dg = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
d1g = DateAdd("d", dg, PrimaryTargetDate)
Set c2 = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1g)
If Not c2 Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1g, "d mmmm yyyy")
For k2 = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k2, 1).Value = d1g Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k2, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k2
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c2 Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1g, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c2 Is Nothing
'--- From 1/22/1963 ( ) To 9/16/1991 ( ) is 10464 days
'--- From 11/2/1965 ( ) To 6/27/1994 ( ) is 10464 days
f = DateDiff("d", PrimaryTargetDate, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If f > 0 Then
dh = DateDiff("d", PrimaryTargetDate, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
d1h = DateAdd("d", -dh, SourceDateText)
Set c3 = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1h)
If Not c3 Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1h, "d mmmm yyyy")
For k3 = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k3, 1).Value = d1h Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k3, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k3
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1h, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c3 Is Nothing
Else: End If ' If d > 0 Then
'--- From 5/30/1934 ( ) To 9/16/1991 ( ) is 20928 days
'--- 20928 = 10464 + 10464
'--- From 11/2/1965 ( ) To 6/27/1994 ( ) is 10464 days
dj = DateDiff("d", PrimaryTargetDate, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If dj > 0 Then '
dj1 = DateDiff("d", PrimaryTargetDate, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
dMidj = dj1 + dj1
d1j = DateAdd("d", -dMidj, SourceDateText)
Set c4 = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1j)
If Not c4 Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1j, "d mmmm yyyy")
For k4 = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k4, 1).Value = d1j Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k4, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k4
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c4 Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1j, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c4 Is Nothing
Else: End If ' If d > 0 Then
'--- From 10/1/1942 ( ) To 6/28/1994 ( ) is 18898 days
'--- 18898 = 9449 + 9449
'--- From 11/2/1965 ( ) To 9/16/1991 ( ) is 9449 days
dk = DateDiff("d", PrimaryTargetDate, SourceDateText)
If dk > 0 Then '
dk1 = DateDiff("d", PrimaryTargetDate, SourceDateText)
dMidk = dk1 + dk1
d1k = DateAdd("d", -dMidk, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
Set c5 = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1k)
If Not c5 Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1k, "d mmmm yyyy")
For k5 = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k5, 1).Value = d1k Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k5, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k5
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c5 Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1k, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c5 Is Nothing
Else: End If ' If dk > 0 Then
'25 March 1967 No matches in MasterList 6/28/1994 ***** test
'14 August 1968 Catherine Bell 6/28/1994 ***** test
'21 January 1963 No matches in MasterList 6/28/1994 ***** test
'28 May 1934 No matches in MasterList 6/28/1994 ***** test
'1 October 1942 No matches in MasterList 6/28/1994 ***** test
Else ' If e > 0 ' ' SourceDateText > happens after > xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'--- From 1/8/1966 ( ) To 9/16/1991 ( ) is 9382 days
'--- From 11/2/1965 ( ) To 7/11/1991 ( ) is 9382 days
dM = DateDiff("d", xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value, SourceDateText)
d1m = DateAdd("d", dM, PrimaryTargetDate)
Set c6 = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1m)
If Not c6 Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1m, "d mmmm yyyy")
For k6 = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k6, 1).Value = d1m Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k6, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k6
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c6 Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1m, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c6 Is Nothing
'From 1/8/1966 ( ) To 10/5/2017 ( ) is 18898 days
'18898 = 9449 + 9449
'From 11/2/1965 ( ) To 9/16/1991 ( ) is 9449 days
'13 March 2056 No matches in MasterList 5/7/1901 Gary Cooper
'1 February 1953 premiere US TV series "G.E. True Theater"::series premiere episode "Wedding Day" 5/7/1901 Gary Cooper
'11 July 1991 No matches in MasterList 1/8/1966 USS Wainwright DLG/CG-28 commissioned into United States Navy active service
'5 October 2017 No matches in MasterList 1/8/1966 USS Wainwright DLG/CG-28 commissioned into United States Navy active service
'25 March 1967 No matches in MasterList 6/28/1994 ***** test
'14 August 1968 Catherine Bell 6/28/1994 ***** test
'21 January 1963 No matches in MasterList 6/28/1994 ***** test
'28 May 1934 No matches in MasterList 6/28/1994 ***** test
'1 October 1942 No matches in MasterList 6/28/1994 ***** test
dja = DateDiff("d", PrimaryTargetDate, SourceDateText)
If dja > 0 Then '
dj1a = DateDiff("d", PrimaryTargetDate, SourceDateText)
dMidja = dj1a + dj1a
d1ja = DateAdd("d", dMidja, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
Set c4a = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1ja)
If Not c4a Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1ja, "d mmmm yyyy")
For k4a = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k4a, 1).Value = d1ja Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k4a, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k4a
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c4a Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1ja, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c4a Is Nothing
Else: End If ' If d > 0 Then
'From 5/5/1991 ( ) To 9/16/1991 ( ) is 134 days
'134 = 67 + 67
'From 11/2/1965 ( ) To 1/8/1966 ( ) is 67 days
'13 March 2056 No matches in MasterList 5/7/1901 Gary Cooper
'1 February 1953 premiere US TV series "G.E. True Theater"::series premiere episode "Wedding Day" 5/7/1901 Gary Cooper
'9 September 2120 No matches in MasterList 5/7/1901 Gary Cooper
'11 July 1991 No matches in MasterList 1/8/1966 USS Wainwright DLG/CG-28 commissioned into United States Navy active service
'5 October 2017 No matches in MasterList 1/8/1966 USS Wainwright DLG/CG-28 commissioned into United States Navy active service
'5 May 1991 No matches in MasterList 1/8/1966 USS Wainwright DLG/CG-28 commissioned into United States Navy active service
'25 March 1967 No matches in MasterList 6/28/1994 ***** test
'14 August 1968 Catherine Bell 6/28/1994 ***** test
'21 January 1963 No matches in MasterList 6/28/1994 ***** test
'28 May 1934 No matches in MasterList 6/28/1994 ***** test
'1 October 1942 No matches in MasterList 6/28/1994 ***** test
dkb = DateDiff("d", PrimaryTargetDate, SourceDateText)
If dkb > 0 Then '
dk1b = DateDiff("d", PrimaryTargetDate, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
dMidkb = dk1b + dk1b
d1kb = DateAdd("d", -dMidkb, SourceDateText)
Set c5b = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1kb)
If Not c5b Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1kb, "d mmmm yyyy")
For k5b = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k5b, 1).Value = d1kb Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k5b, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
Next k5b
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else ' If Not c5 Is Nothing
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1kb, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
End If ' If Not c5 Is Nothing
Else: End If ' If dk > 0 Then
End If ' If e > 0
Else: End If ' if xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1
Next i
'--- Problem: duplicates forward dates
'For i = 1 To SearchRangeCount ' for each item in "Master List"
'If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
'd = DateDiff("d", #11/2/1965#, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'If d > 0 Then
'd1 = DateAdd("d", -d, SourceDateText)
'Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
'If Not c Is Nothing Then
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'For k = 1 To SearchRangeCountFind
'If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
'Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'Next k
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'Else ' If Not c Is Nothing
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'End If ' If Not c Is Nothing
'Else: End If ' If d > 0
'Else: End If ' if xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1
'Next i
'For i = 1 To SearchRangeCount ' for each item in "Master List"
'If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
'd = DateDiff("d", #11/2/1965#, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'If d < 0 Then
'dMid = DateDiff("d", #11/2/1965#, SourceDateText)
'dMid = dMid + dMid
'd1 = DateAdd("d", dMid, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
'If Not c Is Nothing Then
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'For k = 1 To SearchRangeCountFind
'If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
'Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
'Next k
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'Else ' If Not c Is Nothing
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'End If ' If Not c Is Nothing
'Else: End If ' If d > 0
'Else: End If ' if xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1
'Next i
'For i = 1 To SearchRangeCount ' for each item in "Master List"
'If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
'd = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'If d < 0 Then
'd = DateDiff("d", xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value, SourceDateText)
'd1 = DateAdd("d", d, PrimaryTargetDate)
'Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
'If Not c Is Nothing Then
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'For k = 1 To SearchRangeCountFind
'If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
'Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
'Next k
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'Else ' If Not c Is Nothing
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'End If ' If Not c Is Nothing
'Else ' d > 0
'd1 = DateAdd("d", d, PrimaryTargetDate)
'Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
'If Not c Is Nothing Then
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'For k = 1 To SearchRangeCountFind
'If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
'Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
'Next k
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'Else ' If Not c Is Nothing
''g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'End If ' If Not c Is Nothing
'End If ' If d < 0 Then
'Else: End If ' if xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1
'Next i
'For i = 1 To SearchRangeCount ' for each item in "Master List"
'If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
'd = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'If d < 0 Then
'd = DateDiff("d", xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value, SourceDateText)
'If d Mod 2 = 0 Then
'dMid = d / 2
'd1 = DateAdd("d", dMid, PrimaryTargetDate)
'Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
'If Not c Is Nothing Then
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'For k = 1 To SearchRangeCountFind
'If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
'Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
'Next k
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'Else ' If Not c Is Nothing
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'End If ' If Not c Is Nothing
'Else: End If ' If d Mod 2 = 0 Then
'Else ' d > 0
'd = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
'If d Mod 2 = 0 Then
'dMid = d / 2
'd1 = DateAdd("d", dMid, PrimaryTargetDate)
'Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
'If Not c Is Nothing Then
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'For k = 1 To SearchRangeCountFind
'If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
'Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
'Next k
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'Else ' If Not c Is Nothing
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No matches in MasterList"
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
'End If ' If Not c Is Nothing
'Else: End If ' If d Mod 2 = 0 Then
'End If ' If d > 0
'Else: End If ' if xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1
'Next i
' working code ^^^^^
End Sub
Private Sub cmdMatrixList_Click()
MatrixListSearch
End Sub
Sub MatrixListSearch()
Excel.Application.Visible = True
Dim xlWorkbook As Excel.Workbook
Set xlWorkbook = Excel.Workbooks.Open("c:\TimeDifference\Working Results.xlsx")
Dim xlWbMasterList As Excel.Workbook
Set xlWbMasterList = Excel.Workbooks.Open("c:\TimeDifference\Master List.xlsm")
Dim d
Dim d1
Dim dMid
Dim i
Dim g
Dim k
Dim PrimaryTargetDate
Dim SourceDateText
Dim ReportLineItemText
PrimaryTargetDate = "11/2/1965"
SourceDateText = txtSourceDate.Text
g = 0
Dim SearchRangeCount
Dim xlMasterListRange
Set xlMasterListRange = xlWbMasterList.Worksheets("Master List").Range("A:A")
SearchRangeCount = Excel.WorksheetFunction.CountA(xlMasterListRange)
Dim SearchRangeCountFind
Dim xlMasterListRangeFind
Set xlMasterListRangeFind = xlWbMasterList.Worksheets("Master List").Range("A:A")
SearchRangeCountFind = Excel.WorksheetFunction.CountA(xlMasterListRangeFind)
For i = 1 To SearchRangeCount ' for each item in "Master List"
If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
d = DateDiff("d", #11/2/1965#, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If d > 0 Then
d1 = DateAdd("d", -d, SourceDateText)
Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
If Not c Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
Next k
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else: End If ' If Not c Is Nothing
Else: End If ' If d > 0
Else: End If ' if xlWbMasterList.Worksheets("Hit List").Cells(i, 2).Value = 1
Next i
For i = 1 To SearchRangeCount ' for each item in "Master List"
If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
d = DateDiff("d", #11/2/1965#, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If d < 0 Then
dMid = DateDiff("d", #11/2/1965#, SourceDateText)
dMid = dMid + dMid
d1 = DateAdd("d", dMid, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
If Not c Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
Next k
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else: End If ' If Not c Is Nothing
Else: End If ' If d > 0
Else: End If ' if xlWbMasterList.Worksheets("Hit List").Cells(i, 2).Value = 1
Next i
For i = 1 To SearchRangeCount ' for each item in "Master List"
If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If d < 0 Then
d = DateDiff("d", xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value, SourceDateText)
d1 = DateAdd("d", d, PrimaryTargetDate)
Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
If Not c Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
Next k
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else: End If ' If Not c Is Nothing
Else ' d > 0
d1 = DateAdd("d", d, PrimaryTargetDate)
Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
If Not c Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
Next k
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else: End If ' If Not c Is Nothing
End If ' If d < 0 Then
Else: End If ' if xlWbMasterList.Worksheets("Hit List").Cells(i, 2).Value = 1
Next i
For i = 1 To SearchRangeCount ' for each item in "Master List"
If xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1 Then
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If d < 0 Then
d = DateDiff("d", xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value, SourceDateText)
If d Mod 2 = 0 Then
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
If Not c Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
Next k
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else: End If ' If Not c Is Nothing
Else: End If ' If d Mod 2 = 0 Then
Else ' d > 0
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value)
If d Mod 2 = 0 Then
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
Set c = xlWbMasterList.Worksheets("Master List").Range("A:A").Find(d1)
If Not c Is Nothing Then
g = g + 1
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Else: End If ' xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value
Next k
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Master List").Cells(i, 3).Value
Else: End If ' If Not c Is Nothing
Else: End If ' If d Mod 2 = 0 Then
End If ' If d > 0
Else: End If ' if xlWbMasterList.Worksheets("Master List").Cells(i, 2).Value = 1
Next i
' working code ^^^^
End Sub
Sub Scrapyard()
For i = 1 To SearchRangeCount
If xlWbMasterList.Worksheets("Hit List").Cells(i, 2).Value = 1 Then
d = DateDiff("d", #11/2/1965#, xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value)
dMid = d * 2
d1 = DateAdd("d", -dMid, SourceDateText)
g = g + 1
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 3).Value
Else: End If
Next i
' begin section that dulicates entries vvvvv
For i = 1 To SearchRangeCount
If xlWbMasterList.Worksheets("Hit List").Cells(i, 2).Value = 1 Then
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value)
If d < 0 Then
d = DateDiff("d", xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value, SourceDateText)
d1 = DateAdd("d", d, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else: End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else 'Else
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
'End If
'Loop While Not c Is Nothing And c.Address <> firstaddress
'End If
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
' duplicate entries ^^^^^
'xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 3).Value
End If
Next i
For i = 1 To SearchRangeCount
If xlWbMasterList.Worksheets("Hit List").Cells(i, 2).Value = 1 Then
If d Mod 2 = 0 Then
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 3).Value
Else: End If
Else
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value)
d1 = DateAdd("d", d, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 3).Value
If d Mod 2 = 0 Then
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets("Hit List").Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets("Hit List").Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets("Master List").Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets("Master List").Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets("Hit List").Cells(i, 3).Value
Else: End If
End If
Else: End If
Next i
End Sub
Private Sub cmdBigList_Click()
'1 January 2012 > 10 January 2012
BigListMain
End Sub
Sub BigListMain()
'1 January 2012 > 10 January 2012
OutlooktoExcelWorkingResults
End Sub
Sub OutlooktoExcelWorkingResults()
Excel.Application.Visible = True
Dim xlWorkbook As Excel.Workbook
Set xlWorkbook = Excel.Workbooks.Open("c:\TimeDifference\Working Results.xlsx")
Dim xlWbMasterList As Excel.Workbook
Set xlWbMasterList = Excel.Workbooks.Open("c:\TimeDifference\Master List.xlsm")
Dim d
Dim d1
Dim dMid
Dim i
Dim g
Dim k
Dim PrimaryTargetDate
Dim SourceDateText
Dim ReportLineItemText
PrimaryTargetDate = "11/2/1965"
SourceDateText = txtSourceDate.Text
g = 0
Dim SearchRangeCount
Dim xlMasterListRange
Set xlMasterListRange = xlWbMasterList.Worksheets(1).Range("A:A")
SearchRangeCount = Excel.WorksheetFunction.CountA(xlMasterListRange)
Dim SearchRangeCountFind
Dim xlMasterListRangeFind
Set xlMasterListRangeFind = xlWbMasterList.Worksheets(1).Range("A:A")
SearchRangeCountFind = Excel.WorksheetFunction.CountA(xlMasterListRangeFind)
For i = 1 To SearchRangeCount
If xlWbMasterList.Worksheets(1).Cells(i, 2).Value = 1 Then
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets(1).Cells(i, 1).Value)
If d < 0 Then
d = DateDiff("d", xlWbMasterList.Worksheets(1).Cells(i, 1).Value, SourceDateText)
d1 = DateAdd("d", d, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
'Set c = xlWbMasterList.Worksheets(1).Range(Cells(1, 1), Cells(SearchRangeCountFind, 1)).Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets(1).Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
'Next i
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets(1).Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets(1).Cells(i, 3).Value
If d Mod 2 = 0 Then
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets(1).Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
'Next i
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets(1).Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets(1).Cells(i, 3).Value
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = lstSecondary.List(i) ' change to "Master List" items
Else: End If
ElseIf d = 0 Then
Else
d = DateDiff("d", SourceDateText, xlWbMasterList.Worksheets(1).Cells(i, 1).Value)
d1 = DateAdd("d", d, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets(1).Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
'Next i
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets(1).Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets(1).Cells(i, 3).Value
'd = DateDiff("d", SourceDateText, lstSecondary.List(i))
'd1 = DateAdd("d", d, PrimaryTargetDate)
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = lstSecondary.List(i) ' change to "Master List" items
If d Mod 2 = 0 Then
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
g = g + 1
Set c = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = xlWbMasterList.Worksheets(1).Range("A:A").Find(d1)
Set c = xlWbMasterList.Worksheets(1).Range("A:A").FindNext(c)
If Not c Is Nothing Then
For k = 1 To SearchRangeCountFind
If xlWbMasterList.Worksheets(1).Cells(k, 1).Value = d1 Then
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = xlWbMasterList.Worksheets(1).Cells(k, 3).Value
Exit For
Else
End If
Next k
Else
xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = "No match in Master List"
End If
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
'Next i
xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
xlWorkbook.Worksheets("Outlook results").Cells(g, 3).Value = xlWbMasterList.Worksheets(1).Cells(i, 1).Value
xlWorkbook.Worksheets("Outlook results").Cells(g, 4).Value = xlWbMasterList.Worksheets(1).Cells(i, 3).Value
'dMid = d / 2
'd1 = DateAdd("d", dMid, PrimaryTargetDate)
'g = g + 1
'xlWorkbook.Worksheets("Outlook results").Cells(g, 1).Value = Format(d1, "d mmmm yyyy")
'xlWorkbook.Worksheets("Outlook results").Cells(g, 2).Value = lstSecondary.List(i) ' change to "Master List" items
Else: End If
End If
Else: End If
Next i
End Sub
Sub DatasourceMatrixList()
'1 January 2012
Dim d
Dim d1
Dim dMid
Dim i
Dim PrimaryTargetDate
Dim SourceDateText
Dim ReportLineItemText
PrimaryTargetDate = "11/2/1965"
SourceDateText = txtSourceDate.Text
For i = 0 To lstSecondary.ListCount - 1
d = DateDiff("d", SourceDateText, lstSecondary.List(i))
If d < 0 Then ' txtSourceDate.Text is a later date than the current MatrixList item
d = DateDiff("d", lstSecondary.List(i), SourceDateText)
' **********
'From 12/23/1926 ( ) To 11/2/1965 ( ) equals 14194 days
'From 11/2/1965 ( ) To 9/12/2004 ( ) equals 14194 days
'From 12/23/1926 ( ) To 11/2/1965 ( ) equals 14194 days
'14194 = 7097 + 7097
'From 11/2/1965 ( ) To 4/8/1985 ( ) equals 7097 days
' **********
' **********
'From 12/23/1926 ( ) To 3/3/1959 ( ) equals 11758 days
'From 11/2/1965 ( ) To 1/11/1998 ( ) equals 11758 days
'From 12/23/1926 ( ) To 3/3/1959 ( ) equals 11758 days
'11758 = 5879 + 5879
'From 11/2/1965 ( ) To 12/7/1981 ( ) equals 5879 days
' **********
'From 12/23/1926 ( ) To 11/2/1965 ( ) equals 14194 days
'From 11/2/1965 ( ) To 9/12/2004 ( ) equals 14194 days
ReportLineItemText = txtBigList.Text & vbCr & vbCr & "From " & lstSecondary.List(i) & " ( " & " ) " & " To " & SourceDateText & " ( " & " ) " & " equals " & d & " days"
d1 = DateAdd("d", d, PrimaryTargetDate)
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "From " & PrimaryTargetDate & " ( " & " ) " & " To " & d1 & " ( " & " ) " & " equals " & d & " days"
ReportLineItemText = ReportLineItemText & vbCr & vbCr ' n + n
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "# " & Format(d1, "d mmmm yyyy") & "@" & lstSecondary.List(i) & "*" & vbCr & vbCr
txtBigList.Text = ReportLineItemText
'From 12/23/1926 ( ) To 11/2/1965 ( ) equals 14194 days
'14194 = 7097 + 7097
'From 11/2/1965 ( ) To 4/8/1985 ( ) equals 7097 days
If d Mod 2 = 0 Then
ReportLineItemText = txtBigList.Text & vbCr & vbCr & "From " & lstSecondary.List(i) & " ( " & " ) " & " To " & SourceDateText & " ( " & " ) " & " equals " & d & " days"
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
ReportLineItemText = ReportLineItemText & vbCr & vbCr & d & " = " & dMid & " + " & dMid
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "From " & PrimaryTargetDate & " ( " & " ) " & " To " & d1 & " ( " & " ) " & " equals " & dMid & " days"
ReportLineItemText = ReportLineItemText & vbCr & vbCr ' n + n
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "# " & Format(d1, "d mmmm yyyy") & "@" & lstSecondary.List(i) & "*" & vbCr & vbCr
Else: End If
txtBigList.Text = ReportLineItemText & vbCr & vbCr & "________________" & vbCr
ElseIf d = 0 Then
'txtBigList.Text = txtBigList.Text & vbCr & vbCr & d & " " & i
Else ' txtSourceDate.Text is an earlier date than the current MatrixList item
d = DateDiff("d", SourceDateText, lstSecondary.List(i))
' **********
'From 11/2/1965 ( ) To 11/8/1965 ( ) equals 6 days
'From 11/2/1965 ( ) To 11/8/1965 ( ) equals 6 days
'From 11/2/1965 ( ) To 11/8/1965 ( ) equals 6 days
'6 = 3 + 3
'From 11/2/1965 ( ) To 11/5/1965 ( ) equals 3 days
' **********
' **********
'From 3/3/1959 ( ) To 11/8/1965 ( ) equals 2442 days
'From 11/2/1965 ( ) To 7/10/1972 ( ) equals 2442 days
'From 3/3/1959 ( ) To 11/8/1965 ( ) equals 2442 days
'2442 = 1221 + 1221
'From 11/2/1965 ( ) To 3/7/1969 ( ) equals 1221 days
' **********
'From 11/2/1965 ( ) To 11/8/1965 ( ) equals 6 days
'From 11/2/1965 ( ) To 11/8/1965 ( ) equals 6 days
ReportLineItemText = txtBigList.Text & vbCr & vbCr & "From " & SourceDateText & " ( " & " ) " & " To " & lstSecondary.List(i) & " ( " & " ) " & " equals " & d & " days"
d1 = DateAdd("d", d, PrimaryTargetDate)
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "From " & PrimaryTargetDate & " ( " & " ) " & " To " & d1 & " ( " & " ) " & " equals " & d & " days"
ReportLineItemText = ReportLineItemText & vbCr & vbCr ' n + n
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "# " & Format(d1, "d mmmm yyyy") & "@" & lstSecondary.List(i) & "*" & vbCr & vbCr
txtBigList.Text = ReportLineItemText
'From 11/2/1965 ( ) To 11/8/1965 ( ) equals 6 days
'6 = 3 + 3
'From 11/2/1965 ( ) To 11/5/1965 ( ) equals 3 days
If d Mod 2 = 0 Then
ReportLineItemText = txtBigList.Text & vbCr & vbCr & "From " & SourceDateText & " ( " & " ) " & " To " & lstSecondary.List(i) & " ( " & " ) " & " equals " & d & " days"
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
ReportLineItemText = ReportLineItemText & vbCr & vbCr & d & " = " & dMid & " + " & dMid
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "From " & PrimaryTargetDate & " ( " & " ) " & " To " & d1 & " ( " & " ) " & " equals " & dMid & " days"
ReportLineItemText = ReportLineItemText & vbCr & vbCr ' n + n
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "# " & Format(d1, "d mmmm yyyy") & "@" & lstSecondary.List(i) & "*" & vbCr & vbCr
Else: End If
txtBigList.Text = ReportLineItemText & vbCr & vbCr & "________________" & vbCr
End If
Next i
End Sub
Sub LittleList()
'1 January 2012
Dim d
Dim d1
Dim dMid
Dim i
Dim PrimaryTargetDate
Dim SourceDateText
Dim ReportLineItemText
PrimaryTargetDate = "11/2/1965"
SourceDateText = txtSourceDate.Text
For i = 0 To lstSecondary.ListCount - 1
d = DateDiff("d", #11/2/1965#, SourceDateText)
If d > 0 Then
d = DateDiff("d", SourceDateText, lstSecondary.List(i))
If d > 0 Then
ReportLineItemText = txtBigList.Text & vbCr & vbCr & "From " & SourceDateText & " ( " & " ) " & " To " & lstSecondary.List(i) & " ( " & " ) " & " equals " & d & " days"
d1 = DateAdd("d", d, PrimaryTargetDate)
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "From " & PrimaryTargetDate & " ( " & " ) " & " To " & d1 & " ( " & " ) " & " equals " & d & " days"
ReportLineItemText = ReportLineItemText & vbCr & vbCr ' n + n
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "# " & d1 & vbCr & vbCr
txtBigList.Text = ReportLineItemText
If d Mod 2 = 0 Then
ReportLineItemText = txtBigList.Text & vbCr & vbCr & "From " & SourceDateText & " ( " & " ) " & " To " & lstSecondary.List(i) & " ( " & " ) " & " equals " & d & " days"
dMid = d / 2
d1 = DateAdd("d", dMid, PrimaryTargetDate)
ReportLineItemText = ReportLineItemText & vbCr & vbCr & d & " = " & dMid & " + " & dMid
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "From " & PrimaryTargetDate & " ( " & " ) " & " To " & d1 & " ( " & " ) " & " equals " & dMid & " days"
ReportLineItemText = ReportLineItemText & vbCr & vbCr ' n + n
ReportLineItemText = ReportLineItemText & vbCr & vbCr & "# " & d1 & vbCr & vbCr
Else: End If
txtBigList.Text = ReportLineItemText & vbCr & vbCr & "________________" & vbCr
Else: End If
End If
Next i
End Sub
Private Sub cmdCopyList_Click()
'1 January 2012
txtBigList.Copy
End Sub
Private Sub cmdLittleList_Click()
'1 January 2012
LittleList
End Sub
Private Sub cmdHours_Click()
' 11 April 2011
Dim h
Dim h1
Dim h2
h1 = txtHStartDate.Text & " " & txtHStartTime.Text
h2 = txtHEndDate.Text & " " & txtHEndTime.Text
txtHourResult.Text = DateDiff("h", h1, h2)
End Sub
Private Sub cmdMinutes_Click()
' 11 April 2011
Dim n
Dim n1
Dim n2
n1 = txtHStartDate.Text & " " & txtHStartTime.Text
n2 = txtHEndDate.Text & " " & txtHEndTime.Text
txtMinutesResult.Text = DateDiff("n", n1, n2)
End Sub
Sub MultAssoc()
' 29 May 2011
Dim AssocItm
Dim MultDate
Dim AssocItm1
Dim AssocItm2
Dim AssocItm3
Dim AssocItm4
If lstQwik.Text = "" Then
MsgBox "Make a choice."
Exit Sub
Else
End If
If lstSecondary.Text = "" Then
MsgBox "CHOOSE SOMETHING."
Exit Sub
Else
End If
If chkGreater.Value = True Then
' greater
txtAssoc.Text = ""
txtAssoc.Text = "SECONDARY IS GREATER ***** NOT IMPLEMENTED"
'AssocItm = DateDiff("d", lstQwik.Text, lstSecondary.Text)
'MultDate = DateAdd("d", AssocItm, txtStartDate)
'AssocItm1 = DateDiff("d", MultDate, txtStartDate)
'AssocItm2 = DateDiff("d", lstQwik.Text, lstSecondary.Text)
'txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & MultDate & " To " & txtStartDate & " ( ) is " & AssocItm1 & " days"
'txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & lstQwik.Text & " ( ) To " & lstSecondary.Text & " ( ) is " & AssocItm2 & " days"
Else
'not greater
txtAssoc.Text = ""
txtAssoc.Text = "PRIMARIES NOT"
AssocItm = DateDiff("d", lstSecondary.Text, lstQwik.Text)
MultDate = DateAdd("d", AssocItm, txtStartDate)
AssocItm1 = DateDiff("d", MultDate, txtStartDate)
AssocItm2 = DateDiff("d", lstQwik.Text, lstSecondary.Text)
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & MultDate & " ( ) To " & txtStartDate.Text & " ( ) is " & AssocItm1 & " days"
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & lstQwik.Text & " ( ) To " & lstSecondary.Text & " ( ) is " & AssocItm2 & " days"
AssocItm = DateDiff("d", lstSecondary.Text, lstQwik.Text)
AssocItm1 = DateDiff("d", MultDate, txtStartDate)
AssocItm3 = AssocItm * 2
MultDate = DateAdd("d", AssocItm3, txtStartDate)
AssocItm2 = DateDiff("d", lstQwik.Text, lstSecondary.Text)
AssocItm3 = DateDiff("d", lstQwik.Text, lstSecondary.Text)
AssocItm3 = AssocItm3 * 2
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & vbCrLf & "From " & MultDate & " ( ) To " & txtStartDate.Text & " ( ) is " & AssocItm3 & " days"
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & AssocItm3 & " = " & AssocItm2 & " + " & AssocItm2
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & lstQwik.Text & " ( ) To " & lstSecondary.Text & " ( ) is " & AssocItm2 & " days"
End If
End Sub
Private Sub cmdMult_Click()
' 29 May 2011
MultAssoc
End Sub
Private Sub cmdReport_Click()
' 21 March 2011
ReportItem
End Sub
Sub ReportItem()
' 21 March 2011
Dim AssocDiff1
Dim AssocDiff2
Dim ReportTag1
Dim ReportTag2
txtAssoc.Text = vbCrLf & txtAssoc.Text & vbCrLf
AssocDiff1 = DateDiff("d", txtStartDate.Text, txtDiff)
If chkHijacked.Value = True Then
If txtReport1.Text = "3/3/1959" Then
ReportTag1 = "the birthdate in Hawaii of my brother Thomas Reagan"
ElseIf txtReport1.Text = "3/4/1959" Then
ReportTag1 = "the birthdate London England time of my brother Thomas Reagan"
ElseIf txtReport1.Text = "7/16/1963" Then
ReportTag1 = "another threat sent to me against my brother's wife"
ElseIf txtReport1.Text = "11/2/1965" Then
ReportTag1 = "date hijacked from me:my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer"
'Else
'ReportTag1 = " ( )"
End If
Else
If txtReport1.Text = "3/3/1959" Then
ReportTag1 = "the birthdate in Hawaii of my brother Thomas Reagan"
ElseIf txtReport1.Text = "3/4/1959" Then
ReportTag1 = "the birthdate London England time of my brother Thomas Reagan"
ElseIf txtReport1.Text = "7/16/1963" Then
ReportTag1 = "my wife"
ElseIf txtReport1.Text = "11/2/1965" Then
ReportTag1 = "my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer"
'Else
'ReportTag1 = " ( )"
End If
End If
If chkHijacked.Value = True Then
If txtReport2.Text = "3/3/1959" Then
ReportTag2 = "the birthdate in Hawaii of my brother Thomas Reagan"
ElseIf txtReport2.Text = "3/4/1959" Then
ReportTag2 = "the birthdate London England time of my brother Thomas Reagan"
ElseIf txtReport2.Text = "7/16/1963" Then
ReportTag2 = "another threat sent to me against my brother's wife"
ElseIf txtReport2.Text = "11/2/1965" Then
ReportTag2 = "date hijacked from me:my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer"
'Else
'ReportTag2 = txtReport2.Text & " ( )"
End If
Else
If txtReport2.Text = "3/3/1959" Then
ReportTag2 = "the birthdate in Hawaii of my brother Thomas Reagan"
ElseIf txtReport2.Text = "3/4/1959" Then
ReportTag2 = "the birthdate London England time of my brother Thomas Reagan"
ElseIf txtReport2.Text = "7/16/1963" Then
ReportTag2 = "my wife"
ElseIf txtReport2.Text = "11/2/1965" Then
ReportTag2 = "my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer"
'Else
'ReportTag2 = txtReport2.Text & " ( )"
End If
End If
If chkGreater.Value = True Then
' greater
txtAssoc.Text = ""
AssocDiff2 = DateDiff("d", txtReport1.Text, txtReport2.Text)
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & txtReport1.Text & " ( " & ReportTag1 & " ) To " & txtReport2.Text & " ( ) is " & AssocDiff2 & " days"
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & txtStartDate.Text & " ( ) To " & txtDiff & " ( ) is " & AssocDiff1 & " days"
Else
'not greater
txtAssoc.Text = ""
txtAssoc.Text = "From " & txtStartDate.Text & " ( ) To " & txtDiff & " ( ) is " & AssocDiff1 & " days"
If chkHalf.Value = True Then
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & txtDaysDiff.Text & " = " & txtMid.Text & " + " & txtMid
Else
End If
If txtReport1.Text = "" Then
MsgBox "Type something."
ElseIf txtReport2.Text = "" Then MsgBox "Type something."
Else
AssocDiff2 = DateDiff("d", txtReport1.Text, txtReport2.Text)
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & txtReport1.Text & " ( " & ReportTag1 & " ) To " & txtReport2.Text & " ( ) is " & AssocDiff2 & " days"
End If
End If
End Sub
Private Sub cmdAssoc_Click()
' 20 March 2011
AssocItem
End Sub
Sub AssocItem()
' 20 March 2011
Dim AssocDiff1
Dim AssocDiff2
Dim AssocTag
If lstQwik.Text = "" Then
MsgBox "Make a choice."
Exit Sub
Else
End If
If lstMatches.Text = "" Then
MsgBox "CHOOSE SOMETHING."
Exit Sub
Else
End If
txtAssoc.Text = vbCrLf & txtAssoc.Text & vbCrLf
AssocDiff1 = DateDiff("d", txtStartDate.Text, txtDiff)
If chkGreater.Value = True Then
' greater
AssocDiff2 = DateDiff("d", lstMatches.Text, lstQwik.Text)
Else
' not greater
AssocDiff2 = DateDiff("d", lstQwik.Text, lstMatches.Text)
End If
txtAssoc.Text = "From " & txtStartDate.Text & " ( ) To " & txtDiff & " ( ) is " & AssocDiff1 & " days"
If chkHijacked.Value = True Then
If lstQwik.Text = "3/3/1959" Then
AssocTag = "the birthdate in Hawaii of my brother Thomas Reagan"
ElseIf lstQwik.Text = "3/4/1959" Then
AssocTag = "the birthdate London England time of my brother Thomas Reagan"
ElseIf lstQwik.Text = "7/16/1963" Then
AssocTag = "another threat sent to me against my brother's wife"
ElseIf lstQwik.Text = "11/2/1965" Then
AssocTag = "date hijacked from me:my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer"
End If
Else
If lstQwik.Text = "3/3/1959" Then
AssocTag = "the birthdate in Hawaii of my brother Thomas Reagan"
ElseIf lstQwik.Text = "3/4/1959" Then
AssocTag = "the birthdate London England time of my brother Thomas Reagan"
ElseIf lstQwik.Text = "7/16/1963" Then
AssocTag = "my wife"
ElseIf lstQwik.Text = "11/2/1965" Then
AssocTag = "my birth date in Antlers Oklahoma USA and my birthdate as the known official United States Marshal Kerry Wayne Burgess and active duty United States Marine Corps officer"
End If
End If
If chkHalf.Value = True Then
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & txtDaysDiff.Text & " = " & txtMid.Text & " + " & txtMid
Else
End If
'PROBLEM does not indicate a negative value when the first date is later than the first date
If chkGreater.Value = True Then
' greater
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & lstMatches.Text & " ( ) To " & lstQwik.Text & " ( " & AssocTag & " ) " & "is " & AssocDiff2 & " days"
Else
' not greater
txtAssoc.Text = txtAssoc.Text & vbCrLf & vbCrLf & "From " & lstQwik.Text & " ( " & AssocTag & " ) " & "To " & lstMatches.Text & " ( ) is " & AssocDiff2 & " days"
End If
End Sub
Private Sub cmdClearAssoc_Click()
txtAssoc.Text = ""
End Sub
Private Sub cmdRpt1_Click()
'21 March 2011
txtReport1.Text = lstQwik.Text
End Sub
Private Sub cmdRpt2_Click()
'21 March 2011
txtReport2.Text = lstQwik.Text
End Sub
Sub QwikStartEnd()
lstQwik.AddItem ("3/3/1959")
lstQwik.AddItem ("3/4/1959")
lstQwik.AddItem ("7/16/1963")
lstQwik.AddItem ("11/2/1965")
End Sub
Private Sub cmdQwikEnd_Click()
txtDiff.Text = lstQwik.Text
End Sub
Private Sub cmdQwikStart_Click()
txtStartDate.Text = lstQwik.Text
End Sub
Private Sub cmdBackFwd_Click()
BackForward
End Sub
Sub BackForward()
'Dim a As Date
'Dim b As Date
'Dim x
'a = txtTargetDate.Text
'x = DateAdd("d", txtDifference.Text, a)
'For i = 0 To lstSecondary.ListCount - 1
'If Str(x) = lstSecondary.List(i) Then
't = lstSecondary.ListIndex(i)
'txtBackFwdMatch.Text = "From " & a & " ( )" & " To " & lstSecondary.List(i) & " ( )" & " = " & txtDifference.Text & " Days"
'End If
'Next i
'Dim revDifference
'revDifference = txtDifference.Text - (txtDifference.Text * 2)
'x = DateAdd("d", revDifference, a)
'For i = 0 To lstSecondary.ListCount - 1
'If Str(x) = lstSecondary.List(i) Then
'txtBackFwdMatch.Text = "From " & lstSecondary.List(i) & " ( )" & " To " & a & " ( )" & " = " & txtDifference.Text & " Days"
'End If
'Next i
End Sub
Private Sub cmdAdd2nds_Click()
lstSecondary.AddItem (txtAdd2nds.Text)
txtAdd2nds.Text = ""
End Sub
Private Sub cmdDaysClickAll_Click()
Dim i
For i = 0 To lstSecondary.ListCount - 1
txtStartDate.Text = lstSecondary.List(i)
CmdDaysAll
Next i
End Sub
Private Sub cmdMaster_Click()
MasterList
End Sub
Private Sub cmdDatePartStart_Click()
lstMatches.Clear
lstDatePart.Clear
DatePartDays
DatePartWeeks
DatePartMonths
'DatePart3and13Years
DatePart5And15And9Years
DatePart3334Years
DatePart59Years
End Sub
Sub DatePartDays()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim X
Dim z
Dim i
X = txtStartDate.Text
'112109
a = DateAdd("d", 3359, X)
z = "From " & X & " To " & a & " = " & "3359 days"
lstDatePart.AddItem (z)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
'txtMatchList = z
Else
End If
Next i
a = DateAdd("d", -3359, X)
lstDatePart.AddItem ("From " & X & " minus " & "3359 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 13359, X)
lstDatePart.AddItem ("From " & X & " plus " & "13359 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -13359, X)
lstDatePart.AddItem ("From " & X & " minus " & "13359 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 3459, X)
lstDatePart.AddItem ("From " & X & " plus " & "3459 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -3459, X)
lstDatePart.AddItem ("From " & X & " minus " & "3459 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 13459, X)
lstDatePart.AddItem ("From " & X & " plus " & "13459 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -13459, X)
lstDatePart.AddItem ("From " & X & " minus " & "13459 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 5933, X)
lstDatePart.AddItem ("From " & X & " plus " & "5933 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -5933, X)
lstDatePart.AddItem ("From " & X & " minus " & "5933 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 15933, X)
lstDatePart.AddItem ("From " & X & " plus " & "15933 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -15933, X)
lstDatePart.AddItem ("From " & X & " minus " & "15933 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 5934, X)
lstDatePart.AddItem ("From " & X & " plus " & "5934 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -5934, X)
lstDatePart.AddItem ("From " & X & " minus " & "5934 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", 15934, X)
lstDatePart.AddItem ("From " & X & " plus " & "15934 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("d", -15934, X)
lstDatePart.AddItem ("From " & X & " minus " & "15934 days is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
End Sub
Sub DatePartWeeks()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim X
Dim i
X = txtStartDate.Text
a = DateAdd("ww", 3359, X)
lstDatePart.AddItem ("From " & X & " plus " & "3359 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -3359, X)
lstDatePart.AddItem ("From " & X & " minus " & "3359 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 13359, X)
lstDatePart.AddItem ("From " & X & " plus " & "13359 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -13359, X)
lstDatePart.AddItem ("From " & X & " minus " & "13359 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 3459, X)
lstDatePart.AddItem ("From " & X & " plus " & "3459 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -3459, X)
lstDatePart.AddItem ("From " & X & " minus " & "3459 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 13459, X)
lstDatePart.AddItem ("From " & X & " plus " & "13459 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -13459, X)
lstDatePart.AddItem ("From " & X & " minus " & "13459 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 5933, X)
lstDatePart.AddItem ("From " & X & " plus " & "5933 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -5933, X)
lstDatePart.AddItem ("From " & X & " minus " & "5933 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 15933, X)
lstDatePart.AddItem ("From " & X & " plus " & "15933 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -15933, X)
lstDatePart.AddItem ("From " & X & " minus " & "15933 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 5934, X)
lstDatePart.AddItem ("From " & X & " plus " & "5934 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -5934, X)
lstDatePart.AddItem ("From " & X & " minus " & "5934 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", 15934, X)
lstDatePart.AddItem ("From " & X & " plus " & "15934 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
a = DateAdd("ww", -15934, X)
lstDatePart.AddItem ("From " & X & " minus " & "15934 weeks is: " & a)
For i = 0 To lstSecondary.ListCount - 1
If a = lstSecondary.List(i) Then
lstMatches.AddItem (a)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 359 weeks
'a = DateAdd("d", 3, x)
'b = DateAdd("ww", 359, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 359 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'- 3 days, 359 weeks
'a = DateAdd("d", -3, x)
'b = DateAdd("ww", -359, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 359 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 459 weeks
'a = DateAdd("d", 3, x)
'b = DateAdd("ww", 459, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 459 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'- 3 days, 459 weeks
'a = DateAdd("d", -3, x)
'b = DateAdd("ww", -459, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 459 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 593 weeks
'a = DateAdd("d", 3, x)
'b = DateAdd("ww", 593, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 days, 593 weeks
'a = DateAdd("d", -3, x)
'b = DateAdd("ww", -593, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'4 days, 593 weeks
'a = DateAdd("d", 4, x)
'b = DateAdd("ww", 593, a)
'lstDatePart.AddItem ("From " & x & " plus " & "4 days, 593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-4 days, 593 weeks
'a = DateAdd("d", -4, x)
'b = DateAdd("ww", -593, a)
'lstDatePart.AddItem ("From " & x & " minus " & "4 days, 593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 1593 weeks
'a = DateAdd("d", 3, x)
'b = DateAdd("ww", 1593, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 1593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 days, 1593 weeks
'a = DateAdd("d", -3, x)
'b = DateAdd("ww", -1593, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 1593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'4 days, 1593 weeks
'a = DateAdd("d", 4, x)
'b = DateAdd("ww", 1593, a)
'lstDatePart.AddItem ("From " & x & " plus " & "4 days, 1593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-4 days, 1593 weeks
'a = DateAdd("d", -4, x)
'b = DateAdd("ww", -1593, a)
'lstDatePart.AddItem ("From " & x & " minus " & "4 days, 1593 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'5 days, 933 weeks
'a = DateAdd("d", 5, x)
'b = DateAdd("ww", 933, a)
'lstDatePart.AddItem ("From " & x & " plus " & "5 days, 933 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-5 days, 933 weeks
'a = DateAdd("d", -5, x)
'b = DateAdd("ww", -933, a)
'lstDatePart.AddItem ("From " & x & " minus " & "5 days, 933 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'5 days, 934 weeks
'a = DateAdd("d", 5, x)
'b = DateAdd("ww", 934, a)
'lstDatePart.AddItem ("From " & x & " plus " & "5 days, 934 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-5 days, 934 weeks
'a = DateAdd("d", -5, x)
'b = DateAdd("ww", -934, a)
'lstDatePart.AddItem ("From " & x & " minus " & "5 days, 934 weeks is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
End Sub
Sub DatePartMonths()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim X
Dim i
X = txtStartDate.Text
'3 days, 3 weeks, 59 months
a = DateAdd("d", 3, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 weeks, 59 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 months 3 weeks 3 days
a = DateAdd("m", 59, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 months 3 weeks 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 weeks, 59 months
a = DateAdd("d", -3, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 weeks, 59 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 months 3 weeks 3 days
a = DateAdd("m", -59, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 months 3 weeks 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 3 weeks, 159 months
a = DateAdd("d", 3, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 159, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 weeks, 159 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'159 months 3 weeks 3 days
a = DateAdd("m", 159, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "159 months 3 weeks 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 weeks, 159 months
a = DateAdd("d", -3, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -159, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 weeks, 159 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-159 months 3 weeks 3 days
a = DateAdd("m", -159, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "159 months 3 weeks 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 days, 3 weeks, 59 months
a = DateAdd("d", 4, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "4 days, 3 weeks, 59 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 months 3 weeks 4 days
a = DateAdd("m", 59, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 4, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 months 3 weeks 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 days, 3 weeks, 59 months
a = DateAdd("d", -4, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "4 days, 3 weeks, 59 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 months 3 weeks 4 days
a = DateAdd("m", -59, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -4, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 months 3 weeks 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 days, 3 weeks, 159 months
a = DateAdd("d", 4, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 159, b)
lstDatePart.AddItem ("From " & X & " plus " & "4 days, 3 weeks, 159 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'159 months 3 weeks 4 days
a = DateAdd("m", 159, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 4, b)
lstDatePart.AddItem ("From " & X & " plus " & "159 months 3 weeks 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 days, 3 weeks, 159 months
a = DateAdd("d", -4, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -159, b)
lstDatePart.AddItem ("From " & X & " minus " & "4 days, 3 weeks, 159 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-159 months 3 weeks 4 days
a = DateAdd("m", -159, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -4, b)
lstDatePart.AddItem ("From " & X & " minus " & "159 months 3 weeks 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'9 days, 335 months
'a = DateAdd("d", 9, x)
'b = DateAdd("m", 335, a)
'lstDatePart.AddItem ("From " & x & " plus " & "9 days, 335 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-9 days, 335 months
'a = DateAdd("d", -9, x)
'b = DateAdd("m", -335, a)
'lstDatePart.AddItem ("From " & x & " minus " & "9 days, 335 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'9 days, 345 months
'a = DateAdd("d", 9, x)
'b = DateAdd("m", 345, a)
'lstDatePart.AddItem ("From " & x & " plus " & "9 days, 345 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-9 days, 345 months
'a = DateAdd("d", -9, x)
'b = DateAdd("m", -345, a)
'lstDatePart.AddItem ("From " & x & " minus " & "9 days, 345 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'9 days, 1335 months
'a = DateAdd("d", 9, x)
'b = DateAdd("m", 1335, a)
'lstDatePart.AddItem ("From " & x & " plus " & "9 days, 1335 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-9 days, 1335 months
'a = DateAdd("d", -9, x)
'b = DateAdd("m", -1335, a)
'lstDatePart.AddItem ("From " & x & " minus " & "9 days, 1335 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'9 days, 1345 months
'a = DateAdd("d", 9, x)
'b = DateAdd("m", 1345, a)
'lstDatePart.AddItem ("From " & x & " plus " & "9 days, 1345 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-9 days, 1345 months
'a = DateAdd("d", -9, x)
'b = DateAdd("m", -1345, a)
'lstDatePart.AddItem ("From " & x & " minus " & "9 days, 1345 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 359 months
'a = DateAdd("d", 3, x)
'b = DateAdd("m", 359, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 359 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 days, 359 months
'a = DateAdd("d", -3, x)
'b = DateAdd("m", -359, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 359 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'13 days, 359 months
'a = DateAdd("d", 13, x)
'b = DateAdd("m", 359, a)
'lstDatePart.AddItem ("From " & x & " plus " & "13 days, 359 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-13 days, 359 months
'a = DateAdd("d", -13, x)
'b = DateAdd("m", -359, a)
'lstDatePart.AddItem ("From " & x & " minus " & "13 days, 359 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 459 months
'a = DateAdd("d", 3, x)
'b = DateAdd("m", 459, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 459 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 days, 459 months
'a = DateAdd("d", -3, x)
'b = DateAdd("m", -459, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 459 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'13 days, 459 months
'a = DateAdd("d", 13, x)
'b = DateAdd("m", 459, a)
'lstDatePart.AddItem ("From " & x & " plus " & "13 days, 459 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-13 days, 459 months
'a = DateAdd("d", -13, x)
'b = DateAdd("m", -459, a)
'lstDatePart.AddItem ("From " & x & " minus " & "13 days, 459 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 weeks, 359 months
'a = DateAdd("ww", 3, x)
'b = DateAdd("m", 359, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 weeks, 359 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 weeks, 359 months
'a = DateAdd("ww", -3, x)
'b = DateAdd("m", -359, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 weeks, 359 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 weeks, 459 months
'a = DateAdd("ww", 3, x)
'b = DateAdd("m", 459, a)
'lstDatePart.AddItem ("From " & x & " plus " & "3 weeks, 459 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 weeks, 459 months
'a = DateAdd("ww", -3, x)
'b = DateAdd("m", -459, a)
'lstDatePart.AddItem ("From " & x & " minus " & "3 weeks, 459 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'1 day, 3 weeks, 359 months
a = DateAdd("d", 1, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 359, b)
lstDatePart.AddItem ("From " & X & " plus " & "1 day, 3 weeks, 359 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'359 months 3 weeks 1 day
a = DateAdd("m", 359, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 1, b)
lstDatePart.AddItem ("From " & X & " plus " & "359 months 3 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-1 day, 3 weeks, 359 months
a = DateAdd("d", -1, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -359, b)
lstDatePart.AddItem ("From " & X & " minus " & "1 day, 3 weeks, 359 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-359 months 3 weeks 1 day
a = DateAdd("m", -359, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -1, b)
lstDatePart.AddItem ("From " & X & " minus " & "359 months 3 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'1 day, 3 weeks, 459 months
a = DateAdd("d", 1, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 459, b)
lstDatePart.AddItem ("From " & X & " plus " & "1 day, 3 weeks, 459 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'459 months 3 weeks 1 day
a = DateAdd("m", 459, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 1, b)
lstDatePart.AddItem ("From " & X & " plus " & "459 months 3 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-1 day, 3 weeks, 459 months
a = DateAdd("d", -1, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -459, b)
lstDatePart.AddItem ("From " & X & " minus " & "1 day, 3 weeks, 459 months is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-459 months 3 weeks 1 day
a = DateAdd("m", -459, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -1, b)
lstDatePart.AddItem ("From " & X & " minus " & "459 months 3 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 days, 933 months
'a = DateAdd("d", 5, x)
'b = DateAdd("m", 933, a)
'lstDatePart.AddItem ("From " & x & " plus " & "5 days, 933 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-5 days, 933 months
'a = DateAdd("d", -5, x)
'b = DateAdd("m", -933, a)
'lstDatePart.AddItem ("From " & x & " minus " & "5 days, 933 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'15 days, 933 months
'a = DateAdd("d", 15, x)
'b = DateAdd("m", 933, a)
'lstDatePart.AddItem ("From " & x & " plus " & "15 days, 933 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-15 days, 933 months
'a = DateAdd("d", -15, x)
'b = DateAdd("m", -933, a)
'lstDatePart.AddItem ("From " & x & " minus " & "15 days, 933 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'5 days, 934 months
'a = DateAdd("d", 5, x)
'b = DateAdd("m", 934, a)
'lstDatePart.AddItem ("From " & x & " plus " & "5 days, 934 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-5 days, 934 months
'a = DateAdd("d", -5, x)
'b = DateAdd("m", -934, a)
'lstDatePart.AddItem ("From " & x & " minus " & "5 days, 934 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'15 days, 934 months
'a = DateAdd("d", 15, x)
'b = DateAdd("m", 934, a)
'lstDatePart.AddItem ("From " & x & " plus " & "15 days, 934 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-15 days, 934 months
'a = DateAdd("d", -15, x)
'b = DateAdd("m", -934, a)
'lstDatePart.AddItem ("From " & x & " minus " & "15 days, 934 months is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
End Sub
Sub DatePart3and13Years() 'not referenced
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
X = txtStartDate.Text
'359 days, 3 years
a = DateAdd("d", 359, X)
b = DateAdd("yyyy", 3, a)
lstDatePart.AddItem ("From " & X & " plus " & "359 days, 3 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-359 days, 3 years
a = DateAdd("d", -359, X)
b = DateAdd("yyyy", -3, a)
lstDatePart.AddItem ("From " & X & " minus " & "359 days, 3 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'359 days, 13 years
a = DateAdd("d", 359, X)
b = DateAdd("yyyy", 13, a)
lstDatePart.AddItem ("From " & X & " plus " & "359 days, 13 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-359 days, 13 years
a = DateAdd("d", -359, X)
b = DateAdd("yyyy", -13, a)
lstDatePart.AddItem ("From " & X & " minus " & "359 days, 13 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
End Sub
Sub DatePart5And15And9Years()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim X
Dim i
X = txtStartDate.Text
'335 days, 9 years
'a = DateAdd("d", 335, x)
'b = DateAdd("yyyy", 9, a)
'lstDatePart.AddItem ("From " & x & " plus " & "335 days, 9 years is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-335 days, 9 years
'a = DateAdd("d", -335, x)
'b = DateAdd("yyyy", -9, a)
'lstDatePart.AddItem ("From " & x & " minus " & "335 days, 9 years is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'345 days, 9 years
'a = DateAdd("d", 345, x)
'b = DateAdd("yyyy", 9, a)
'lstDatePart.AddItem ("From " & x & " plus " & "345 days, 9 years is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-345 days, 9 years
'a = DateAdd("d", -345, x)
'b = DateAdd("yyyy", -9, a)
'lstDatePart.AddItem ("From " & x & " minus " & "345 days, 9 years is: " & b)
'For i = 0 To lstSecondary.ListCount - 1
'If b = lstSecondary.List(i) Then
'lstMatches.AddItem (b)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 35 weeks, 9 years
'a = DateAdd("d", 3, x)
'b = DateAdd("ww", 35, a)
'c = DateAdd("yyyy", 9, b)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 35 weeks, 9 years is: " & c)
'For i = 0 To lstSecondary.ListCount - 1
'If c = lstSecondary.List(i) Then
'lstMatches.AddItem (c)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 days, 35 weeks, 9 years
'a = DateAdd("d", -3, x)
'b = DateAdd("ww", -35, a)
'c = DateAdd("yyyy", -9, b)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 35 weeks, 9 years is: " & c)
'For i = 0 To lstSecondary.ListCount - 1
'If c = lstSecondary.List(i) Then
'lstMatches.AddItem (c)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 45 weeks, 9 years
'a = DateAdd("d", 3, x)
'b = DateAdd("ww", 45, a)
'c = DateAdd("yyyy", 9, b)
'lstDatePart.AddItem ("From " & x & " plus " & "3 days, 45 weeks, 9 years is: " & c)
'For i = 0 To lstSecondary.ListCount - 1
'If c = lstSecondary.List(i) Then
'lstMatches.AddItem (c)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'-3 days, 45 weeks, 9 years
'a = DateAdd("d", -3, x)
'b = DateAdd("ww", -45, a)
'c = DateAdd("yyyy", -9, b)
'lstDatePart.AddItem ("From " & x & " minus " & "3 days, 45 weeks, 9 years is: " & c)
'For i = 0 To lstSecondary.ListCount - 1
'If c = lstSecondary.List(i) Then
'lstMatches.AddItem (c)
'lstDatePart.AddItem (" ^^^^^ ")
'lstDatePart.AddItem (" ^^^^^ ")
'Else
'End If
'Next i
'3 days, 3 weeks, 5 months, 9 years
a = DateAdd("d", 3, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 5, b)
d = DateAdd("yyyy", 9, c)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 weeks, 5 months, 9 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'9 years 5 months 3 weeks 3 days
a = DateAdd("yyyy", 9, X)
b = DateAdd("m", 5, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 3, c)
lstDatePart.AddItem ("From " & X & " plus " & "9 years 5 months 3 weeks 3 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 weeks, 5 months, 9 years
a = DateAdd("d", -3, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -5, b)
d = DateAdd("yyyy", -9, c)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 weeks, 5 months, 9 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-9 years 5 months 3 weeks 3 days
a = DateAdd("yyyy", -9, X)
b = DateAdd("m", -5, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -3, c)
lstDatePart.AddItem ("From " & X & " minus " & "9 years 5 months 3 weeks 3 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 3 weeks, 9 months, 5 years
a = DateAdd("d", 3, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 9, b)
d = DateAdd("yyyy", 5, c)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 weeks, 9 months, 5 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 years 9 months 3 weeks 3 days
a = DateAdd("yyyy", 5, X)
b = DateAdd("m", 9, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 3, c)
lstDatePart.AddItem ("From " & X & " plus " & "5 years 9 months 3 weeks 3 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 weeks, 9 months, 5 years
a = DateAdd("d", -3, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -9, b)
d = DateAdd("yyyy", -5, c)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 weeks, 9 months, 5 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-5 years 9 months 3 weeks 3 days
a = DateAdd("yyyy", -5, X)
b = DateAdd("m", -9, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -3, c)
lstDatePart.AddItem ("From " & X & " minus " & "5 years 9 months 3 weeks 3 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 days, 3 weeks, 9 months, 5 years
a = DateAdd("d", 4, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 9, b)
d = DateAdd("yyyy", 5, c)
lstDatePart.AddItem ("From " & X & " plus " & "4 days, 3 weeks, 9 months, 5 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 years 9 months 3 weeks 4 days
a = DateAdd("yyyy", 5, X)
b = DateAdd("m", 9, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 4, c)
lstDatePart.AddItem ("From " & X & " plus " & "5 years 9 months 3 weeks 4 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 days, 3 weeks, 9 months, 5 years
a = DateAdd("d", -4, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -9, b)
d = DateAdd("yyyy", -5, c)
lstDatePart.AddItem ("From " & X & " minus " & "4 days, 3 weeks, 9 months, 5 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-5 years 9 months 3 weeks 4 days
a = DateAdd("yyyy", -5, X)
b = DateAdd("m", -9, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -4, c)
lstDatePart.AddItem ("From " & X & " minus " & "5 years 9 months 3 weeks 4 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 3 weeks, 9 months, 15 years
a = DateAdd("d", 3, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 9, b)
d = DateAdd("yyyy", 15, c)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 weeks, 9 months, 15 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'15 years 9 months 3 weeks 3 days
a = DateAdd("yyyy", 15, X)
b = DateAdd("m", 9, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 3, c)
lstDatePart.AddItem ("From " & X & " plus " & "15 years 9 months 3 weeks 3 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 weeks, 9 months, 15 years
a = DateAdd("d", -3, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -9, b)
d = DateAdd("yyyy", -15, c)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 weeks, 9 months, 15 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-15 years 9 months 3 weeks 3 days
a = DateAdd("yyyy", -15, X)
b = DateAdd("m", -9, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -3, c)
lstDatePart.AddItem ("From " & X & " minus " & "15 years 9 months 3 weeks 3 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 days, 3 weeks, 9 months, 15 years
a = DateAdd("d", 4, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 9, b)
d = DateAdd("yyyy", 15, c)
lstDatePart.AddItem ("From " & X & " plus " & "4 days, 3 weeks, 9 months, 15 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'15 years 9 months 3 weeks 4 days
a = DateAdd("yyyy", 15, X)
b = DateAdd("m", 9, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 4, c)
lstDatePart.AddItem ("From " & X & " plus " & "15 years 9 months 3 weeks 4 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 days, 3 weeks, 9 months, 15 years
a = DateAdd("d", -4, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -9, b)
d = DateAdd("yyyy", -15, c)
lstDatePart.AddItem ("From " & X & " minus " & "4 days, 3 weeks, 9 months, 15 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-15 years 9 months 3 weeks 4 days
a = DateAdd("yyyy", -15, X)
b = DateAdd("m", -9, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -4, c)
lstDatePart.AddItem ("From " & X & " minus " & "15 years 9 months 3 weeks 4 days is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
End Sub
Sub DatePart3334Years()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim X
Dim i
X = txtStartDate.Text
'59 days, 33 years
a = DateAdd("d", 59, X)
b = DateAdd("yyyy", 33, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 days, 33 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 years 59 days
a = DateAdd("yyyy", 33, X)
b = DateAdd("d", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "33 years 59 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 days, 33 years
a = DateAdd("d", -59, X)
b = DateAdd("yyyy", -33, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 days, 33 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 years 59 days
a = DateAdd("yyyy", -33, X)
b = DateAdd("d", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "33 years 59 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'159 days, 33 years
a = DateAdd("d", 159, X)
b = DateAdd("yyyy", 33, a)
lstDatePart.AddItem ("From " & X & " plus " & "159 days, 33 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 years 159 days
a = DateAdd("yyyy", 33, X)
b = DateAdd("d", 159, a)
lstDatePart.AddItem ("From " & X & " plus " & "33 years 159 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-159 days, 33 years
a = DateAdd("d", -159, X)
b = DateAdd("yyyy", -33, a)
lstDatePart.AddItem ("From " & X & " minus " & "159 days, 33 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 years 159 days
a = DateAdd("yyyy", -33, X)
b = DateAdd("d", -159, a)
lstDatePart.AddItem ("From " & X & " minus " & "33 years 159 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 days, 34 years
a = DateAdd("d", 59, X)
b = DateAdd("yyyy", 34, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 days, 34 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 years 59 days
a = DateAdd("yyyy", 34, X)
b = DateAdd("d", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "34 years 59 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 days, 34 years
a = DateAdd("d", -59, X)
b = DateAdd("yyyy", -34, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 days, 34 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 years 59 days
a = DateAdd("yyyy", -34, X)
b = DateAdd("d", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "34 years 59 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'159 days, 34 years
a = DateAdd("d", 159, X)
b = DateAdd("yyyy", 34, a)
lstDatePart.AddItem ("From " & X & " plus " & "159 days, 34 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 years 159 days
a = DateAdd("yyyy", 34, X)
b = DateAdd("d", 159, a)
lstDatePart.AddItem ("From " & X & " plus " & "34 years 159 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-159 days, 34 years
a = DateAdd("d", -159, X)
b = DateAdd("yyyy", -34, a)
lstDatePart.AddItem ("From " & X & " minus " & "159 days, 34 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 years 159 days
a = DateAdd("yyyy", -34, X)
b = DateAdd("d", -159, a)
lstDatePart.AddItem ("From " & X & " minus " & "34 years 159 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 days, 9 weeks, 33 years
a = DateAdd("d", 5, X)
b = DateAdd("ww", 9, a)
c = DateAdd("yyyy", 33, b)
lstDatePart.AddItem ("From " & X & " plus " & "5 days, 9 weeks, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 years 9 weeks 5 days
a = DateAdd("yyyy", 33, X)
b = DateAdd("ww", 9, a)
c = DateAdd("d", 5, b)
lstDatePart.AddItem ("From " & X & " plus " & "33 years 9 weeks 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-5 days, 9 weeks, 33 years
a = DateAdd("d", -5, X)
b = DateAdd("ww", -9, a)
c = DateAdd("yyyy", -33, b)
lstDatePart.AddItem ("From " & X & " minus " & "5 days, 9 weeks, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 years 9 weeks 5 days
a = DateAdd("yyyy", -33, X)
b = DateAdd("ww", -9, a)
c = DateAdd("d", -5, b)
lstDatePart.AddItem ("From " & X & " minus " & "33 years 9 weeks 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 days, 9 weeks, 34 years
a = DateAdd("d", 5, X)
b = DateAdd("ww", 9, a)
c = DateAdd("yyyy", 34, b)
lstDatePart.AddItem ("From " & X & " plus " & "5 days, 9 weeks, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 years 9 weeks 5 days
a = DateAdd("yyyy", 34, X)
b = DateAdd("ww", 9, a)
c = DateAdd("d", 5, b)
lstDatePart.AddItem ("From " & X & " plus " & "34 years 9 weeks 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-5 days, 9 weeks, 34 years
a = DateAdd("d", -5, X)
b = DateAdd("ww", -9, a)
c = DateAdd("yyyy", -34, b)
lstDatePart.AddItem ("From " & X & " minus " & "5 days, 9 weeks, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 years 9 weeks 5 days
a = DateAdd("yyyy", -34, X)
b = DateAdd("ww", -9, a)
c = DateAdd("d", -5, b)
lstDatePart.AddItem ("From " & X & " minus " & "34 years 9 weeks 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'9 days, 5 months, 33 years
a = DateAdd("d", 9, X)
b = DateAdd("m", 5, a)
c = DateAdd("yyyy", 33, b)
lstDatePart.AddItem ("From " & X & " plus " & "9 days, 5 months, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 years 5 months 9 days
a = DateAdd("yyyy", 33, X)
b = DateAdd("m", 5, a)
c = DateAdd("d", 9, b)
lstDatePart.AddItem ("From " & X & " plus " & "33 years 5 months 9 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-9 days, 5 months, 33 years
a = DateAdd("d", -9, X)
b = DateAdd("m", -5, a)
c = DateAdd("yyyy", -33, b)
lstDatePart.AddItem ("From " & X & " minus " & "9 days, 5 months, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 years 5 months 9 days
a = DateAdd("yyyy", -33, X)
b = DateAdd("m", -5, a)
c = DateAdd("d", -9, b)
lstDatePart.AddItem ("From " & X & " minus " & "33 years 5 months 9 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'9 days, 5 months, 34 years
a = DateAdd("d", 9, X)
b = DateAdd("m", 5, a)
c = DateAdd("yyyy", 34, b)
lstDatePart.AddItem ("From " & X & " plus " & "9 days, 5 months, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 years 5 months 9 days
a = DateAdd("yyyy", 34, X)
b = DateAdd("m", 5, a)
c = DateAdd("d", 9, b)
lstDatePart.AddItem ("From " & X & " plus " & "34 years 5 months 9 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-9 days, 5 months, 34 years
a = DateAdd("d", -9, X)
b = DateAdd("m", -5, a)
c = DateAdd("yyyy", -34, b)
lstDatePart.AddItem ("From " & X & " minus " & "9 days, 5 months, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 years 5 months 9 days
a = DateAdd("yyyy", -34, X)
b = DateAdd("m", -5, a)
c = DateAdd("d", -9, b)
lstDatePart.AddItem ("From " & X & " minus " & "34 years 5 months 9 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 days, 9 months, 33 years
a = DateAdd("d", 5, X)
b = DateAdd("m", 9, a)
c = DateAdd("yyyy", 33, b)
lstDatePart.AddItem ("From " & X & " plus " & "5 days, 9 months, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 years 9 months 5 days
a = DateAdd("yyyy", 33, X)
b = DateAdd("m", 9, a)
c = DateAdd("d", 5, b)
lstDatePart.AddItem ("From " & X & " plus " & "33 years 9 months 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-5 days, 9 months, 33 years
a = DateAdd("d", -5, X)
b = DateAdd("m", -9, a)
c = DateAdd("yyyy", -33, b)
lstDatePart.AddItem ("From " & X & " minus " & "5 days, 9 months, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 years 9 months 5 days
a = DateAdd("yyyy", -33, X)
b = DateAdd("m", -9, a)
c = DateAdd("d", -5, b)
lstDatePart.AddItem ("From " & X & " minus " & "33 years 9 months 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'15 days, 9 months, 33 years
a = DateAdd("d", 15, X)
b = DateAdd("m", 9, a)
c = DateAdd("yyyy", 33, b)
lstDatePart.AddItem ("From " & X & " plus " & "15 days, 9 months, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 years 9 months 15 days
a = DateAdd("yyyy", 33, X)
b = DateAdd("m", 9, a)
c = DateAdd("d", 15, b)
lstDatePart.AddItem ("From " & X & " plus " & "33 years 9 months 15 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-15 days, 9 months, 33 years
a = DateAdd("d", -15, X)
b = DateAdd("m", -9, a)
c = DateAdd("yyyy", -33, b)
lstDatePart.AddItem ("From " & X & " minus " & "15 days, 9 months, 33 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 years 9 months 15 days
a = DateAdd("yyyy", -33, X)
b = DateAdd("m", -9, a)
c = DateAdd("d", -15, b)
lstDatePart.AddItem ("From " & X & " minus " & "33 years 9 months 15 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'5 days, 9 months, 34 years
a = DateAdd("d", 5, X)
b = DateAdd("m", 9, a)
c = DateAdd("yyyy", 34, b)
lstDatePart.AddItem ("From " & X & " plus " & "5 days, 9 months, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 years 9 months 5 days
a = DateAdd("yyyy", 34, X)
b = DateAdd("m", 9, a)
c = DateAdd("d", 5, b)
lstDatePart.AddItem ("From " & X & " plus " & "34 years 9 months 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-5 days, 9 months, 34 years
a = DateAdd("d", -5, X)
b = DateAdd("m", -9, a)
c = DateAdd("yyyy", -34, b)
lstDatePart.AddItem ("From " & X & " minus " & "5 days, 9 months, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 years 9 months 5 days
a = DateAdd("yyyy", -34, X)
b = DateAdd("m", -9, a)
c = DateAdd("d", -5, b)
lstDatePart.AddItem ("From " & X & " minus " & "34 years 9 months 5 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'15 days, 9 months, 34 years
a = DateAdd("d", 15, X)
b = DateAdd("m", 9, a)
c = DateAdd("yyyy", 34, b)
lstDatePart.AddItem ("From " & X & " plus " & "15 days, 9 months, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 years 9 months 15 days
a = DateAdd("yyyy", 34, X)
b = DateAdd("m", 9, a)
c = DateAdd("d", 15, b)
lstDatePart.AddItem ("From " & X & " plus " & "34 years 9 months 15 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-15 days, 9 months, 34 years
a = DateAdd("d", -15, X)
b = DateAdd("m", -9, a)
c = DateAdd("yyyy", -34, b)
lstDatePart.AddItem ("From " & X & " minus " & "15 days, 9 months, 34 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 years 9 months 15 days
a = DateAdd("yyyy", -34, X)
b = DateAdd("m", -9, a)
c = DateAdd("d", -15, b)
lstDatePart.AddItem ("From " & X & " minus " & "34 years 9 months 15 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
End Sub
Sub DatePart59Years()
Dim a As Date
Dim b As Date
Dim c As Date
Dim d As Date
Dim X
Dim i
X = txtStartDate.Text
'33 days, 59 years
a = DateAdd("d", 33, X)
b = DateAdd("yyyy", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "33 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 33 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("d", 33, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 33 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 days, 59 years
a = DateAdd("d", -33, X)
b = DateAdd("yyyy", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "33 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 33 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("d", -33, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 33 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'133 days, 59 years
a = DateAdd("d", 133, X)
b = DateAdd("yyyy", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "133 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 133 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("d", 133, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 133 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-133 days, 59 years
a = DateAdd("d", -133, X)
b = DateAdd("yyyy", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "133 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 133 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("d", -133, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 133 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 days, 59 years
a = DateAdd("d", 34, X)
b = DateAdd("yyyy", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "34 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 34 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("d", 34, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 34 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 days, 59 years
a = DateAdd("d", -34, X)
b = DateAdd("yyyy", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "34 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 34 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("d", -34, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 34 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'134 days, 59 years
a = DateAdd("d", 134, X)
b = DateAdd("yyyy", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "134 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 134 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("d", 134, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 134 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-134 days, 59 years
a = DateAdd("d", -134, X)
b = DateAdd("yyyy", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "134 days, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 134 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("d", -134, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 134 days is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 3 weeks, 59 years
a = DateAdd("d", 3, X)
b = DateAdd("ww", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 weeks 3 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 weeks 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 weeks, 59 years
a = DateAdd("d", -3, X)
b = DateAdd("ww", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 weeks 3 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 weeks 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 days, 3 weeks, 59 years
a = DateAdd("d", 4, X)
b = DateAdd("ww", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "4 days, 3 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 weeks 4 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("ww", 3, a)
c = DateAdd("d", 4, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 weeks 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 days, 3 weeks, 59 years
a = DateAdd("d", -4, X)
b = DateAdd("ww", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "4 days, 3 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 weeks 4 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("ww", -3, a)
c = DateAdd("d", -4, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 weeks 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'33 weeks, 59 years
a = DateAdd("ww", 33, X)
b = DateAdd("yyyy", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "33 weeks, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 33 weeks
a = DateAdd("yyyy", 59, X)
b = DateAdd("ww", 33, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 33 weeks is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-33 weeks, 59 years
a = DateAdd("ww", -33, X)
b = DateAdd("yyyy", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "33 weeks, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 33 weeks
a = DateAdd("yyyy", -59, X)
b = DateAdd("ww", -33, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 33 weeks is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'34 weeks, 59 years
a = DateAdd("ww", 34, X)
b = DateAdd("yyyy", 59, a)
lstDatePart.AddItem ("From " & X & " plus " & "34 weeks, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 34 weeks
a = DateAdd("yyyy", 59, X)
b = DateAdd("ww", 34, a)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 34 weeks is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-34 weeks, 59 years
a = DateAdd("ww", -34, X)
b = DateAdd("yyyy", -59, a)
lstDatePart.AddItem ("From " & X & " minus " & "34 weeks, 59 years is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 34 weeks
a = DateAdd("yyyy", -59, X)
b = DateAdd("ww", -34, a)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 34 weeks is: " & b)
For i = 0 To lstSecondary.ListCount - 1
If b = lstSecondary.List(i) Then
lstMatches.AddItem (b)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'1 day, 33 weeks, 59 years
a = DateAdd("d", 1, X)
b = DateAdd("ww", 33, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "1 days, 33 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 33 weeks 1 day
a = DateAdd("yyyy", 59, X)
b = DateAdd("ww", 33, a)
c = DateAdd("d", 1, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 33 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-1 day, 33 weeks, 59 years
a = DateAdd("d", -1, X)
b = DateAdd("ww", -33, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "1 days, 33 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 33 weeks 1 day
a = DateAdd("yyyy", -59, X)
b = DateAdd("ww", -33, a)
c = DateAdd("d", -1, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 33 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'1 day, 34 weeks, 59 years
a = DateAdd("d", 1, X)
b = DateAdd("ww", 34, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "1 days, 34 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 34 weeks 1 day
a = DateAdd("yyyy", 59, X)
b = DateAdd("ww", 34, a)
c = DateAdd("d", 1, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 34 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-1 day, 34 weeks, 59 years
a = DateAdd("d", -1, X)
b = DateAdd("ww", -34, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "1 days, 34 weeks, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 34 weeks 1 day
a = DateAdd("yyyy", -59, X)
b = DateAdd("ww", -34, a)
c = DateAdd("d", -1, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 34 weeks 1 day is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 weeks, 3 months, 59 years
a = DateAdd("ww", 3, X)
b = DateAdd("m", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 weeks, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 months 3 weeks
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 3, a)
c = DateAdd("ww", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 months 3 weeks years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 weeks, 3 months, 59 years
a = DateAdd("ww", -3, X)
b = DateAdd("m", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 weeks, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 months 3 weeks
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -3, a)
c = DateAdd("ww", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 months 3 weeks years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 weeks, 3 months, 59 years
a = DateAdd("ww", 4, X)
b = DateAdd("m", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "4 weeks, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 months 4 weeks
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 3, a)
c = DateAdd("ww", 4, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 months 4 weeks is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 weeks, 3 months, 59 years
a = DateAdd("ww", -4, X)
b = DateAdd("m", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "4 weeks, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 months 4 weeks
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -3, a)
c = DateAdd("ww", -4, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 months 4 weeks is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 3 months, 59 years
a = DateAdd("d", 3, X)
b = DateAdd("m", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 months 3 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 3, a)
c = DateAdd("d", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 months 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 3 months, 59 years
a = DateAdd("d", -3, X)
b = DateAdd("m", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 months 3 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -3, a)
c = DateAdd("d", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 months 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'4 days, 3 months, 59 years
a = DateAdd("d", 4, X)
b = DateAdd("m", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "4 days, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 months 4 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 3, a)
c = DateAdd("d", 4, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 months 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-4 days, 3 months, 59 years
a = DateAdd("d", -4, X)
b = DateAdd("m", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "4 days, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 months 4 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -3, a)
c = DateAdd("d", -4, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 months 4 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'13 days, 3 months, 59 years
a = DateAdd("d", 13, X)
b = DateAdd("m", 3, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "13 days, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 months 13 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 3, a)
c = DateAdd("d", 13, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 months 13 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-13 days, 3 months, 59 years
a = DateAdd("d", -13, X)
b = DateAdd("m", -3, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "13 days, 3 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 months 13 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -3, a)
c = DateAdd("d", -13, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 months 13 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 weeks, 4 months, 59 years
a = DateAdd("ww", 3, X)
b = DateAdd("m", 4, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 weeks, 4 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 4 months 3 weeks
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 4, a)
c = DateAdd("ww", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 4 months 3 weeks years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 weeks, 4 months, 59 years
a = DateAdd("ww", -3, X)
b = DateAdd("m", -4, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 weeks, 4 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 4 months 3 weeks
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -4, a)
c = DateAdd("ww", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 4 months 3 weeks years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'3 days, 4 months, 59 years
a = DateAdd("d", 3, X)
b = DateAdd("m", 4, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "3 days, 4 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 4 months 3 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 4, a)
c = DateAdd("d", 3, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 4 months 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-3 days, 4 months, 59 years
a = DateAdd("d", -3, X)
b = DateAdd("m", -4, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "3 days, 4 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 4 months 3 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -4, a)
c = DateAdd("d", -3, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 4 months 3 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'13 days, 4 months, 59 years
a = DateAdd("d", 13, X)
b = DateAdd("m", 4, a)
c = DateAdd("yyyy", 59, b)
lstDatePart.AddItem ("From " & X & " plus " & "13 days, 4 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 4 months 13 days
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 4, a)
c = DateAdd("d", 13, b)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 4 months 13 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-13 days, 4 months, 59 years
a = DateAdd("d", -13, X)
b = DateAdd("m", -4, a)
c = DateAdd("yyyy", -59, b)
lstDatePart.AddItem ("From " & X & " minus " & "13 days, 4 months, 59 years is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 4 months 13 days
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -4, a)
c = DateAdd("d", -13, b)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 4 months 13 days is: " & c)
For i = 0 To lstSecondary.ListCount - 1
If c = lstSecondary.List(i) Then
lstMatches.AddItem (c)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'1 days, 3 weeks, 3 months, 59 years
a = DateAdd("d", 1, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 3, b)
d = DateAdd("yyyy", 59, c)
lstDatePart.AddItem ("From " & X & " plus " & "1 day, 3 weeks, 3 months, 59 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 3 months 3 weeks 1 day
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 3, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 1, c)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 3 months 3 weeks 1 day is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-1 days, 3 weeks, 3 months, 59 years
a = DateAdd("d", -1, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -3, b)
d = DateAdd("yyyy", -59, c)
lstDatePart.AddItem ("From " & X & " minus " & "1 day, 3 weeks, 3 months, 59 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 3 months 3 weeks 1 day
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -3, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -1, c)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 3 months 3 weeks 1 day is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'1 days, 3 weeks, 4 months, 59 years
a = DateAdd("d", 1, X)
b = DateAdd("ww", 3, a)
c = DateAdd("m", 4, b)
d = DateAdd("yyyy", 59, c)
lstDatePart.AddItem ("From " & X & " plus " & "1 day, 3 weeks, 4 months, 59 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'59 years 4 months 3 weeks 1 day
a = DateAdd("yyyy", 59, X)
b = DateAdd("m", 4, a)
c = DateAdd("ww", 3, b)
d = DateAdd("d", 1, c)
lstDatePart.AddItem ("From " & X & " plus " & "59 years 4 months 3 weeks 1 day is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-1 days, 3 weeks, 4 months, 59 years
a = DateAdd("d", -1, X)
b = DateAdd("ww", -3, a)
c = DateAdd("m", -4, b)
d = DateAdd("yyyy", -59, c)
lstDatePart.AddItem ("From " & X & " minus " & "1 day, 3 weeks, 4 months, 59 years is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
'-59 years 4 months 3 weeks 1 day
a = DateAdd("yyyy", -59, X)
b = DateAdd("m", -4, a)
c = DateAdd("ww", -3, b)
d = DateAdd("d", -1, c)
lstDatePart.AddItem ("From " & X & " minus " & "59 years 4 months 3 weeks 1 day is: " & d)
For i = 0 To lstSecondary.ListCount - 1
If d = lstSecondary.List(i) Then
lstMatches.AddItem (d)
lstDatePart.AddItem (" ^^^^^ ")
lstDatePart.AddItem (" ^^^^^ ")
Else
End If
Next i
End Sub
Private Sub cmdDays_Click()
CmdDaysAll
End Sub
Sub CmdDaysAll()
Dim Uneven1
Dim Uneven2
Dim d1
Dim d2
d1 = txtStartDate.Text
d2 = txtDiff.Text
txtDays.Text = DateDiff("d", d1, d2)
txtWeeks.Text = 0
txtMonths.Text = 0
txtYears.Text = 0
THAR
SecondariesMatch
End Sub
Sub THAR()
Dim d1
Dim d2
Dim dd
Dim DaysBack
Dim i
Dim X As String
lstMatches.Clear
' txtMasterDiff feature disabled 22 March 2011
'txtMasterDiff.Text = ""
d1 = txtStartDate.Text
d2 = txtDiff.Text
dd = DateDiff("d", d1, d2)
txtMid.Text = dd / 2
X = txtMid.Text
For i = 0 To lstDays.ListCount - 1
If X = lstDays.List(i) Then
lstMatches.AddItem (X)
Else
End If
Next i
txtDaysDiff.Text = DateDiff("d", txtStartDate.Text, txtDiff.Text)
X = DateDiff("d", txtStartDate.Text, txtDiff.Text)
For i = 0 To lstDays.ListCount - 1
If X = lstDays.List(i) Then lstMatches.AddItem (X)
Next i
If chkOnly2Nov65.Value = False Then ' 23 July 2011
' THAR (3/4/59 + midpoint )
txtTHAR34mid.Text = DateAdd("d", txtMid.Text, #3/4/1959#)
X = DateAdd("d", txtMid.Text, #3/4/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' Days from 3/4/1959
txtDaysFrom341959.Text = DateAdd("d", dd, #3/4/1959#)
X = DateAdd("d", dd, #3/4/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' THAR (3/3/59 + )
txtTHARmid.Text = DateAdd("d", txtMid.Text, #3/3/1959#)
X = DateAdd("d", txtMid.Text, #3/3/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' Days from 3/3/1959
txtDaysFrom331959.Text = DateAdd("d", dd, #3/3/1959#)
X = DateAdd("d", dd, #3/3/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' Phoebe (7/16/63 + )
txtPCmid.Text = DateAdd("d", txtMid.Text, #7/16/1963#)
X = DateAdd("d", txtMid.Text, #7/16/1963#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' Days from 7/16/1963
txtDaysFrom7161963.Text = DateAdd("d", dd, #7/16/1963#)
X = DateAdd("d", dd, #7/16/1963#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' KWB ( 2 Nov 65 + midpoint )
txtKWBmid.Text = DateAdd("d", txtMid.Text, #11/2/1965#)
X = DateAdd("d", txtMid.Text, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' Days from 2 Nov 65
txtDaysFrom11265.Text = DateAdd("d", dd, #11/2/1965#)
X = DateAdd("d", dd, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
Else ' 23 July 2011
' KWB ( 2 Nov 65 + midpoint )
txtKWBmid.Text = DateAdd("d", txtMid.Text, #11/2/1965#)
X = DateAdd("d", txtMid.Text, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
' Days from 2 Nov 65
txtDaysFrom11265.Text = DateAdd("d", dd, #11/2/1965#)
X = DateAdd("d", dd, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
End If ' 23 July 2011
DaysBack = dd - dd * 2
txtBack.Text = DateAdd("d", DaysBack, txtStartDate)
X = DateAdd("d", DaysBack, txtStartDate)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
Next i
Dim MidRev As Date
txtMidDate.Text = DateAdd("d", txtMid.Text, txtStartDate)
X = DateAdd("d", txtMid.Text, txtStartDate)
MidRev = X
MidRev = MidRev + 1
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then
lstMatches.AddItem (X)
Else: End If
If MidRev = lstSecondary.List(i) Then lstMatches.AddItem (MidRev & "MidRev")
Next i
'ListDayOfWeek
End Sub
Sub SecondariesMatch()
Dim d1
Dim d2
Dim dd
Dim dRev
Dim i
Dim DaysBack
Dim X As String
lstMatches.Clear
d1 = txtStartDate.Text
d2 = txtDiff.Text
dd = DateDiff("d", d1, d2)
If chkBackFwd.Value = True Then
dRev = txtBackFwd.Text * 2
dRev = txtBackFwd.Text - dRev
txtDaysBack.Text = DateAdd("d", dRev, lstSecondary.Text)
For i = 0 To lstSecondary.ListCount - 1
If txtDaysBack.Text = lstSecondary.List(i) Then lstMatches.AddItem (txtDaysBack.Text)
Next i
txtDaysFwd.Text = DateAdd("d", txtBackFwd.Text, lstSecondary.Text)
For i = 0 To lstSecondary.ListCount - 1
If txtDaysFwd.Text = lstSecondary.List(i) Then lstMatches.AddItem (txtDaysFwd.Text)
Next i
Exit Sub
Else
End If
txtMid.Text = dd / 2
X = txtMid.Text
For i = 0 To lstDays.ListCount - 1
If X = lstDays.List(i) Then lstMatches.AddItem (X)
Next i
txtDaysDiff.Text = DateDiff("d", txtStartDate.Text, txtDiff.Text)
X = DateDiff("d", txtStartDate.Text, txtDiff.Text)
For i = 0 To lstDays.ListCount - 1
If X = lstDays.List(i) Then lstMatches.AddItem (X)
Next i
If chkOnly2Nov65.Value = False Then ' 23 July 2011
' THAR (3/4/59 + )
txtTHAR34mid.Text = DateAdd("d", txtMid.Text, #3/4/1959#)
X = DateAdd("d", txtMid.Text, #3/4/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' Days from 3/4/1959
txtDaysFrom341959.Text = DateAdd("d", dd, #3/4/1959#)
X = DateAdd("d", dd, #3/4/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' THAR (3/3/59 + )
txtTHARmid.Text = DateAdd("d", txtMid.Text, #3/3/1959#)
X = DateAdd("d", txtMid.Text, #3/3/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' Days from 3/3/1959
txtDaysFrom331959.Text = DateAdd("d", dd, #3/3/1959#)
X = DateAdd("d", dd, #3/3/1959#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' Phoebe (7/16/63 + )
txtPCmid.Text = DateAdd("d", txtMid.Text, #7/16/1963#)
X = DateAdd("d", txtMid.Text, #7/16/1963#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' Days from 7/16/1963
txtDaysFrom7161963.Text = DateAdd("d", dd, #7/16/1963#)
X = DateAdd("d", dd, #7/16/1963#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' KWB ( 2 Nov 65 + midpoint )
txtKWBmid.Text = DateAdd("d", txtMid.Text, #11/2/1965#)
X = DateAdd("d", txtMid.Text, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' Days from 2 Nov 65
txtDaysFrom11265.Text = DateAdd("d", dd, #11/2/1965#)
X = DateAdd("d", dd, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
Else ' 23 July 2011
' KWB ( 2 Nov 65 + midpoint )
txtKWBmid.Text = DateAdd("d", txtMid.Text, #11/2/1965#)
X = DateAdd("d", txtMid.Text, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
' Days from 2 Nov 65
txtDaysFrom11265.Text = DateAdd("d", dd, #11/2/1965#)
X = DateAdd("d", dd, #11/2/1965#)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
End If ' 23 July 2011
DaysBack = dd - dd * 2
txtBack.Text = DateAdd("d", DaysBack, txtStartDate)
X = DateAdd("d", DaysBack, txtStartDate)
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
Next i
txtAheadFromEndDate.Text = DateAdd("d", txtDaysDiff.Text, txtDiff)
For i = 0 To lstSecondary.ListCount - 1
If txtAheadFromEndDate.Text = lstSecondary.List(i) Then lstMatches.AddItem (txtAheadFromEndDate.Text)
Next i
Dim MidRev As Date
txtMidDate.Text = DateAdd("d", txtMid.Text, txtStartDate)
X = DateAdd("d", txtMid.Text, txtStartDate)
MidRev = X
MidRev = MidRev + 1
For i = 0 To lstSecondary.ListCount - 1
If X = lstSecondary.List(i) Then lstMatches.AddItem (X)
If MidRev = lstSecondary.List(i) Then lstMatches.AddItem (MidRev & "MidRev")
Next i
Dim Uneven1
Dim Uneven2
Uneven1 = txtMid.Text
Uneven2 = Fix(Uneven1)
If Uneven2 < txtMid.Text Then
'lblUneven.BackColor = vbRed
txtMidDate.BackColor = vbRed
txtPCmid.BackColor = vbRed
txtTHARmid.BackColor = vbRed
txtTHAR34mid.BackColor = vbYellow
txtKWBmid.BackColor = vbRed
Else
'lblUneven.BackColor = vbGreen
txtMidDate.BackColor = vbWhite
txtPCmid.BackColor = vbWhite
txtTHARmid.BackColor = vbWhite
txtTHAR34mid.BackColor = vbWhite
txtKWBmid.BackColor = vbWhite
End If
End Sub
'Sub ListDayOfWeek()
'Dim x
'txtDOW3359.Text = ""
'x = DatePart("w", txtDaysFrom331959.Text)
'txtDOW3359.Text = WeekdayName(x, True)
'txtDOW3459.Text = ""
'x = DatePart("w", txtDaysFrom341959.Text)
'txtDOW3459.Text = WeekdayName(x, True)
'txtDOW716.Text = ""
'x = DatePart("w", txtDaysFrom7161963.Text)
'txtDOW716.Text = WeekdayName(x, True)
'txtDOW716MID.Text = ""
'x = DatePart("w", txtPCmid.Text)
'txtDOW716MID.Text = WeekdayName(x, True)
'txtDOW3359MID.Text = ""
'x = DatePart("w", txtTHARmid.Text)
'txtDOW3359MID.Text = WeekdayName(x, True)
'txtDOW3459MID.Text = ""
'x = DatePart("w", txtTHAR34mid.Text)
'txtDOW3459MID.Text = WeekdayName(x, True)
'txtDOWBackFromStart.Text = ""
'x = DatePart("w", txtBack.Text)
'txtDOWBackFromStart.Text = WeekdayName(x, True)
'txtDOWmidpoint.Text = ""
'x = DatePart("w", txtMidDate.Text)
'txtDOWmidpoint.Text = WeekdayName(x, True)
'txtDOWAheadFromEnd.Text = ""
'x = DatePart("w", txtAheadFromEndDate.Text)
'txtDOWAheadFromEnd.Text = WeekdayName(x, True)
'End Sub
'Private Sub cmdDOW_Click()
'ListDayOfWeek
'End Sub
Private Sub cmdToggleStartEnd_Click()
Dim a
Dim b
a = txtStartDate.Text
b = txtDiff.Text
txtStartDate.Text = b
txtDiff.Text = a
If optStart.Value = False Then
optStart.Value = True
optEnd.Value = False
Else
optStart.Value = False
optEnd.Value = True
End If
End Sub
Private Sub cmdToggleStartEndMaster_Click()
Dim a
Dim b
a = txtStartDateMaster.Text
b = txtDiffMaster.Text
txtStartDateMaster.Text = b
txtDiffMaster.Text = a
If optStartMaster.Value = False Then
optStartMaster.Value = True
optEndMaster.Value = False
Else
optStartMaster.Value = False
optEndMaster.Value = True
End If
End Sub
' THIS MIGHT BE UNUSED CODE
Private Sub lstDays_Click()
txtDiff.Text = DateAdd("d", lstDays.Value, txtStartDate)
X = lstDays.Value * 2
txt2xDays.Text = X & " = " & DateAdd("d", X, txtStartDate)
End Sub
' THIS MIGHT BE UNUSED CODE
Private Sub lstMatrix_Click()
If optEnd.Value = True Then
txtDiff.Text = lstMatrix.Value
THAR
ComboDiff
Else
txtStartDate.Text = lstMatrix.Value
THAR
ComboDiff
End If
End Sub
Private Sub lstSecondary_Click()
If optEnd.Value = True Then
txtDiff.Text = lstSecondary.Value
SecondariesMatch
Else
txtStartDate.Text = lstSecondary.Value
SecondariesMatch
End If
End Sub
Private Sub lstSecondaryMaster_Click()
'If optEnd.Value = True Then
'txtDiff.Text = lstSecondary.Value
'SecondariesMatch
'Else
'txtStartDate.Text = lstSecondary.Value
'SecondariesMatch
'End If
End Sub
Private Sub cmdDateDiff_Click()
Dim StartDate As Date ' Declare variables.
Dim Date2 As Date
Dim IntervalType As String
Dim Number As Integer
Dim d, W, m, Y
If chkDays.Value = True Then
d = "-0" & txtDays.Text
W = "-0" & txtWeeks.Text
m = "-0" & txtMonths.Text
Y = "-0" & txtYears.Text
Else
d = txtDays.Text
W = txtWeeks.Text
m = txtMonths.Text
Y = txtYears.Text
End If
StartDate = txtStartDate.Text
IntervalType = "d" ' "d" specifies days as interval.
Date2 = DateAdd(IntervalType, d, StartDate)
IntervalType = "ww"
Date2 = DateAdd(IntervalType, W, Date2)
IntervalType = "m"
Date2 = DateAdd(IntervalType, m, Date2)
IntervalType = "yyyy"
Date2 = DateAdd(IntervalType, Y, Date2)
txtDiff.Text = Date2
'ComboDiff
End Sub
Private Sub optEnd_Click()
optStart.Value = False
End Sub
Private Sub optFullEnd_Click()
optFullStart.Value = False
End Sub
Private Sub optFullStart_Click()
optFullEnd.Value = False
End Sub
Private Sub optStart_Click()
optEnd.Value = False
End Sub
Sub Primaries()
'lstMatrix.AddItem ("2/6/1911")
'lstMatrix.AddItem ("6/10/1921")
'lstMatrix.AddItem ("4/21/1926")
'lstMatrix.AddItem ("7/13/1940")
'lstMatrix.AddItem ("11/14/1948")
'lstMatrix.AddItem ("3/3/1959")
'lstMatrix.AddItem ("3/4/1959")
'lstMatrix.AddItem ("7/1/1961")
'lstMatrix.AddItem ("7/16/1963")
'lstMatrix.AddItem ("1/29/1964")
'lstMatrix.AddItem ("1/31/1964")
'lstMatrix.AddItem ("2/9/1964")
'lstMatrix.AddItem ("5/9/1965")
'lstMatrix.AddItem ("5/12/1965")
'lstMatrix.AddItem ("9/2/1965")
'lstMatrix.AddItem ("11/11/1966")
'lstMatrix.AddItem ("11/15/1966")
'lstMatrix.AddItem ("5/1/1967")
'lstMatrix.AddItem ("6/19/1968")
'lstMatrix.AddItem ("10/11/1968")
'lstMatrix.AddItem ("12/23/1968")
'lstMatrix.AddItem ("12/24/1968")
'lstMatrix.AddItem ("12/25/1968")
'lstMatrix.AddItem ("5/21/1969")
'lstMatrix.AddItem ("7/20/1969")
'lstMatrix.AddItem ("7/21/1969")
'lstMatrix.AddItem ("10/9/1971")
'lstMatrix.AddItem ("4/10/1972")
'lstMatrix.AddItem ("4/13/1972")
'lstMatrix.AddItem ("12/11/1972")
'lstMatrix.AddItem ("12/14/1972")
'lstMatrix.AddItem ("2/12/1973")
'lstMatrix.AddItem ("5/1/1973")
'lstMatrix.AddItem ("11/2/1975")
'lstMatrix.AddItem ("1/21/1976")
'lstMatrix.AddItem ("2/22/1976")
'lstMatrix.AddItem ("3/3/1976")
'lstMatrix.AddItem ("3/4/1976")
'lstMatrix.AddItem ("6/7/1976")
'lstMatrix.AddItem ("7/2/1976")
'lstMatrix.AddItem ("7/4/1976")
'lstMatrix.AddItem ("11/26/1976")
'lstMatrix.AddItem ("11/28/1976")
'lstMatrix.AddItem ("4/14/1977")
'lstMatrix.AddItem ("7/16/1979")
'lstMatrix.AddItem ("7/21/1979")
'lstMatrix.AddItem ("4/12/1981")
'lstMatrix.AddItem ("4/14/1981")
'lstMatrix.AddItem ("7/16/1981")
'lstMatrix.AddItem ("7/29/1981")
'lstMatrix.AddItem ("4/30/1982")
'lstMatrix.AddItem ("5/1/1982")
'lstMatrix.AddItem ("8/13/1982")
'lstMatrix.AddItem ("6/8/1984")
'lstMatrix.AddItem ("6/25/1986")
'lstMatrix.AddItem ("11/25/1986")
'lstMatrix.AddItem ("3/6/1987")
'lstMatrix.AddItem ("5/13/1987")
'lstMatrix.AddItem ("7/21/1987")
'lstMatrix.AddItem ("3/5/1989")
'lstMatrix.AddItem ("6/8/1996")
'lstMatrix.AddItem ("3/15/1998")
'lstMatrix.AddItem ("3/16/1998")
'lstMatrix.AddItem ("12/7/1998")
'lstMatrix.AddItem ("2/6/2004")
'lstMatrix.AddItem ("6/1/2005")
lstDays.AddItem ("74523") ' postal code Antlers Oklahoma
lstDays.AddItem ("71663")
lstDays.AddItem ("6875")
' 6875 = 3436 + 3439
' From 7/16/1963 ( ) To 12/11/1972 ( ) is 3436 days
' From 7/16/1963 ( ) To 12/14/1972 ( ) is 3439 days
lstDays.AddItem ("12962")
'12962 = 6480 + 6482
'From 7/16/1963 ( another threat sent to me against my brother's wife ) To 4/12/1981 ( date hijacked from me:I was the commander aboard the United States STS-1 Columbia spacecraft as United States Navy Fleet Admiral Thomas Reagan ) is 6480 days
'From 7/16/1963 ( another threat sent to me against my brother's wife ) To 4/14/1981 ( the terrorist attack by Bill Gates-Nazi-Microsoft-NASA-George Bush the cowardly violent criminal to destroy the United States space shuttle Columbia OV 102 and to murder the entire crew of orbiter vehicle Columbia including me because I am the first commander and the United States military commander of the United States space shuttle fleet ) is 6482 days
lstDays.AddItem ("16153")
'16153 = 8076 + 8077
'From 3/3/1959 ( date hijacked from me:my birth date US ) To 4/12/1981 ( date hijacked from me:I was the commander aboard the United States STS-1 Columbia spacecraft as United States Navy Fleet Admiral Thomas Reagan ) is 8076 days
'From 3/4/1959 ( date hijacked from me:my birth date UK ) To 4/14/1981 ( the terrorist attack by Bill Gates-Nazi-Microsoft-NASA-George Bush the cowardly violent criminal to destroy the United States space shuttle Columbia OV 102 and to murder the entire crew of orbiter vehicle Columbia including me because I am the first commander and the United States military commander of the United States space shuttle fleet ) is 8077 days
lstDays.AddItem ("9472") ' 9472 = 4735 + 4737
lstDays.AddItem ("4393") ' 4393 = 2196 + 2197
lstDays.AddItem ("6818") '3359 + 3459
lstDays.AddItem ("3359")
lstDays.AddItem ("6718")
lstDays.AddItem ("6719")
lstDays.AddItem ("3459")
lstDays.AddItem ("6918")
lstDays.AddItem ("6919")
lstDays.AddItem ("5933")
lstDays.AddItem ("11866") ' 5933 + 5933
lstDays.AddItem ("11867") ' 1 + 5933 + 5933
lstDays.AddItem ("5934")
lstDays.AddItem ("11868") ' 5934 + 5934
lstDays.AddItem ("11869") ' 1 + 5934 + 5934
lstDays.AddItem ("13359")
lstDays.AddItem ("13459")
lstDays.AddItem ("15933")
lstDays.AddItem ("15934")
lstDays.AddItem ("14477")
lstDays.AddItem ("28954")
lstDays.AddItem ("41477")
lstDays.AddItem ("16763")
lstDays.AddItem ("33526") '16763 + 16763
lstDays.AddItem ("16781")
End Sub
Sub Secondaries()
lstSecondary.Clear
'lstSecondary.AddItem ("8/31/1870")
'lstSecondary.AddItem ("8/3/1492") ' Columbus departs from Palos de la Frontera to search for America
'lstSecondary.AddItem ("10/12/1492") ' Columbus lands in America
'lstSecondary.AddItem ("2/22/1732") ' George Washington
'lstSecondary.AddItem ("1/14/1741") ' Benedict Arnold
'lstSecondary.AddItem ("8/15/1769") ' Napoleon Bonaparte
'lstSecondary.AddItem ("12/16/1773") ' the Boston Tea Party
'lstSecondary.AddItem ("6/15/1775")
'lstSecondary.AddItem ("7/4/1776")
'lstSecondary.AddItem ("4/30/1789")
'lstSecondary.AddItem ("9/24/1789") ' Judiciary Act created US Marshals source: Bush proc. 6024 9 21 89
'lstSecondary.AddItem ("9/22/1791") ' Michael Faraday
'lstSecondary.AddItem ("12/14/1799")
'lstSecondary.AddItem ("6/14/1801")
'lstSecondary.AddItem ("2/12/1809")
'lstSecondary.AddItem ("6/18/1815")
'lstSecondary.AddItem ("5/10/1838")
'lstSecondary.AddItem ("12/3/1838") ' Cleveland Abbe
'lstSecondary.AddItem ("12/5/1839")
'lstSecondary.AddItem ("2/11/1847") ' Thomas Alva Edison
'lstSecondary.AddItem ("10/2/1851") ' Ferdinand Foch
'lstSecondary.AddItem ("4/12/1861")
'lstSecondary.AddItem ("9/22/1862")
'lstSecondary.AddItem ("4/14/1865")
'lstSecondary.AddItem ("4/15/1865")
'lstSecondary.AddItem ("4/26/1865")
'lstSecondary.AddItem ("12/18/1865")
'lstSecondary.AddItem ("9/21/1866") ' H.G. Wells
'lstSecondary.AddItem ("8/25/1867") ' Michael Faraday - deceased
'lstSecondary.AddItem ("3/22/1868") ' Robert Andrews Millikan
'lstSecondary.AddItem ("10/8/1871")
'lstSecondary.AddItem ("8/26/1873") ' Lee De Forest
'lstSecondary.AddItem ("2/15/1874") 'Shackleton
'lstSecondary.AddItem ("3/5/1874") ' Henry Travers
'lstSecondary.AddItem ("6/25/1876")
'lstSecondary.AddItem ("3/14/1879")
'lstSecondary.AddItem ("1/26/1880") ' Douglas MacArthur
'lstSecondary.AddItem ("10/26/1881")
'lstSecondary.AddItem ("1/30/1882")
'lstSecondary.AddItem ("10/30/1882") ' William Halsey Jr - United States Navy Fleet Admiral
'lstSecondary.AddItem ("3/26/1884") ' Isaac Campbell Kidd
'lstSecondary.AddItem ("5/8/1884")
'lstSecondary.AddItem ("2/24/1885")
'lstSecondary.AddItem ("9/1/1885") ' the fictional date setting of the 1990 film "Back to the Future Part III"
'lstSecondary.AddItem ("11/11/1885")
'lstSecondary.AddItem ("3/19/1886") ' Giuseppe Mari Bellanca
'lstSecondary.AddItem ("10/28/1886")
'lstSecondary.AddItem ("11/23/1887") ' Boris Karloff
'lstSecondary.AddItem ("3/4/1888") ' Knute Rockne
'lstSecondary.AddItem ("5/25/1889") ' Igor Sikorsky
'lstSecondary.AddItem ("11/10/1889") ' Claude Rains
'lstSecondary.AddItem ("10/14/1890")
'lstSecondary.AddItem ("11/25/1890") ' Stanley the impostor
'lstSecondary.AddItem ("6/13/1892") ' Basil Rathbone
'lstSecondary.AddItem ("12/25/1893") ' Robert L. Ripley
'lstSecondary.AddItem ("2/14/1894")
'lstSecondary.AddItem ("7/17/1894")
'lstSecondary.AddItem ("12/8/1894") ' E.C. Segar
'lstSecondary.AddItem ("11/10/1895") ' John Knudsen Northrop
'lstSecondary.AddItem ("12/14/1896")
'lstSecondary.AddItem ("4/29/1899")
'lstSecondary.AddItem ("7/1/1899")
'lstSecondary.AddItem ("8/16/1899") ' Glenn Strange
'lstSecondary.AddItem ("11/11/1899") ' Pat O'Brien
'lstSecondary.AddItem ("1/27/1900")
'lstSecondary.AddItem ("4/26/1900") ' Charles Richter
'lstSecondary.AddItem ("2/1/1901") ' Clark Gable
lstSecondary.AddItem ("5/7/1901") ' Gary Cooper
lstSecondary.AddItem ("12/5/1901") ' Walt Disney
lstSecondary.AddItem ("2/4/1902") ' Charles Lindbergh
lstSecondary.AddItem ("9/24/1902")
lstSecondary.AddItem ("10/17/1902")
lstSecondary.AddItem ("4/19/1903") ' Eliot Ness
lstSecondary.AddItem ("12/17/1903")
lstSecondary.AddItem ("1/18/1904")
lstSecondary.AddItem ("4/22/1904") ' Julius Robert Oppenheimer
lstSecondary.AddItem ("5/6/1904")
lstSecondary.AddItem ("3/6/1905")
lstSecondary.AddItem ("5/16/1905") ' Henry Fonda
lstSecondary.AddItem ("9/18/1905")
lstSecondary.AddItem ("5/11/1906") ' Jacky Cochrane
lstSecondary.AddItem ("1/12/1907") ' Sergei Koroleve
lstSecondary.AddItem ("2/22/1907")
lstSecondary.AddItem ("5/12/1907")
lstSecondary.AddItem ("5/26/1907")
lstSecondary.AddItem ("8/30/1907") ' John William Mauchly
lstSecondary.AddItem ("1/15/1908") ' Edward Teller
lstSecondary.AddItem ("4/2/1908")
lstSecondary.AddItem ("5/20/1908") ' Jimmy Stewart
lstSecondary.AddItem ("6/30/1908")
lstSecondary.AddItem ("9/17/1908") 'first aircraft fatality - Thomas Selfridge passenger of Orville Wright
lstSecondary.AddItem ("4/13/1909") ' Stanislaw Marcin Ulam
'lstSecondary.AddItem ("6/20/1909") ' Errol Flynn
lstSecondary.AddItem ("8/25/1909") ' Michael Rennie
lstSecondary.AddItem ("3/18/1910") ' premiere US film "Frankenstein"
'lstSecondary.AddItem ("10/8/1910") 'Kirk Alyn
lstSecondary.AddItem ("2/6/1911")
lstSecondary.AddItem ("3/25/1911")
lstSecondary.AddItem ("4/16/1911") ' Guy Burgess - spy for the Soviet Union
lstSecondary.AddItem ("8/6/1911")
lstSecondary.AddItem ("11/5/1911")
'lstSecondary.AddItem ("12/21/1911") ' premiere US film "William Tell"
lstSecondary.AddItem ("4/14/1912")
lstSecondary.AddItem ("4/15/1912")
lstSecondary.AddItem ("5/26/1912") ' Jay Silverheels
lstSecondary.AddItem ("6/14/1912") ' premiere US film "A Prisoner of War"
lstSecondary.AddItem ("12/4/1912")
lstSecondary.AddItem ("1/9/1913")
lstSecondary.AddItem ("7/14/1913")
lstSecondary.AddItem ("1/2/1914") ' premiere US film "Prince"
lstSecondary.AddItem ("1/5/1914") ' George Reeves
lstSecondary.AddItem ("3/6/1914") ' George Washington Vanderbilt II - deceased
'lstSecondary.AddItem ("6/11/1914") ' Gerald Mohr
lstSecondary.AddItem ("7/28/1914")
lstSecondary.AddItem ("9/14/1914") ' Clayton Moore
lstSecondary.AddItem ("12/2/1914")
lstSecondary.AddItem ("12/28/1914") ' premiere US film "Cinderella"
'lstSecondary.AddItem ("2/12/1915") ' Lorne Greene
lstSecondary.AddItem ("2/26/1916") ' Jackie Gleason
lstSecondary.AddItem ("5/2/1916") ' USS Oklahoma BB 37 commissioned
lstSecondary.AddItem ("7/30/1916")
lstSecondary.AddItem ("10/17/1916") 'USS Arizona BB 39
'lstSecondary.AddItem ("10/28/1916") ' Cleveland Abbe - deceased
lstSecondary.AddItem ("12/9/1916")
lstSecondary.AddItem ("12/24/1916")
lstSecondary.AddItem ("1/5/1917") ' Jane Wyman
lstSecondary.AddItem ("2/25/1917")
lstSecondary.AddItem ("3/2/1917")
lstSecondary.AddItem ("4/5/1917") ' the eligibility criteria of the United States Purple Heart medal
lstSecondary.AddItem ("4/6/1917")
lstSecondary.AddItem ("5/21/1917")
lstSecondary.AddItem ("5/29/1917")
lstSecondary.AddItem ("4/21/1918")
lstSecondary.AddItem ("10/14/1918") ' premiere US film "Sensational Capture of Bagdad"
lstSecondary.AddItem ("11/11/1918")
lstSecondary.AddItem ("1/13/1919") ' Robert Stack
lstSecondary.AddItem ("1/25/1919") ' Edwin Newman
lstSecondary.AddItem ("4/9/1919") ' John Presper Eckert Jr
lstSecondary.AddItem ("10/5/1919")
lstSecondary.AddItem ("10/26/1919") ' Mohammad Reza Shah Pahlavi - the shah of Iran
lstSecondary.AddItem ("1/20/1920")
lstSecondary.AddItem ("3/3/1920")
lstSecondary.AddItem ("4/2/1920")
lstSecondary.AddItem ("7/11/1920") ' Yul Brynner
lstSecondary.AddItem ("11/25/1920")
lstSecondary.AddItem ("12/14/1920") ' George Gipp - deceased
lstSecondary.AddItem ("12/30/1920") ' Jack Lord
lstSecondary.AddItem ("4/10/1921")
lstSecondary.AddItem ("6/10/1921")
lstSecondary.AddItem ("7/6/1921")
lstSecondary.AddItem ("10/2/1921") ' Scott Crossfield
lstSecondary.AddItem ("1/31/1922") ' William Sylvester
lstSecondary.AddItem ("12/9/1922") ' Redd Foxx
lstSecondary.AddItem ("2/13/1923") ' Chuck Yeager
lstSecondary.AddItem ("2/28/1923")
lstSecondary.AddItem ("5/26/1923")
lstSecondary.AddItem ("10/4/1923")
lstSecondary.AddItem ("11/18/1923")
lstSecondary.AddItem ("12/23/1923") ' James Stockdale - United States Navy Vice Admiral - United States Navy Medal of Honor
lstSecondary.AddItem ("4/3/1924") ' Marlon Brandon ' Doris Day
lstSecondary.AddItem ("6/2/1924") ' film Sea Hawk
lstSecondary.AddItem ("6/20/1924")
lstSecondary.AddItem ("7/21/1924") ' Don Knotts
lstSecondary.AddItem ("10/1/1924")
lstSecondary.AddItem ("12/25/1924") ' Rod Serling
lstSecondary.AddItem ("2/17/1925") ' Hal Holbrook
lstSecondary.AddItem ("11/6/1925") ' premiere US film "Cowboy Courage"
lstSecondary.AddItem ("4/21/1926")
lstSecondary.AddItem ("5/8/1926") ' Don Rickles
lstSecondary.AddItem ("6/1/1926") ' Andy Griffith
lstSecondary.AddItem ("8/8/1926") ' Richard Anderson - "Oscar Goldman"
lstSecondary.AddItem ("11/30/1926")
lstSecondary.AddItem ("12/23/1926") ' premiere US film "Tell It to the Marines"
lstSecondary.AddItem ("7/6/1927")
lstSecondary.AddItem ("9/16/1927")
lstSecondary.AddItem ("3/25/1928")
lstSecondary.AddItem ("6/5/1928") ' Robert Lansing
lstSecondary.AddItem ("7/13/1928") ' Bob Crane
lstSecondary.AddItem ("12/10/1928") ' John Colicos
lstSecondary.AddItem ("1/15/1929")
lstSecondary.AddItem ("3/1/1929")
lstSecondary.AddItem ("8/17/1929") ' Gary Powers
lstSecondary.AddItem ("1/11/1930") ' Rod Taylor
lstSecondary.AddItem ("1/20/1930")
lstSecondary.AddItem ("1/30/1930") ' Gene Hackman
lstSecondary.AddItem ("4/21/1930")
lstSecondary.AddItem ("5/14/1930") ' the United States Federal Bureau of Prisons was created
lstSecondary.AddItem ("5/31/1930")
lstSecondary.AddItem ("7/10/1930") ' premiere US film "The Oklahoma Sheriff"
lstSecondary.AddItem ("8/5/1930")
lstSecondary.AddItem ("8/14/1930")
lstSecondary.AddItem ("8/25/1930")
lstSecondary.AddItem ("3/22/1931")
lstSecondary.AddItem ("3/26/1931") 'Leonard Nimoy
lstSecondary.AddItem ("3/27/1931") 'David Janssen
lstSecondary.AddItem ("3/31/1931") ' Knute Rockne - deceased
lstSecondary.AddItem ("9/21/1931") ' Larry Hagman
lstSecondary.AddItem ("9/30/1931") ' Angie Dickinson
lstSecondary.AddItem ("10/18/1931") ' Thomas Alva Edison - deceased
lstSecondary.AddItem ("11/21/1931") ' premiere US film "Frankenstein"
lstSecondary.AddItem ("3/25/1932") ' premiere US film "Tarzan the Ape Man"
lstSecondary.AddItem ("4/4/1932")
lstSecondary.AddItem ("11/10/1932")
lstSecondary.AddItem ("3/2/1933") ' King Kong Variety article and wikipedia
lstSecondary.AddItem ("9/26/1933")
lstSecondary.AddItem ("11/13/1933") ' premiere US film "The Invisible Man"
lstSecondary.AddItem ("3/9/1934")
lstSecondary.AddItem ("1/8/1935")
lstSecondary.AddItem ("4/10/1936") ' premiere US film "The Moon's Our Home"
lstSecondary.AddItem ("5/27/1936") ' Louis Gossett Jr
lstSecondary.AddItem ("5/30/1936") ' Keir Dullea
lstSecondary.AddItem ("8/29/1936") ' John McCain
lstSecondary.AddItem ("2/21/1937") ' Gary Lockwood "2001: A Space Odyssey"
lstSecondary.AddItem ("4/20/1937")
lstSecondary.AddItem ("4/28/1937")
lstSecondary.AddItem ("5/6/1937")
lstSecondary.AddItem ("9/11/1937") ' Robert Crippen
lstSecondary.AddItem ("10/2/1937") ' premiere US film "Love Is on the Air"
lstSecondary.AddItem ("12/4/1937")
lstSecondary.AddItem ("12/8/1937") ' James MacArthur "Danno"
lstSecondary.AddItem ("12/21/1937") ' premiere US film "Snow White and the Seven Dwarfs"
lstSecondary.AddItem ("2/12/1938") ' premiere US film "The Lone Ranger"
lstSecondary.AddItem ("2/24/1938")
lstSecondary.AddItem ("3/5/1938") ' James Wainwright "Jigsaw"
lstSecondary.AddItem ("8/5/1938") ' premiere US film "The Marines Come Thru"
lstSecondary.AddItem ("10/22/1938")
lstSecondary.AddItem ("1/9/1939") ' Susannah York
lstSecondary.AddItem ("3/3/1939") ' premiere US film "The Oklahoma Kid"
lstSecondary.AddItem ("4/23/1939") ' Lee Majors
lstSecondary.AddItem ("5/22/1939")
lstSecondary.AddItem ("8/12/1939") ' premiere US film "Torchy Blane... Playing with Dynamite"
lstSecondary.AddItem ("9/1/1939") ' premiere US film "The Adventures of Sherlock Holmes"
lstSecondary.AddItem ("9/12/1939") ' premiere US film "Sky Patrol"
lstSecondary.AddItem ("10/18/1939")
lstSecondary.AddItem ("12/15/1939")
lstSecondary.AddItem ("1/24/1940") ' premiere US film "The Grapes of Wrath"
lstSecondary.AddItem ("1/27/1940") ' James Cromwell
lstSecondary.AddItem ("1/29/1940")
lstSecondary.AddItem ("2/1/1940")
lstSecondary.AddItem ("3/10/1940") ' Chuck Norris
lstSecondary.AddItem ("7/1/1940") ' film The Sea Hawk
lstSecondary.AddItem ("7/13/1940") ' Patrick Stewart
lstSecondary.AddItem ("7/18/1940")
lstSecondary.AddItem ("8/3/1940")
lstSecondary.AddItem ("10/4/1940") ' premiere US film "Knute Rockne All American"
lstSecondary.AddItem ("10/16/1940")
lstSecondary.AddItem ("12/5/1940") ' premiere US film "The Thief of Bagdad"
lstSecondary.AddItem ("12/13/1940") ' premiere US film "Santa Fe Trail"
lstSecondary.AddItem ("1/4/1941") ' Maureen Reagan
lstSecondary.AddItem ("4/9/1941") ' the United States Navy battleship USS North Carolina BB 55 commissioned into United States Navy battle force fleet service
lstSecondary.AddItem ("7/2/1941") ' premiere US film "Sergeant York"
lstSecondary.AddItem ("9/26/1941") ' premiere US film "Superman"
lstSecondary.AddItem ("12/7/1941")
lstSecondary.AddItem ("1/25/1942") ' premiere US film "Call Out the Marines"
lstSecondary.AddItem ("3/27/1942") ' Michael York
lstSecondary.AddItem ("4/18/1942")
lstSecondary.AddItem ("6/7/1942")
lstSecondary.AddItem ("8/11/1942") ' premiere US film "Wake Island"
lstSecondary.AddItem ("9/18/1942") ' premiere US film "Sherlock Holmes and the Voice of Terror"
lstSecondary.AddItem ("9/26/1942")
lstSecondary.AddItem ("10/8/1942")
lstSecondary.AddItem ("11/27/1942")
lstSecondary.AddItem ("11/29/1942") ' Ann Dunham
lstSecondary.AddItem ("12/26/1942") ' premiere US film "Marines in the Making"
lstSecondary.AddItem ("1/4/1943") ' premiere US film "Sherlock Holmes and the Secret Weapon"
lstSecondary.AddItem ("4/9/1943") ' premiere US film "King of the Cowboys"
lstSecondary.AddItem ("4/18/1943")
lstSecondary.AddItem ("5/23/1943") ' USS New Jersey
lstSecondary.AddItem ("8/17/1943") ' Robert De Niro
lstSecondary.AddItem ("9/6/1943") ' Roger Waters
lstSecondary.AddItem ("12/6/1943") ' premiere US film "In Old Oklahoma"
lstSecondary.AddItem ("12/8/1943")
lstSecondary.AddItem ("12/11/1943") ' John Forbes Kerry
lstSecondary.AddItem ("1/14/1944") ' Thomas R. Norris - United States Navy Medal of Honor
lstSecondary.AddItem ("2/22/1944") ' Tucker Smallwood
lstSecondary.AddItem ("2/23/1944") ' premiere US film "The Purple Heart"
lstSecondary.AddItem ("3/24/1944")
lstSecondary.AddItem ("4/3/1944") ' premiere United Kingdom film "In Old Oklahoma"
lstSecondary.AddItem ("6/6/1944")
lstSecondary.AddItem ("6/11/1944") ' USS Missouri
lstSecondary.AddItem ("12/16/1944")
lstSecondary.AddItem ("12/22/1944") ' also USS Oklahoma City
lstSecondary.AddItem ("4/12/1945")
lstSecondary.AddItem ("5/21/1945")
lstSecondary.AddItem ("7/16/1945")
lstSecondary.AddItem ("7/24/1945") ' Linda Harrison
lstSecondary.AddItem ("7/30/1945") ' USS Indianapolis sunk
lstSecondary.AddItem ("8/6/1945")
lstSecondary.AddItem ("8/9/1945")
lstSecondary.AddItem ("10/30/1945")
lstSecondary.AddItem ("11/7/1945")
lstSecondary.AddItem ("12/19/1945") ' premiere US film "They Were Expendable"
lstSecondary.AddItem ("1/19/1946")
lstSecondary.AddItem ("2/18/1946") ' premiere United Kingdom film "They Were Expendable"
lstSecondary.AddItem ("2/21/1946") ' Alan Rickman
lstSecondary.AddItem ("4/9/1946") ' Joseph Wayne Burgess - the foster father of Kerry Wayne Burgess
lstSecondary.AddItem ("7/1/1946")
lstSecondary.AddItem ("7/6/1946")
lstSecondary.AddItem ("7/22/1946")
lstSecondary.AddItem ("7/25/1946")
lstSecondary.AddItem ("8/13/1946") ' H.G. Wells - deceased
lstSecondary.AddItem ("8/19/1946")
lstSecondary.AddItem ("10/18/1946") ' premiere US film "Home in Oklahoma"
lstSecondary.AddItem ("12/18/1946") ' Steven Spielberg
lstSecondary.AddItem ("12/20/1946") ' premiere US film "It's a Wonderful Life"
lstSecondary.AddItem ("2/24/1947")
lstSecondary.AddItem ("3/12/1947") ' Tom Clancy
lstSecondary.AddItem ("5/2/1947") ' premiere US film "Miracle on 34th Street"
lstSecondary.AddItem ("6/24/1947")
lstSecondary.AddItem ("7/9/1947")
lstSecondary.AddItem ("7/26/1947")
lstSecondary.AddItem ("7/30/1947")
lstSecondary.AddItem ("9/21/1947") ' Stephen King
lstSecondary.AddItem ("10/14/1947") ' Chuck Yeager - sound barrier
lstSecondary.AddItem ("10/18/1947")
lstSecondary.AddItem ("10/24/1947")
lstSecondary.AddItem ("10/26/1947")
lstSecondary.AddItem ("11/3/1947") ' premiere US film "The Fugitive"
lstSecondary.AddItem ("12/24/1947") ' premiere US film "Fight of the Wild Stallions"
lstSecondary.AddItem ("1/5/1948") ' Superman film serial
lstSecondary.AddItem ("3/9/1948") ' premiere US film "Fort Apache"
lstSecondary.AddItem ("3/14/1948") ' Thomas Allen Coburn
lstSecondary.AddItem ("3/31/1948")
lstSecondary.AddItem ("9/2/1948")
lstSecondary.AddItem ("9/24/1948")
lstSecondary.AddItem ("10/2/1948") ' Avery Brooks
lstSecondary.AddItem ("10/17/1948")
lstSecondary.AddItem ("11/14/1948")
lstSecondary.AddItem ("1/24/1949") ' premiere United Kingdom TV movie "The Time Machine"
lstSecondary.AddItem ("2/2/1949")
lstSecondary.AddItem ("3/28/1949")
lstSecondary.AddItem ("5/8/1949")
lstSecondary.AddItem ("6/22/1949") ' Lindsey Wagner Meryl Streep
lstSecondary.AddItem ("7/13/1949")
lstSecondary.AddItem ("8/29/1949")
lstSecondary.AddItem ("9/15/1949")
lstSecondary.AddItem ("10/8/1949")
lstSecondary.AddItem ("12/14/1949") ' premiere US film "Sands of Iwo Jima"
lstSecondary.AddItem ("1/23/1950")
lstSecondary.AddItem ("2/15/1950") ' premiere US film "Cinderella"
lstSecondary.AddItem ("6/24/1950")
lstSecondary.AddItem ("7/12/1950") ' premiere US film "Broken Arrow" & premiere US film "Winchester 73"
lstSecondary.AddItem ("8/15/1950") ' my father's sister and my aunt Princess Anne the United Kingdom Princess Royal
lstSecondary.AddItem ("8/29/1950") ' David George Reichert - the scurviest Microsoft whore from King County Washington State
lstSecondary.AddItem ("10/28/1950")
lstSecondary.AddItem ("12/25/1950") ' Karl Rove
lstSecondary.AddItem ("1/12/1951")
lstSecondary.AddItem ("3/9/1951")
lstSecondary.AddItem ("3/16/1951") ' premiere US film "The Red Badge of Courage"
lstSecondary.AddItem ("3/17/1951")
lstSecondary.AddItem ("4/5/1951") ' premiere US film "Bedtime for Bonzo"
lstSecondary.AddItem ("4/6/1951")
lstSecondary.AddItem ("4/10/1951") ' Steven Seagal
lstSecondary.AddItem ("5/26/1951") ' Sally Ride
lstSecondary.AddItem ("7/7/1951") ' premiere US film "Queen for a Day"
lstSecondary.AddItem ("7/12/1951") ' Jamey Sheridan "Randall Flagg"
lstSecondary.AddItem ("9/2/1951")
lstSecondary.AddItem ("9/18/1951")
lstSecondary.AddItem ("9/25/1951")
lstSecondary.AddItem ("10/5/1951")
lstSecondary.AddItem ("10/15/1951")
lstSecondary.AddItem ("11/12/1951") ' premiere US film "Purple Heart Diary"
lstSecondary.AddItem ("12/16/1951")
lstSecondary.AddItem ("4/28/1952")
lstSecondary.AddItem ("5/15/1952") ' premiere US film "Red Planet Mars"
lstSecondary.AddItem ("5/30/1952") ' premiere US film "Apache Country"
lstSecondary.AddItem ("8/16/1952") ' Reginald VelJohnson
lstSecondary.AddItem ("8/19/1952") ' Jonathan Frakes
lstSecondary.AddItem ("9/19/1952") ' premiere US TV "Adventures of Superman"
lstSecondary.AddItem ("9/23/1952") ' the Checkers televised speech by Richard Nixon
lstSecondary.AddItem ("9/25/1952")
lstSecondary.AddItem ("10/26/1952") ' premiere US TV series "Victory at Sea"::series premiere episode "Design for War"
lstSecondary.AddItem ("11/1/1952")
lstSecondary.AddItem ("12/9/1952")
lstSecondary.AddItem ("1/21/1953") ' Paul Allen, Al Qaeda
lstSecondary.AddItem ("2/1/1953") ' premiere US TV series "G.E. True Theater"::series premiere episode "Wedding Day"
lstSecondary.AddItem ("5/4/1953") ' His Royal Highness Duke of Edinburgh qualifies as aircraft pilot
lstSecondary.AddItem ("5/13/1953") ' premiere US film "Law and Order"
lstSecondary.AddItem ("5/18/1953") ' Jacky Cochrane - sound barrier
lstSecondary.AddItem ("5/29/1953") ' premiere United Kingdom film "Stalag 17"
lstSecondary.AddItem ("6/2/1953") ' the coronation of my paternal grandmother Her Majesty Queen Elizabeth II
lstSecondary.AddItem ("7/1/1953") ' premiere US film "Stalag 17"
lstSecondary.AddItem ("7/29/1953")
lstSecondary.AddItem ("8/5/1953") ' premiere US film "From Here to Eternity"
lstSecondary.AddItem ("8/12/1953")
lstSecondary.AddItem ("11/19/1953") ' Robert Beltran
lstSecondary.AddItem ("11/20/1953") ' Scott Crossfield Mach 2 flight
lstSecondary.AddItem ("2/1/1954") ' Billy Mumy
lstSecondary.AddItem ("2/15/1954")
lstSecondary.AddItem ("3/5/1954") ' premiere US film "Creature from the Black Lagoon"
lstSecondary.AddItem ("4/21/1954")
lstSecondary.AddItem ("5/2/1954") ' premiere US TV series "G.E. True Theater"::"To Lift a Feather"
lstSecondary.AddItem ("5/4/1954") ' premiere US film "Prisoner of War"
lstSecondary.AddItem ("6/16/1954") ' premiere US film "Them!"
lstSecondary.AddItem ("6/24/1954") ' premiere US film "The Caine Mutiny"
lstSecondary.AddItem ("6/28/1954") ' Alice Krige
lstSecondary.AddItem ("7/9/1954") ' premiere US film "Apache"
lstSecondary.AddItem ("9/10/1954") ' premiere US TV series "Dear Phoebe"::series premiere episode "Bill Gets a Job"
lstSecondary.AddItem ("9/30/1954")
lstSecondary.AddItem ("10/3/1954") ' premiere US TV series "Father Knows Best"
lstSecondary.AddItem ("10/9/1954")
lstSecondary.AddItem ("10/18/1954") ' premiere US TV series "Sherlock Holmes"::series premiere episode "The Case of the Cunningham Heritage"
lstSecondary.AddItem ("11/18/1954") ' premiere US film "Cattle Queen of Montana"
lstSecondary.AddItem ("12/23/1954")
lstSecondary.AddItem ("1/18/1955")
lstSecondary.AddItem ("3/17/1955") ' Gary Sinise
lstSecondary.AddItem ("3/19/1955")
lstSecondary.AddItem ("4/18/1955")
lstSecondary.AddItem ("5/29/1955")
lstSecondary.AddItem ("7/22/1955")
lstSecondary.AddItem ("9/6/1955")
lstSecondary.AddItem ("9/10/1955")
lstSecondary.AddItem ("9/11/1955")
lstSecondary.AddItem ("9/18/1955")
lstSecondary.AddItem ("9/19/1955")
lstSecondary.AddItem ("9/20/1955") ' premiere US TV series "Navy Log"::series premiere episode "The Frogmen" or "Pirate and the Pledge"
lstSecondary.AddItem ("9/22/1955")
lstSecondary.AddItem ("9/24/1955") ' premiere US TV series "Steve Donovan, Western Marshal"::series premiere episode "The Midnight Election"
lstSecondary.AddItem ("10/1/1955") ' "The Honeymooners" premiere as standalone from "The Jackie Gleason Show" earlier broadcasts
lstSecondary.AddItem ("10/28/1955") ' Bill Gates
lstSecondary.AddItem ("11/5/1955")
lstSecondary.AddItem ("1/3/1956")
lstSecondary.AddItem ("2/5/1956")
lstSecondary.AddItem ("2/10/1956") ' premiere US film "The Lone Ranger"
lstSecondary.AddItem ("3/24/1956") ' Steve Ballmer
lstSecondary.AddItem ("6/27/1956")
lstSecondary.AddItem ("6/28/1956") ' premiere US film "The King and I"
lstSecondary.AddItem ("7/9/1956") ' Tom Hanks
lstSecondary.AddItem ("7/31/1956")
lstSecondary.AddItem ("9/25/1956") ' premiere US TV series "Broken Arrow"::series premiere episode "The Mail Riders" & premiere US TV series "State Trooper"::series premiere episode "The Red Badge of Death"
lstSecondary.AddItem ("9/26/1956") ' Linda Hamilton
lstSecondary.AddItem ("10/17/1956") ' Her Majesty Queen Elizabeth II opens the nuclear power station at Calder Hall
lstSecondary.AddItem ("2/16/1957")
lstSecondary.AddItem ("3/10/1957") ' Osama Bin Laden
lstSecondary.AddItem ("5/16/1957") ' Eliot Ness - deceased
lstSecondary.AddItem ("5/28/1957") ' premiere US film "A Face in the Crowd"
lstSecondary.AddItem ("5/30/1957") ' premiere US film "Gunfight at the O.K. Corral" & premiere US film "The D.I."
lstSecondary.AddItem ("9/21/1957")
lstSecondary.AddItem ("9/22/1957")
lstSecondary.AddItem ("10/2/1957") ' premiere United Kingdom film "The Bridge on the River Kwai"
lstSecondary.AddItem ("11/15/1957") ' Ray McKinnon "Campion"
lstSecondary.AddItem ("12/14/1957") ' premiere US film "A Farewell to Arms" & premiere US film "The Bridge on the River Kwai"
lstSecondary.AddItem ("12/25/1957") ' premiere US film "The Enemy Below" "Paths of Glory"
lstSecondary.AddItem ("2/1/1958") ' Explorer 1 - the first United States satellite successfully launched by the United States into orbit of the planet Earth
lstSecondary.AddItem ("2/19/1958") ' premiere US film "Cowboy"
lstSecondary.AddItem ("4/3/1958") ' Alec Baldwin
lstSecondary.AddItem ("5/20/1958") ' Ron Reagan
lstSecondary.AddItem ("7/16/1958") ' premiere US film "The Fly"
lstSecondary.AddItem ("7/29/1958") ' NASA formed
lstSecondary.AddItem ("8/24/1958") ' Steve Guttenberg
lstSecondary.AddItem ("9/12/1958")
lstSecondary.AddItem ("9/23/1958") ' premiere US TV series "Bronco"::series premiere episode "The Besieged"
lstSecondary.AddItem ("9/24/1958") ' premiere US film "The Defiant Ones"
lstSecondary.AddItem ("9/30/1958")
lstSecondary.AddItem ("10/5/1958") ' premiere US TV series "Lawman"::series premiere episode "The Deputy"
lstSecondary.AddItem ("10/11/1958") ' premiere US TV series "U.S. Marshal"::series premiere episode "The Fugitives"
lstSecondary.AddItem ("10/16/1958") ' Tim Robbins
lstSecondary.AddItem ("11/5/1958")
lstSecondary.AddItem ("12/18/1958") ' Project SCORE
lstSecondary.AddItem ("12/19/1958") ' Project SCORE Eisenhower
lstSecondary.AddItem ("3/3/1959") ' the birthdate in Hawaii of my brother Thomas Reagan
lstSecondary.AddItem ("3/4/1959") ' the birthdate London England time of my brother Thomas Reagan
lstSecondary.AddItem ("3/22/1959")
lstSecondary.AddItem ("3/25/1959") ' premiere US film "Al Capone"
lstSecondary.AddItem ("4/9/1959") ' Mercury 7
lstSecondary.AddItem ("4/16/1959") ' premiere US TV series "The Lawless Years"
lstSecondary.AddItem ("4/20/1959") ' premiere US TV series pilot "The Untouchables"
lstSecondary.AddItem ("4/22/1959") ' Catherine Mary Stewart
lstSecondary.AddItem ("5/17/1959") ' premiere US film "King of the Wild Stallions"
lstSecondary.AddItem ("6/12/1959")
lstSecondary.AddItem ("6/16/1959") ' premiere US film "John Paul Jones"
lstSecondary.AddItem ("8/21/1959") ' Hawaii officially becomes the fiftieth state of the United States of America
lstSecondary.AddItem ("8/27/1959") ' the first successful test from a ship at sea of the United States Navy Polaris submarine launched nuclear warhead capable ballistic missile
lstSecondary.AddItem ("9/3/1959")
lstSecondary.AddItem ("9/4/1959") ' premiere US film "The Blue Angel"
lstSecondary.AddItem ("9/12/1959")
lstSecondary.AddItem ("9/13/1959") ' premiere US TV series "Riverboat"::series premiere episode "Payment in Full" & premiere UK "Interpol Calling" TV series
lstSecondary.AddItem ("9/17/1959")
lstSecondary.AddItem ("9/30/1959")
lstSecondary.AddItem ("10/2/1959")
lstSecondary.AddItem ("10/4/1959") ' premiere US TV series episode "The Jack Benny Program"::"30 Years in the Future" & premiere US TV series "The Rebel"::series premiere episode "Johnny Yuma" & premiere US TV series "Dennis the Menace"::series premiere episode "Dennis Goes to the Movies"
lstSecondary.AddItem ("10/7/1959")
lstSecondary.AddItem ("10/15/1959") ' premiere US TV series "The Untouchables"::"The Empty Chair"
lstSecondary.AddItem ("10/24/1959")
lstSecondary.AddItem ("12/5/1959")
lstSecondary.AddItem ("12/16/1959")
lstSecondary.AddItem ("12/17/1959")
lstSecondary.AddItem ("12/30/1959")
lstSecondary.AddItem ("1/30/1960") ' premiere US TV series "Man from Interpol"
lstSecondary.AddItem ("2/7/1960")
lstSecondary.AddItem ("2/11/1960") ' premiere US film "Sink the Bismarck!"
lstSecondary.AddItem ("2/13/1960") ' first atomic bomb explosion by France
lstSecondary.AddItem ("2/15/1960")
lstSecondary.AddItem ("2/17/1960") ' Jack The Ripper
lstSecondary.AddItem ("2/19/1960") ' Prince Andrew
lstSecondary.AddItem ("2/23/1960")
lstSecondary.AddItem ("4/4/1960")
lstSecondary.AddItem ("4/13/1960") ' United States Navy Transit 1B navigation satellite launched into Earth orbit
lstSecondary.AddItem ("4/19/1960") ' the first flight of the United States Navy and Grumman A-6 Intruder attack bomber aircraft prototype
lstSecondary.AddItem ("5/1/1960") ' Gary Powers shot down over Soviet Union
lstSecondary.AddItem ("5/7/1960") ' Gary Powers shot down over Soviet Union announcement by Russia
lstSecondary.AddItem ("6/5/1960") ' premiere US TV series "Edwin Newman Reporting"
lstSecondary.AddItem ("6/16/1960") ' Psycho
lstSecondary.AddItem ("7/11/1960") ' premiere United Kingdom film "Follow That Horse!"
lstSecondary.AddItem ("7/20/1960")
lstSecondary.AddItem ("8/7/1960") ' David Duchovny
lstSecondary.AddItem ("8/17/1960") ' premiere US film "The Time Machine" & Gary Powers trial
lstSecondary.AddItem ("9/11/1960") ' premiere United Kingdom TV series "Danger Man"
lstSecondary.AddItem ("9/14/1960") ' Callum Keith Rennie "Leoben Conoy"
lstSecondary.AddItem ("9/21/1960")
lstSecondary.AddItem ("9/26/1960") ' premiere US TV series "The Blue Angels"::series premiere episode "Angel on Trial"
lstSecondary.AddItem ("10/3/1960")
lstSecondary.AddItem ("10/11/1960") ' premiere US TV series "The Bugs Bunny Show"
lstSecondary.AddItem ("10/18/1960") ' Jean-Claude Van Damme
lstSecondary.AddItem ("10/23/1960") ' premiere US film "The Magnificent Seven"
lstSecondary.AddItem ("10/24/1960")
lstSecondary.AddItem ("12/7/1960")
lstSecondary.AddItem ("12/11/1960") ' premiere United Kingdom TV series "Pathfinders to Mars"::series premiere episode "The Imposter"
lstSecondary.AddItem ("12/30/1960") ' Kelli Maroney
lstSecondary.AddItem ("1/5/1961") ' premiere US TV series "Mister Ed"::series premiere episode "The First Meeting"
lstSecondary.AddItem ("1/20/1961") ' premiere US TV series "The Jackie Gleason Show"
lstSecondary.AddItem ("1/23/1961") ' premiere US TV series "The Americans"::series premiere episode "Harper's Ferry"
lstSecondary.AddItem ("2/2/1961") ' Obama
lstSecondary.AddItem ("2/9/1961") ' premiere US TV series "Gunslinger"::series premiere episode "Border Incident"
lstSecondary.AddItem ("3/16/1961") ' premiere US film "The AbsentMinded Professor"
lstSecondary.AddItem ("4/12/1961")
lstSecondary.AddItem ("4/27/1961") ' premiere United Kingdom film "The Guns of Navarone"
lstSecondary.AddItem ("5/5/1961")
lstSecondary.AddItem ("5/6/1961")
lstSecondary.AddItem ("5/13/1961") ' Gary Cooper - deceased
lstSecondary.AddItem ("5/31/1961") ' Lea Thompson
lstSecondary.AddItem ("6/9/1961")
lstSecondary.AddItem ("6/22/1961") ' premiere US film "The Guns of Navarone"
lstSecondary.AddItem ("7/1/1961")
lstSecondary.AddItem ("7/12/1961") ' premiere US film "Voyage to the Bottom of the Sea"
lstSecondary.AddItem ("8/4/1961")
lstSecondary.AddItem ("9/17/1961") ' premiere US TV series "Car 54, Where Are You?"
lstSecondary.AddItem ("9/27/1961")
lstSecondary.AddItem ("10/30/1961")
lstSecondary.AddItem ("11/25/1961")
lstSecondary.AddItem ("2/9/1962") ' premiere US film "Moon Pilot"
lstSecondary.AddItem ("2/10/1962") ' the United States of America Central Intelligence Agency pilot Gary Powers is released from Soviet Union prison and returned to United States control
lstSecondary.AddItem ("2/22/1962") ' premiere United Kingdom film "H.M.S. Defiant"
lstSecondary.AddItem ("3/15/1962") ' premiere US film "The Day the Earth Caught Fire"
lstSecondary.AddItem ("3/21/1962")
lstSecondary.AddItem ("4/3/1962") ' premiere US TV series pilot "McHale's Navy":: series pilot "Seven Against The Sea"
lstSecondary.AddItem ("4/12/1962") ' premiere US film "Cape Fear"
lstSecondary.AddItem ("5/12/1962") ' Emilio Estevez
lstSecondary.AddItem ("7/3/1962")
lstSecondary.AddItem ("7/10/1962") ' the Telstar 1 launch
lstSecondary.AddItem ("7/11/1962") ' the first Telstar 1 transmission from orbit
lstSecondary.AddItem ("8/18/1962") ' Adam Storke "Larry Underwood"
lstSecondary.AddItem ("9/19/1962") ' premiere US film "H.M.S. Defiant"
lstSecondary.AddItem ("9/23/1962")
lstSecondary.AddItem ("9/26/1962")
lstSecondary.AddItem ("10/5/1962")
lstSecondary.AddItem ("10/11/1962") ' premiere US TV series "McHale's Navy"::series premiere episode "An Ensign for McHale"
lstSecondary.AddItem ("10/24/1962")
lstSecondary.AddItem ("11/9/1962") ' premiere US film "Her Bikini Never Got Wet"
lstSecondary.AddItem ("1/6/1963")
lstSecondary.AddItem ("2/20/1963") ' premiere US film "How the West Was Won"
lstSecondary.AddItem ("3/23/1963") ' Jason Schombing
lstSecondary.AddItem ("3/28/1963") ' premiere US film "The Birds"
lstSecondary.AddItem ("4/1/1963") ' premiere US TV series "General Hospital"
lstSecondary.AddItem ("4/19/1963") ' Tom Wood ; Valerie Plame
lstSecondary.AddItem ("5/8/1963")
lstSecondary.AddItem ("7/4/1963")
lstSecondary.AddItem ("7/16/1963")
lstSecondary.AddItem ("7/26/1963") ' premiere United Kingdom TV series "Bud"::series premiere episode "Never Put Your Shirt on a Horse, Even If It Fits" & Syncom 2 satellite
lstSecondary.AddItem ("8/14/1963")
lstSecondary.AddItem ("8/30/1963") ' Guy Burgess - spy for the Soviet Union - deceased
lstSecondary.AddItem ("9/10/1963") ' premiere United Kingdom film "The Birds"
lstSecondary.AddItem ("9/16/1963")
lstSecondary.AddItem ("9/17/1963")
lstSecondary.AddItem ("9/18/1963") ' premiere US film "X: The Man with the X-Ray Eyes"
lstSecondary.AddItem ("9/29/1963")
lstSecondary.AddItem ("11/22/1963")
lstSecondary.AddItem ("11/24/1963")
lstSecondary.AddItem ("12/9/1963")
lstSecondary.AddItem ("12/25/1963") ' premiere US film "Captain Newman, M.D."
lstSecondary.AddItem ("1/7/1964")
lstSecondary.AddItem ("1/17/1964")
lstSecondary.AddItem ("1/29/1964")
lstSecondary.AddItem ("1/31/1964")
lstSecondary.AddItem ("2/5/1964")
lstSecondary.AddItem ("2/6/1964")
lstSecondary.AddItem ("2/12/1964") ' premiere US film "Seven Days in May"
lstSecondary.AddItem ("2/14/1964")
lstSecondary.AddItem ("2/19/1964") ' premiere US film "Dead Ringer"
lstSecondary.AddItem ("2/20/1964")
lstSecondary.AddItem ("3/8/1964") ' premiere US film "The Last Man on Earth"
lstSecondary.AddItem ("4/5/1964") ' Douglas MacArthur deceased
lstSecondary.AddItem ("4/8/1964") ' "From Russia With Love"
lstSecondary.AddItem ("5/18/1964") ' premiere US TV series pilot "Gomer Pyle, U.S.M.C." - "The Andy Griffith Show"::"Gomer Pyle, U.S.M.C."
lstSecondary.AddItem ("7/7/1964")
lstSecondary.AddItem ("7/22/1964") ' premiere US film "Bikini Beach"
lstSecondary.AddItem ("7/30/1964")
lstSecondary.AddItem ("7/31/1964") ' premiere US film "Ensign Pulver"
lstSecondary.AddItem ("8/2/1964") ' the Gulf of Tonkin incident
lstSecondary.AddItem ("8/4/1964") ' the Gulf of Tonkin incident
lstSecondary.AddItem ("8/14/1964") ' premiere US film "Behold a Pale Horse"
lstSecondary.AddItem ("8/15/1964")
lstSecondary.AddItem ("9/12/1964")
lstSecondary.AddItem ("9/14/1964")
lstSecondary.AddItem ("9/15/1964") ' premiere US film "Fail-Safe"
lstSecondary.AddItem ("9/18/1964") ' also premiere US TV series "The Addams Family"::series premiere episode "The Addams Family Goes to School"
lstSecondary.AddItem ("9/19/1964") ' premiere US TV series "Flipper"::series premiere episode "300 Feet Below"
lstSecondary.AddItem ("9/22/1964") ' premiere US TV series "The Man from U.N.C.L.E."::series premiere episode "The Vulcan Affair"
lstSecondary.AddItem ("9/24/1964")
lstSecondary.AddItem ("9/25/1964")
lstSecondary.AddItem ("9/26/1964")
lstSecondary.AddItem ("10/13/1964") ' premiere United Kingdom TV series "Secret Agent"::series premiere episode "Yesterday's Enemies"
lstSecondary.AddItem ("10/14/1964")
lstSecondary.AddItem ("10/16/1964")
lstSecondary.AddItem ("10/29/1964") ' premiere US film "The Time Travelers"
lstSecondary.AddItem ("11/20/1964")
lstSecondary.AddItem ("11/26/1964") ' premiere US film "Apache Rifles"
lstSecondary.AddItem ("12/10/1964")
lstSecondary.AddItem ("12/22/1964")
lstSecondary.AddItem ("2/7/1965")
lstSecondary.AddItem ("2/16/1965") ' Pegasus 1 spacecraft
lstSecondary.AddItem ("2/17/1965")
lstSecondary.AddItem ("3/14/1965")
lstSecondary.AddItem ("4/6/1965") ' US NASA launches the Intelsat I "Early Bird" satellite into orbit of planet Earth - the world's first commercial communications satellite
lstSecondary.AddItem ("5/1/1965") ' premiere US film "Fort Courageous"
lstSecondary.AddItem ("5/12/1965")
lstSecondary.AddItem ("6/17/1965") ' US Navy aerial victory Vietnam War
lstSecondary.AddItem ("7/14/1965") ' premiere US film "How to Stuff a Wild Bikini"
lstSecondary.AddItem ("7/16/1965") ' the North American Aviation Rockwell OV-10 Bronco aircraft first flight
lstSecondary.AddItem ("7/24/1965")
lstSecondary.AddItem ("7/31/1965") ' JK Rowling
lstSecondary.AddItem ("9/2/1965")
lstSecondary.AddItem ("9/9/1965") ' James Stockdale the United States Navy A-4 Skyhawk pilot and the United States Navy carrier air group commander was captured by North Vietnam and held as Prisoner of War
lstSecondary.AddItem ("9/15/1965")
lstSecondary.AddItem ("9/16/1965")
lstSecondary.AddItem ("9/17/1965")
lstSecondary.AddItem ("9/18/1965") ' premiere US TV series "Get Smart"::series premiere episode "Mr. Big" & premiere US TV series "I Dream of Jeannie"::series premiere episode "The Lady in the Bottle"
lstSecondary.AddItem ("9/19/1965") ' premiere US TV series "The Wackiest Ship in the Army"::series premiere episode "Shakedown"
lstSecondary.AddItem ("11/2/1965")
lstSecondary.AddItem ("11/8/1965") ' premiere US TV series "Days of Our Lives"
lstSecondary.AddItem ("12/21/1965")
lstSecondary.AddItem ("12/29/1965") ' premiere US film "Apache Uprising"
lstSecondary.AddItem ("1/8/1966") ' USS Wainwright DLG/CG-28 commissioned into United States Navy active service
lstSecondary.AddItem ("1/12/1966")
lstSecondary.AddItem ("1/13/1966") ' premiere US TV series "The Double Life of Henry Phyfe"::series premiere episode "Phyfe and a Filly"
lstSecondary.AddItem ("1/14/1966") ' Sergei Koroleve
lstSecondary.AddItem ("2/20/1966")
lstSecondary.AddItem ("2/25/1966") ' Téa Leoni
lstSecondary.AddItem ("6/29/1966") ' premiere US film "Lt. Robin Crusoe, U.S.N."
lstSecondary.AddItem ("7/22/1966") ' premiere United Kingdom film "Lt. Robin Crusoe, U.S.N."
lstSecondary.AddItem ("8/12/1966") ' premiere US TV "A Funny Thing Happened on the Way to the White House"
lstSecondary.AddItem ("9/7/1966") ' premiere US TV series "The Man Who Never Was"::series premiere episode "One Plus One Equals One"
lstSecondary.AddItem ("9/8/1966")
lstSecondary.AddItem ("9/9/1966")
lstSecondary.AddItem ("11/11/1966")
lstSecondary.AddItem ("11/15/1966")
lstSecondary.AddItem ("12/15/1966") ' Walt Disney - deceased
lstSecondary.AddItem ("12/20/1966") ' premiere US film "The Sand Pebbles"
lstSecondary.AddItem ("1/12/1967")
lstSecondary.AddItem ("2/18/1967") ' Julius Robert Oppenheimer - deceased
lstSecondary.AddItem ("3/14/1967") ' premiere US TV movie "Winchester 73"
lstSecondary.AddItem ("3/15/1967") ' premiere US film "In Like Flint"
lstSecondary.AddItem ("4/12/1967") ' the United States Navy submarine warship USS Ray SSN 653 commissioned into United States Navy battle force fleet active service
lstSecondary.AddItem ("4/28/1967") ' McDonnell Douglas
lstSecondary.AddItem ("5/1/1967")
lstSecondary.AddItem ("5/27/1967") ' premiere US film "The War Wagon"
lstSecondary.AddItem ("5/30/1967") ' Claude Rains - deceased
lstSecondary.AddItem ("6/13/1967")
lstSecondary.AddItem ("6/17/1967")
lstSecondary.AddItem ("6/29/1967")
lstSecondary.AddItem ("7/21/1967") ' Basil Rathbone - deceased
lstSecondary.AddItem ("9/7/1967")
lstSecondary.AddItem ("9/14/1967") ' premiere US TV series "Ironside"::series premiere episode "Message from Beyond"
lstSecondary.AddItem ("10/5/1967") ' Guy Pearce
lstSecondary.AddItem ("10/26/1967") ' Don Knotts & McCain worst collaborator
lstSecondary.AddItem ("10/28/1967")
lstSecondary.AddItem ("11/9/1967") ' premiere United Kingdom film "Five Million Years to Earth"
lstSecondary.AddItem ("12/11/1967") ' premiere US film "Guess Who's Coming to Dinner"
lstSecondary.AddItem ("12/21/1967")
lstSecondary.AddItem ("12/29/1967") ' premiere US film "The Good, the Bad and the Ugly"
lstSecondary.AddItem ("1/21/1968") ' the Thule Air Base B-52 crash with one US Air Force B-52G Stratofortress crew fatality and the reported uncontrolled destruction of four 1.1 megaton hydrogen bombs resulting in widespread radioactive contamination
lstSecondary.AddItem ("1/23/1968") ' USS Pueblo captured
lstSecondary.AddItem ("2/8/1968")
lstSecondary.AddItem ("2/16/1968") ' premiere US film "Five Million Years to Earth"
lstSecondary.AddItem ("2/20/1968")
lstSecondary.AddItem ("3/27/1968")
lstSecondary.AddItem ("4/2/1968") ' premiere US film "2001: A Space Odyssey"
lstSecondary.AddItem ("4/4/1968") ' Martin Luther King Jr - deceased
lstSecondary.AddItem ("4/23/1968") ' Timothy James McVeigh
lstSecondary.AddItem ("5/10/1968") ' premiere United Kingdom film "2001: A Space Odyssey"
lstSecondary.AddItem ("5/27/1968") ' United States Title 18 Treason 2381 - the fraudulent enlistment by George Walker Bush in the Texas Air National Guard
lstSecondary.AddItem ("6/19/1968")
lstSecondary.AddItem ("7/4/1968") ' premiere US film "The Green Berets"
lstSecondary.AddItem ("7/31/1968") ' premiere US film "Hang 'Em High"
lstSecondary.AddItem ("8/14/1968") ' Catherine Bell
lstSecondary.AddItem ("8/24/1968") ' the first hydrogen bomb explosion by France
lstSecondary.AddItem ("9/20/1968")
lstSecondary.AddItem ("9/21/1968")
lstSecondary.AddItem ("9/22/1968") ' premiere US TV series "Land of the Giants"::series premiere episode "The Crash"
lstSecondary.AddItem ("9/23/1968") ' premiere US TV series "Mayberry R.F.D."::series premiere episode "Andy and Helen Get Married"
lstSecondary.AddItem ("9/25/1968")
lstSecondary.AddItem ("9/26/1968")
lstSecondary.AddItem ("10/1/1968") ' premiere US film "Night of the Living Dead"
lstSecondary.AddItem ("10/11/1968")
lstSecondary.AddItem ("10/17/1968") ' premiere US film "Bullitt"
lstSecondary.AddItem ("12/24/1968")
lstSecondary.AddItem ("12/25/1968")
lstSecondary.AddItem ("1/20/1969") ' Richard Nixon gains office by fraud
lstSecondary.AddItem ("2/11/1969") ' Jennifer Aniston
lstSecondary.AddItem ("3/3/1969")
lstSecondary.AddItem ("3/7/1969")
lstSecondary.AddItem ("3/26/1969") ' premiere US TV series pilot "Marcus Welby, M.D."
lstSecondary.AddItem ("3/28/1969")
lstSecondary.AddItem ("5/21/1969")
lstSecondary.AddItem ("5/22/1969") 'Apollo 10 in orbit of Moon
lstSecondary.AddItem ("6/11/1969") ' premiere US film "True Grit"
lstSecondary.AddItem ("6/21/1969") ' premiere United Kingdom TV "Royal Family"
lstSecondary.AddItem ("6/25/1969") ' premiere US film "Death Rides a Horse"
lstSecondary.AddItem ("7/1/1969")
lstSecondary.AddItem ("7/20/1969")
lstSecondary.AddItem ("7/21/1969")
lstSecondary.AddItem ("8/27/1969") ' premiere US film "Journey to the Far Side of the Sun"
lstSecondary.AddItem ("9/2/1969") ' the first ATM & Ho Chi Minh - deceased
lstSecondary.AddItem ("9/23/1969")
lstSecondary.AddItem ("9/26/1969") ' premiere US TV series "The Brady Bunch"::series premiere episode "The Honeymoon"
lstSecondary.AddItem ("10/8/1969") ' premiere United Kingdom film "Journey to the Far Side of the Sun"
lstSecondary.AddItem ("10/28/1969") ' premiere US TV series pilot "The Young Lawyers"
lstSecondary.AddItem ("11/10/1969") ' premiere US film "Marooned"
lstSecondary.AddItem ("11/19/1969") ' Apollo 12 UTC
lstSecondary.AddItem ("12/10/1969") ' premiere US film "They Shoot Horses, Don't They?"
lstSecondary.AddItem ("1/25/1970")
lstSecondary.AddItem ("2/4/1970")
lstSecondary.AddItem ("3/5/1970")
lstSecondary.AddItem ("3/24/1970") ' George Walker Bush was never a pilot qualified or even capable of controlled flight in any jet aircraft of any branch of the United States of America military
lstSecondary.AddItem ("3/31/1970") ' Explorer 1 - the first United States satellite successfully launched by the United States into orbit of the planet Earth - reenters the Earth's atmosphere
lstSecondary.AddItem ("5/26/1970") ' premiere US film "Beneath the Planet of the Apes"
lstSecondary.AddItem ("6/17/1970") ' premiere US film "The Hawaiians"
lstSecondary.AddItem ("6/23/1970")
lstSecondary.AddItem ("6/24/1970") ' premiere US film "Catch-22"
lstSecondary.AddItem ("8/29/1970")
lstSecondary.AddItem ("9/16/1970") ' premiere US TV series "McCloud"
lstSecondary.AddItem ("9/18/1970")
lstSecondary.AddItem ("9/21/1970") ' premiere US TV series "The Young Lawyers"
lstSecondary.AddItem ("9/23/1970")
lstSecondary.AddItem ("9/24/1970") ' premiere US TV series "The Odd Couple"
lstSecondary.AddItem ("11/14/1970") ' the United States Navy command ship USS Blue Ridge AGC 19 commissioned into United States Navy battle force fleet active service - later redesignated the USS Blue Ridge LCC 19
lstSecondary.AddItem ("11/16/1970") ' the Lockheed L-1011 Tristar jet aircraft first flight
lstSecondary.AddItem ("12/15/1970") ' Michael Shanks
lstSecondary.AddItem ("3/12/1971")
lstSecondary.AddItem ("5/12/1971")
lstSecondary.AddItem ("5/21/1971") ' premiere US film "Escape from the Planet of the Apes"
lstSecondary.AddItem ("5/28/1971")
lstSecondary.AddItem ("6/4/1971") ' James Callis
lstSecondary.AddItem ("7/3/1971")
lstSecondary.AddItem ("7/8/1971") ' premiere United Kingdom film "Escape from the Planet of the Apes"
lstSecondary.AddItem ("8/1/1971")
lstSecondary.AddItem ("8/23/1971") ' Aaron Douglas
lstSecondary.AddItem ("9/18/1971")
lstSecondary.AddItem ("9/26/1971") ' Susan Smith
lstSecondary.AddItem ("10/1/1971") ' the Walt Disney World Resort opens in Florida
lstSecondary.AddItem ("10/6/1971") ' the fictional date setting 2 November 1990 film "Jacob's Ladder"
lstSecondary.AddItem ("10/9/1971")
lstSecondary.AddItem ("12/17/1971")
lstSecondary.AddItem ("12/19/1971")
lstSecondary.AddItem ("12/22/1971")
lstSecondary.AddItem ("1/8/1972") ' premiere US TV movie "The Astronaut"
lstSecondary.AddItem ("1/13/1972") ' premiere US film "The Cowboys"
lstSecondary.AddItem ("1/14/1972") ' premiere US TV series "Sanford and Son"::series premiere episode "Crossed Swords"
lstSecondary.AddItem ("1/15/1972")
lstSecondary.AddItem ("2/13/1972") ' premiere United Kingdom film "The Omega Man"
lstSecondary.AddItem ("3/10/1972")
lstSecondary.AddItem ("3/15/1972") ' premiere US film "The Godfather"
lstSecondary.AddItem ("3/21/1972") ' premiere United Kingdom film "The Cowboys"
lstSecondary.AddItem ("4/2/1972") ' US Air Force Lieutenant Colonel is the only survivor of 'Bat 21'
lstSecondary.AddItem ("7/1/1972") ' the ATF separates from IRS
lstSecondary.AddItem ("7/27/1972")
lstSecondary.AddItem ("9/10/1972")
lstSecondary.AddItem ("9/14/1972")
lstSecondary.AddItem ("9/17/1972")
lstSecondary.AddItem ("10/14/1972")
lstSecondary.AddItem ("10/26/1972") ' Igor Sikorsky - deceased
lstSecondary.AddItem ("11/17/1972") ' premiere US film "The Mechanic"
lstSecondary.AddItem ("12/11/1972")
lstSecondary.AddItem ("12/14/1972")
lstSecondary.AddItem ("12/26/1972")
lstSecondary.AddItem ("3/7/1973")
lstSecondary.AddItem ("3/8/1973") ' premiere US TV series pilot "Kojak"
lstSecondary.AddItem ("3/20/1973") ' premiere US TV series pilot "Police Story"
lstSecondary.AddItem ("4/3/1973") ' Jamie Bamber
lstSecondary.AddItem ("4/19/1973")
lstSecondary.AddItem ("5/1/1973")
lstSecondary.AddItem ("6/4/1973") ' ATM patent
lstSecondary.AddItem ("6/7/1973")
lstSecondary.AddItem ("6/15/1973")
lstSecondary.AddItem ("7/1/1973") ' D.E.A.
lstSecondary.AddItem ("7/11/1973") ' premiere US film "Cahill U.S. Marshal"
lstSecondary.AddItem ("7/20/1973") ' premiere US film "Dillinger"
lstSecondary.AddItem ("7/23/1973")
lstSecondary.AddItem ("9/14/1973") ' Andrew Lincoln
lstSecondary.AddItem ("10/2/1973") ' premiere US TV series "Police Story"
lstSecondary.AddItem ("10/24/1973") ' premiere US TV series "Kojak"::series premiere episode "Siege of Terror"
lstSecondary.AddItem ("11/21/1973")
lstSecondary.AddItem ("12/5/1973") ' premiere US film "Serpico"
lstSecondary.AddItem ("12/12/1973") ' premiere US film "The Last Detail"
lstSecondary.AddItem ("12/17/1973") ' premiere US film "Sleeper"
lstSecondary.AddItem ("12/25/1973")
lstSecondary.AddItem ("1/4/1974") ' premiere US film "McQ"
lstSecondary.AddItem ("1/15/1974") ' premiere US TV series "Happy Days"
lstSecondary.AddItem ("1/30/1974") ' Christian Bale
lstSecondary.AddItem ("3/14/1974") ' Grace Park
lstSecondary.AddItem ("3/20/1974") ' the attempted kidnapping of Her Royal Highness Princess Anne
lstSecondary.AddItem ("3/27/1974")
lstSecondary.AddItem ("4/11/1974") ' Tricia Helfer
lstSecondary.AddItem ("5/24/1974")
lstSecondary.AddItem ("8/1/1974") ' premiere US film "The Castaway Cowboy"
lstSecondary.AddItem ("8/21/1974") ' premiere US film "Newman's Law"
lstSecondary.AddItem ("8/26/1974") ' Charles Lindbergh - deceased
lstSecondary.AddItem ("9/13/1974") ' premiere US TV series "Police Woman"
lstSecondary.AddItem ("9/17/1974")
lstSecondary.AddItem ("10/18/1974")
lstSecondary.AddItem ("11/15/1974") ' premiere US film "Earthquake"
lstSecondary.AddItem ("12/3/1974") ' premiere US TV movie "The Red Badge of Courage"
lstSecondary.AddItem ("12/10/1974")
lstSecondary.AddItem ("12/26/1974")
lstSecondary.AddItem ("12/27/1974") ' Masi Oka
lstSecondary.AddItem ("12/31/1974")
lstSecondary.AddItem ("1/17/1975") ' premiere US TV series "Baretta"::series premiere episode "He'll Never See Daylight Agan"
lstSecondary.AddItem ("1/18/1975") ' premiere US TV series "The Jeffersons"
lstSecondary.AddItem ("1/25/1975") ' the United States Navy warship USS South Carolina CGN 37 commissioned into United States Navy battle force fleet service
lstSecondary.AddItem ("4/27/1975") ' premiere US film "Death Race 2000"
lstSecondary.AddItem ("4/30/1975")
lstSecondary.AddItem ("5/3/1975")
lstSecondary.AddItem ("5/20/1975") ' Tahmoh Penikett "Helo"
lstSecondary.AddItem ("5/28/1975") ' premiere US TV movie "Guess Who's Coming to Dinner"
lstSecondary.AddItem ("6/20/1975")
lstSecondary.AddItem ("6/25/1975")
lstSecondary.AddItem ("6/28/1975") ' Rod Serling - deceased
lstSecondary.AddItem ("8/7/1975") ' Charlize Theron
lstSecondary.AddItem ("9/10/1975")
lstSecondary.AddItem ("9/24/1975")
lstSecondary.AddItem ("9/25/1975")
lstSecondary.AddItem ("9/30/1975")
lstSecondary.AddItem ("10/11/1975")
lstSecondary.AddItem ("10/17/1975") ' premiere US film "Rooster Cogburn"
lstSecondary.AddItem ("10/30/1975")
lstSecondary.AddItem ("11/2/1975")
lstSecondary.AddItem ("11/19/1975") ' premiere US film "One Flew Over the Cuckoo's Nest"
lstSecondary.AddItem ("12/17/1975") ' premiere US film "The Man Who Would Be King"
lstSecondary.AddItem ("12/18/1975") ' premiere United Kingdom film "The Man Who Would Be King"
lstSecondary.AddItem ("12/25/1975") ' premiere US film "The Hindenburg"
lstSecondary.AddItem ("1/21/1976")
lstSecondary.AddItem ("1/27/1976") ' premiere US TV series "Laverne & Shirley"::series premiere episode "The Society Party"
lstSecondary.AddItem ("2/22/1976")
lstSecondary.AddItem ("3/9/1976") ' premiere US TV series "Family"
lstSecondary.AddItem ("3/21/1976") ' premiere US TV series pilot "Charlie's Angels"
lstSecondary.AddItem ("3/26/1976")
lstSecondary.AddItem ("4/6/1976") ' premiere US film "The Bad News Bears"
lstSecondary.AddItem ("5/2/1976") ' premiere United Kingdom film "The Hindenburg"
lstSecondary.AddItem ("6/7/1976")
lstSecondary.AddItem ("6/18/1976")
lstSecondary.AddItem ("6/23/1976") ' premiere US film "Logan's Run"
lstSecondary.AddItem ("6/25/1976")
lstSecondary.AddItem ("7/2/1976")
lstSecondary.AddItem ("7/4/1976")
lstSecondary.AddItem ("7/20/1976") ' Viking 1
lstSecondary.AddItem ("8/13/1976")
lstSecondary.AddItem ("9/3/1976") ' Viking 2
lstSecondary.AddItem ("9/4/1976")
lstSecondary.AddItem ("9/21/1976")
lstSecondary.AddItem ("9/22/1976") ' premiere US TV series "Charlie's Angels"
lstSecondary.AddItem ("9/30/1976") ' premiere United Kingdom film "Logan's Run"
lstSecondary.AddItem ("10/3/1976")
lstSecondary.AddItem ("10/11/1976")
lstSecondary.AddItem ("11/3/1976") ' premiere US film "Carrie"
lstSecondary.AddItem ("11/21/1976")
lstSecondary.AddItem ("11/26/1976")
lstSecondary.AddItem ("11/28/1976")
lstSecondary.AddItem ("12/1/1976") ' premiere US TV series "C.P.O. Sharkey"
lstSecondary.AddItem ("12/17/1976")
lstSecondary.AddItem ("12/22/1976")
lstSecondary.AddItem ("1/14/1977") ' premiere US TV series pilot "Fantasy Island"
lstSecondary.AddItem ("1/18/1977") ' the first successful flight test of the United States Navy Trident submarine launched nuclear warhead capable ballistic missile
lstSecondary.AddItem ("1/23/1977")
lstSecondary.AddItem ("3/11/1977")
lstSecondary.AddItem ("4/14/1977")
lstSecondary.AddItem ("5/19/1977") ' premiere US film "Smokey and the Bandit"
lstSecondary.AddItem ("5/25/1977")
lstSecondary.AddItem ("6/2/1977") ' Zachary Quinto
lstSecondary.AddItem ("6/15/1977") ' premiere US film "A Bridge Too Far"
lstSecondary.AddItem ("7/7/1977") ' premiere United Kingdom film "The Spy Who Loved Me"
lstSecondary.AddItem ("7/9/1977") ' the United States Navy warship USS Pegasus PHM 1 commissioned into United States Navy battle force fleet active service
lstSecondary.AddItem ("7/13/1977") ' premiere US film "The Spy Who Loved Me"
lstSecondary.AddItem ("8/1/1977") ' Gary Powers - deceased
lstSecondary.AddItem ("8/2/1977")
lstSecondary.AddItem ("8/15/1977") ' the "Wow!" signal
lstSecondary.AddItem ("8/16/1977")
lstSecondary.AddItem ("8/20/1977")
lstSecondary.AddItem ("9/4/1977")
lstSecondary.AddItem ("9/5/1977")
lstSecondary.AddItem ("9/15/1977")
lstSecondary.AddItem ("9/16/1977") ' premiere US TV series "Logan's Run"
lstSecondary.AddItem ("9/17/1977")
lstSecondary.AddItem ("9/21/1977") ' premiere US TV series "Big Hawaii"
lstSecondary.AddItem ("11/4/1977") ' premiere US TV series "The Incredible Hulk"
lstSecondary.AddItem ("11/5/1977") ' the George Bush & Laura Welch wedding as a scheduled criminal event
lstSecondary.AddItem ("11/9/1977") ' premiere US TV movie "The Royal Family"
lstSecondary.AddItem ("11/13/1977")
lstSecondary.AddItem ("11/15/1977")
lstSecondary.AddItem ("12/13/1977")
lstSecondary.AddItem ("12/14/1977") ' premiere US film "Saturday Night Fever"
lstSecondary.AddItem ("12/21/1977")
lstSecondary.AddItem ("1/20/1978")
lstSecondary.AddItem ("1/28/1978")
lstSecondary.AddItem ("2/8/1978") ' premiere US TV movie "Ruby and Oswald"
lstSecondary.AddItem ("4/2/1978")
lstSecondary.AddItem ("5/19/1978") ' premiere US TV movie "True Grit"
lstSecondary.AddItem ("6/2/1978")
lstSecondary.AddItem ("6/16/1978")
lstSecondary.AddItem ("6/28/1978")
lstSecondary.AddItem ("6/29/1978") ' Bob Crane - deceased
lstSecondary.AddItem ("7/25/1978") ' Louise Brown
lstSecondary.AddItem ("9/17/1978")
lstSecondary.AddItem ("9/20/1978") ' premiere US TV series "Vega$"::series premiere episode "Centerfold"
lstSecondary.AddItem ("10/1/1978") ' US President Jimmy Carter presents The Congressional Space Medal of Honor
lstSecondary.AddItem ("10/25/1978")
lstSecondary.AddItem ("11/5/1978") ' premiere US TV movie "The Time Machine"
lstSecondary.AddItem ("11/18/1978")
lstSecondary.AddItem ("12/8/1978") ' premiere US film "The Deer Hunter"
lstSecondary.AddItem ("12/10/1978")
lstSecondary.AddItem ("12/20/1978")
lstSecondary.AddItem ("1/26/1979") ' premiere US TV series "The Dukes of Hazzard"::series premiere episode "One Armed Bandits"
lstSecondary.AddItem ("2/13/1979") ' Anders Behring Breivik
lstSecondary.AddItem ("3/28/1979")
lstSecondary.AddItem ("4/20/1979") ' premiere US film "Dawn of the Dead"
lstSecondary.AddItem ("5/25/1979")
lstSecondary.AddItem ("6/11/1979")
lstSecondary.AddItem ("6/29/1979") ' premiere US film "Moonraker"
lstSecondary.AddItem ("7/2/1979")
lstSecondary.AddItem ("7/11/1979")
lstSecondary.AddItem ("7/21/1979")
lstSecondary.AddItem ("8/3/1979") ' Evangeline Lilly & premiere US film "North Dallas Forty"
lstSecondary.AddItem ("8/15/1979")
lstSecondary.AddItem ("8/27/1979") ' Louis Mountbatten - deceased
lstSecondary.AddItem ("8/31/1979") ' premiere US film "Time After Time"
lstSecondary.AddItem ("9/20/1979") ' premiere US TV series "Buck Rogers in the 25th Century"::series premiere episode "Awakening"
lstSecondary.AddItem ("9/23/1979") ' premiere US TV series "Trapper John, M.D."
lstSecondary.AddItem ("10/19/1979")
lstSecondary.AddItem ("11/4/1979")
lstSecondary.AddItem ("12/6/1979")
lstSecondary.AddItem ("12/12/1979") ' the United States Navy and Sikorsky SH-60 Seahawk first flight
lstSecondary.AddItem ("12/18/1979") ' premiere United Kingdom film "The Black Hole"
lstSecondary.AddItem ("12/19/1979") ' premiere US film "The Electric Horseman"
lstSecondary.AddItem ("12/20/1979") ' premiere US film "The Black Hole"
lstSecondary.AddItem ("12/24/1979")
End Sub
Sub SecondariesPost1980()
' 'Procedure Too Large' error
' 10 June 2011
lstSecondary.AddItem ("1/8/1980") ' John William Mauchly - deceased
lstSecondary.AddItem ("1/27/1980")
lstSecondary.AddItem ("4/8/1980") ' Katee Sackhoff
lstSecondary.AddItem ("4/24/1980")
lstSecondary.AddItem ("4/25/1980")
lstSecondary.AddItem ("5/4/1980")
lstSecondary.AddItem ("5/17/1980")
lstSecondary.AddItem ("5/20/1980") ' premiere United Kingdom film "Star Wars: Episode V - The Empire Strikes Back"
lstSecondary.AddItem ("6/6/1980") ' premiere US film "Urban Cowboy"
lstSecondary.AddItem ("6/11/1980") ' Steve Ballmer
lstSecondary.AddItem ("7/7/1980")
lstSecondary.AddItem ("7/25/1980")
lstSecondary.AddItem ("7/27/1980") ' Mohammad Reza Shah Pahlavi - the shah of Iran - deceased
lstSecondary.AddItem ("8/1/1980")
lstSecondary.AddItem ("8/26/1980") ' Chris Pine
lstSecondary.AddItem ("9/1/1980") ' premiere United Kingdom TV series "Wainwright's Law"::series premiere episode "A Death in the Family"
lstSecondary.AddItem ("9/22/1980") ' the Iran-Iraq war starts
lstSecondary.AddItem ("10/7/1980")
lstSecondary.AddItem ("10/18/1980") ' USS Arkansas CGN 41
lstSecondary.AddItem ("11/27/1980") ' premiere US TV series "Bosom Buddies"
lstSecondary.AddItem ("12/11/1980")
lstSecondary.AddItem ("1/12/1981") ' premiere US TV series "Dynasty"::series premiere episode "Oil"
lstSecondary.AddItem ("1/20/1981")
lstSecondary.AddItem ("3/13/1981") ' premiere US film "The Howling"
lstSecondary.AddItem ("3/18/1981")
lstSecondary.AddItem ("3/30/1981")
lstSecondary.AddItem ("4/12/1981")
lstSecondary.AddItem ("4/14/1981")
lstSecondary.AddItem ("4/19/1981") ' premiere United Kingdom film "Superman II"
lstSecondary.AddItem ("4/24/1981") ' premiere US film "Take This Job and Shove It"
lstSecondary.AddItem ("4/26/1981") ' premiere US TV series "The Phoenix"
lstSecondary.AddItem ("5/22/1981") ' premiere US film "Outland" & premiere US film "The Legend of the Lone Ranger"
lstSecondary.AddItem ("6/7/1981") ' Osirak
lstSecondary.AddItem ("6/9/1981") ' Natalie Portman
lstSecondary.AddItem ("6/12/1981")
lstSecondary.AddItem ("6/19/1981")
lstSecondary.AddItem ("6/24/1981") ' premiere United Kingdom film "For Your Eyes Only"
lstSecondary.AddItem ("6/26/1981")
lstSecondary.AddItem ("6/27/1981")
lstSecondary.AddItem ("7/13/1981") ' premiere United Kingdom film "Time Bandits"
lstSecondary.AddItem ("7/29/1981")
lstSecondary.AddItem ("8/1/1981")
lstSecondary.AddItem ("8/12/1981")
lstSecondary.AddItem ("9/4/1981") ' Beyonce Knowles
lstSecondary.AddItem ("9/25/1981") ' premiere US film "Southern Comfort"
lstSecondary.AddItem ("11/6/1981") ' premiere US film "Time Bandits"
lstSecondary.AddItem ("11/11/1981") ' USS Ohio
lstSecondary.AddItem ("12/4/1981")
lstSecondary.AddItem ("1/31/1982") ' premiere US TV movie "World War III"
lstSecondary.AddItem ("3/4/1982") ' premiere US TV series "Police Squad!"::series premiere episode "A Substantial Gift (The Broken Promise)"
lstSecondary.AddItem ("4/30/1982")
lstSecondary.AddItem ("5/1/1982")
lstSecondary.AddItem ("5/7/1982")
lstSecondary.AddItem ("6/4/1982")
lstSecondary.AddItem ("6/11/1982")
lstSecondary.AddItem ("6/21/1982") ' Prince William the Duke of Cambridge
lstSecondary.AddItem ("6/25/1982")
lstSecondary.AddItem ("7/9/1982")
lstSecondary.AddItem ("7/16/1982") ' premiere United Kingdom film "Star Trek II: The Wrath of Khan"
lstSecondary.AddItem ("7/23/1982") ' premiere US film "The Best Little Whorehouse in Texas"
lstSecondary.AddItem ("7/28/1982")
lstSecondary.AddItem ("8/6/1982") ' premiere US film "Pink Floyd The Wall"
lstSecondary.AddItem ("8/13/1982")
lstSecondary.AddItem ("9/26/1982") ' premiere US TV series "Knight Rider"::series premiere episode "Knight of the Phoenix"
lstSecondary.AddItem ("9/30/1982")
lstSecondary.AddItem ("10/1/1982") ' the Walt Disney Company EPCOT Center opens in Florida
lstSecondary.AddItem ("10/22/1982")
lstSecondary.AddItem ("11/13/1982") ' USS Gemini
lstSecondary.AddItem ("12/23/1982")
lstSecondary.AddItem ("12/28/1982")
lstSecondary.AddItem ("1/18/1983") ' Samantha Mumba
lstSecondary.AddItem ("1/22/1983") ' USS Ticonderoga CG 47
lstSecondary.AddItem ("1/23/1983") ' premiere US TV series "The A-Team"
lstSecondary.AddItem ("3/6/1983")
lstSecondary.AddItem ("3/18/1983")
lstSecondary.AddItem ("4/30/1983") ' premiere US TV movie "Cowboy"
lstSecondary.AddItem ("5/13/1983")
lstSecondary.AddItem ("5/25/1983")
lstSecondary.AddItem ("6/3/1983")
lstSecondary.AddItem ("6/13/1983") ' the United States Pioneer 10 spacecraft departs the solar system of the planet Earth
lstSecondary.AddItem ("6/17/1983")
lstSecondary.AddItem ("6/18/1983") ' I was the commander aboard the United States STS-7 Challenger spacecraft as United States Navy Fleet Admiral Thomas Reagan
lstSecondary.AddItem ("7/29/1983")
lstSecondary.AddItem ("10/15/1983") ' Pat O'Brien - deceased
lstSecondary.AddItem ("10/21/1983")
lstSecondary.AddItem ("11/10/1983")
lstSecondary.AddItem ("11/20/1983")
lstSecondary.AddItem ("12/1/1983") ' premiere US film "Scarface"
lstSecondary.AddItem ("12/9/1983") ' premiere US film "Christine"
lstSecondary.AddItem ("1/6/1984")
lstSecondary.AddItem ("1/22/1984") ' premiere US TV series "Airwolf"::series premiere episode "Shadow of the Hawke"
lstSecondary.AddItem ("2/26/1984")
lstSecondary.AddItem ("3/23/1984") ' premiere US film "Police Academy"
lstSecondary.AddItem ("3/30/1984") ' premiere US film "Purple Hearts"
lstSecondary.AddItem ("4/4/1984") ' premiere US TV series "Double Trouble"::series premiere episode "One Drives, the Other Doesn't"
lstSecondary.AddItem ("4/8/1984")
lstSecondary.AddItem ("4/28/1984") ' USS Iowa
lstSecondary.AddItem ("5/4/1984")
lstSecondary.AddItem ("5/11/1984")
lstSecondary.AddItem ("5/13/1984") ' Stanislaw Marcin Ulam - deceased
lstSecondary.AddItem ("5/15/1984") ' Date Entered AD This Period: 84 May 15
lstSecondary.AddItem ("6/1/1984")
lstSecondary.AddItem ("6/7/1984") ' premiere US film "Ghost Busters"
lstSecondary.AddItem ("6/8/1984")
lstSecondary.AddItem ("7/19/1984") ' premiere United Kingdom film "Supergirl"
lstSecondary.AddItem ("7/27/1984") ' premiere United Kingdom film "Star Trek III: The Search for Spock"
lstSecondary.AddItem ("8/3/1984") ' premiere US film "The Philadelphia Experiment"
lstSecondary.AddItem ("8/10/1984")
lstSecondary.AddItem ("9/2/1984") ' premiere US TV movie "An Englishman Abroad"
lstSecondary.AddItem ("9/15/1984") ' Prince Harry
lstSecondary.AddItem ("9/16/1984")
lstSecondary.AddItem ("9/20/1984") ' premiere US TV series "Who's the Boss?"
lstSecondary.AddItem ("10/26/1984")
lstSecondary.AddItem ("11/9/1984") ' premiere US film "A Nightmare on Elm Street"
lstSecondary.AddItem ("11/16/1984")
lstSecondary.AddItem ("11/21/1984") ' premiere US film "Supergirl"
lstSecondary.AddItem ("12/1/1984")
lstSecondary.AddItem ("12/7/1984")
lstSecondary.AddItem ("12/14/1984")
lstSecondary.AddItem ("1/24/1985") ' USS George Washington SSBN 598 decommissioned
lstSecondary.AddItem ("4/23/1985")
lstSecondary.AddItem ("5/5/1985")
lstSecondary.AddItem ("5/22/1985")
lstSecondary.AddItem ("6/12/1985") ' premiere United Kingdom film "A View to a Kill"
lstSecondary.AddItem ("6/28/1985")
lstSecondary.AddItem ("7/3/1985") ' also premiere US film "Day of the Dead"
lstSecondary.AddItem ("7/10/1985")
lstSecondary.AddItem ("8/2/1985") ' premiere US film "Weird Science"
lstSecondary.AddItem ("8/4/1985") ' Joseph Wayne Burgess - the foster father of Kerry Wayne Burgess - deceased
lstSecondary.AddItem ("8/9/1985") ' premiere US film "My Science Project"
lstSecondary.AddItem ("8/16/1985") ' premiere US film "Volunteers" & premiere US film "The Return of the Living Dead"
lstSecondary.AddItem ("9/27/1985") ' premiere US film "Invasion U.S.A."
lstSecondary.AddItem ("9/29/1985")
lstSecondary.AddItem ("9/30/1985") ' Charles Richter - deceased
lstSecondary.AddItem ("10/4/1985") ' premiere US film "Commando"
lstSecondary.AddItem ("10/11/1985") ' premiere US film "Remo Williams: The Adventure Begins"
lstSecondary.AddItem ("11/8/1985") ' POW medal
lstSecondary.AddItem ("11/9/1985") ' my biological father's brother and my uncle Charles the Prince of Wales and Princess of Wales attend the reception at the United States of America White House hosted by my biological maternal grandfather Ronald Reagan
lstSecondary.AddItem ("12/4/1985") ' premiere United Kingdom film "Back to the Future"
lstSecondary.AddItem ("12/6/1985") ' premiere US film "Spies Like Us"
lstSecondary.AddItem ("1/17/1986")
lstSecondary.AddItem ("1/28/1986")
lstSecondary.AddItem ("2/26/1986") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - the Microsoft headquarters in Redmond Washington
lstSecondary.AddItem ("3/13/1986")
lstSecondary.AddItem ("3/26/1986") ' Jessica McClure
lstSecondary.AddItem ("5/9/1986") ' premiere US film "Short Circuit"
lstSecondary.AddItem ("5/10/1986") ' USS Missouri
lstSecondary.AddItem ("5/12/1986")
lstSecondary.AddItem ("6/11/1986")
lstSecondary.AddItem ("6/13/1986")
lstSecondary.AddItem ("7/8/1986")
lstSecondary.AddItem ("7/18/1986")
lstSecondary.AddItem ("8/7/1986") ' Tom Clancy "Red Storm Rising"
lstSecondary.AddItem ("8/15/1986") ' premiere US film "The Fly"
lstSecondary.AddItem ("10/3/1986") ' premiere United Kingdom film "Top Gun"
lstSecondary.AddItem ("10/8/1986") ' premiere US film "The Color of Money"
lstSecondary.AddItem ("11/26/1986")
lstSecondary.AddItem ("11/29/1986")
lstSecondary.AddItem ("12/5/1986")
lstSecondary.AddItem ("12/19/1986")
lstSecondary.AddItem ("1/10/1987") ' premiere US TV movie "The Return of Sherlock Holmes"
lstSecondary.AddItem ("2/13/1987") ' premiere United Kingdom film "The Fly"
lstSecondary.AddItem ("3/6/1987")
lstSecondary.AddItem ("4/10/1987") ' premiere United Kingdom film "Star Trek IV: The Voyage Home"
lstSecondary.AddItem ("5/17/1987")
lstSecondary.AddItem ("6/2/1987")
lstSecondary.AddItem ("6/12/1987")
lstSecondary.AddItem ("6/17/1987")
lstSecondary.AddItem ("6/24/1987") ' Jackie Gleason - deceased
lstSecondary.AddItem ("7/17/1987")
lstSecondary.AddItem ("7/21/1987")
lstSecondary.AddItem ("7/24/1987")
lstSecondary.AddItem ("7/31/1987") ' premiere US film "The Lost Boys"
lstSecondary.AddItem ("8/14/1987")
lstSecondary.AddItem ("8/15/1987") ' premiere US TV series pilot "Summer Breeze"
lstSecondary.AddItem ("8/28/1987")
lstSecondary.AddItem ("9/11/1987") ' Lorne Greene - deceased & premiere US film "Fatal Attraction"
lstSecondary.AddItem ("9/24/1987")
lstSecondary.AddItem ("10/14/1987") ' the media frenzy and the rescue begins of Jessica McClure in Midland Texas
lstSecondary.AddItem ("11/13/1987")
lstSecondary.AddItem ("11/20/1987")
lstSecondary.AddItem ("12/11/1987")
lstSecondary.AddItem ("1/31/1988")
lstSecondary.AddItem ("3/18/1988") ' premiere US film "D.O.A." & premiere US film "Police Academy 5: Assignment: Miami Beach"
lstSecondary.AddItem ("4/1/1988")
lstSecondary.AddItem ("4/8/1988") ' premiere US film "Above the Law"
lstSecondary.AddItem ("4/14/1988")
lstSecondary.AddItem ("4/18/1988")
lstSecondary.AddItem ("4/29/1988") ' premiere United Kingdom film "Wall Street"
lstSecondary.AddItem ("5/25/1988")
lstSecondary.AddItem ("6/3/1988")
lstSecondary.AddItem ("6/10/1988")
lstSecondary.AddItem ("7/6/1988") ' premiere US film "Short Circuit 2"
lstSecondary.AddItem ("7/9/1988") ' USS Oklahoma City SSN 723 commissioned
lstSecondary.AddItem ("7/15/1988")
lstSecondary.AddItem ("9/10/1988") ' Jared Lee Loughner
lstSecondary.AddItem ("10/7/1988") ' premiere US film "Alien Nation" & premiere US film "Punchline"
lstSecondary.AddItem ("10/8/1988")
lstSecondary.AddItem ("10/21/1988")
lstSecondary.AddItem ("11/11/1988")
lstSecondary.AddItem ("11/13/1988") ' premiere US TV miniseries "War and Remembrance"
lstSecondary.AddItem ("11/15/1988")
lstSecondary.AddItem ("11/22/1988")
lstSecondary.AddItem ("11/23/1988") ' premiere US film "Scrooged"
lstSecondary.AddItem ("11/27/1988") ' premiere United Kingdom film "Die Hard"
lstSecondary.AddItem ("1/20/1989")
lstSecondary.AddItem ("1/27/1989") ' premiere US film "Three Fugitives" & premiere US film "Parents"
lstSecondary.AddItem ("2/14/1989") ' the United States Navstar 2-01 satellite launched into orbit of the planet Earth - the first Navstar Global Positioning System Block 2 series satellite
lstSecondary.AddItem ("2/17/1989") ' premiere US film "Bill & Ted's Excellent Adventure"
lstSecondary.AddItem ("3/5/1989")
lstSecondary.AddItem ("3/11/1989") ' premiere US TV series "COPS"
lstSecondary.AddItem ("3/24/1989")
lstSecondary.AddItem ("3/26/1989")
lstSecondary.AddItem ("4/7/1989")
lstSecondary.AddItem ("4/26/1989")
lstSecondary.AddItem ("5/24/1989")
lstSecondary.AddItem ("6/9/1989")
lstSecondary.AddItem ("6/16/1989")
lstSecondary.AddItem ("6/19/1989")
lstSecondary.AddItem ("7/17/1989")
lstSecondary.AddItem ("7/19/1989")
lstSecondary.AddItem ("7/21/1989") ' premiere US film "Shag"
lstSecondary.AddItem ("8/9/1989")
lstSecondary.AddItem ("8/25/1989") ' premiere US film "The Package" & premiere US film "Heart of Dixie" starring my wife
lstSecondary.AddItem ("9/10/1989") ' Hugo formed
lstSecondary.AddItem ("9/18/1989") ' premiere US TV series "Alien Nation"
lstSecondary.AddItem ("9/19/1989")
lstSecondary.AddItem ("9/21/1989") ' the Hurricane Hugo makes landfall in South Carolina United States and destroys the pickup truck automobile belonging to Kerry Burgess
lstSecondary.AddItem ("10/18/1989") ' Galileo spacecraft launched for Jupiter by United States STS-34 Atlantis spacecraft
lstSecondary.AddItem ("10/20/1989")
lstSecondary.AddItem ("11/20/1989")
lstSecondary.AddItem ("12/17/1989")
lstSecondary.AddItem ("12/20/1989")
lstSecondary.AddItem ("3/2/1990")
lstSecondary.AddItem ("3/9/1990") ' premiere US film "Joe Versus the Volcano"
lstSecondary.AddItem ("3/23/1990") ' premiere US film "Pretty Woman"
lstSecondary.AddItem ("4/5/1990")
lstSecondary.AddItem ("4/7/1990") ' USS Albany SSN 753
lstSecondary.AddItem ("4/19/1990")
lstSecondary.AddItem ("4/25/1990")
lstSecondary.AddItem ("5/14/1990")
lstSecondary.AddItem ("5/19/1990")
lstSecondary.AddItem ("5/25/1990")
lstSecondary.AddItem ("6/1/1990")
lstSecondary.AddItem ("6/15/1990")
lstSecondary.AddItem ("6/22/1990") ' RoboCop 2
lstSecondary.AddItem ("6/27/1990") ' premiere US film "Days of Thunder"
lstSecondary.AddItem ("7/2/1990")
lstSecondary.AddItem ("7/11/1990") ' premiere United Kingdom film "Back to the Future Part III"
lstSecondary.AddItem ("7/13/1990") ' premiere US film "Ghost"
lstSecondary.AddItem ("7/20/1990")
lstSecondary.AddItem ("8/24/1990") ' premiere US film "Men at Work"
lstSecondary.AddItem ("9/10/1990") ' premiere US TV series "The Fresh Prince of Bel-Air"
lstSecondary.AddItem ("9/13/1990") ' premiere US TV series "Law & Order"
lstSecondary.AddItem ("10/12/1990") ' premiere US film "Memphis Belle"
lstSecondary.AddItem ("10/17/1990")
lstSecondary.AddItem ("10/19/1990") ' premiere US film "Dances with Wolves"
lstSecondary.AddItem ("10/26/1990") ' premiere US film "Sibling Rivalry"
lstSecondary.AddItem ("11/2/1990") ' premiere US film "Jacob's Ladder"
lstSecondary.AddItem ("11/30/1990")
lstSecondary.AddItem ("12/7/1990") ' premiere US film "The Rookie"
lstSecondary.AddItem ("12/20/1990") ' premiere US film "The Godfather Part III"
lstSecondary.AddItem ("12/21/1990") ' premiere US film "Kindergarten Cop"
lstSecondary.AddItem ("1/4/1991") ' premiere United Kingdom film "Air America"
lstSecondary.AddItem ("1/18/1991")
lstSecondary.AddItem ("1/30/1991") ' premiere US film "The Silence of the Lambs"
lstSecondary.AddItem ("2/15/1991") ' premiere US film "King Ralph"
lstSecondary.AddItem ("2/18/1991") ' USS Princeton CG 59 mine explosion
lstSecondary.AddItem ("2/21/1991") ' premiere United Kingdom TV series "The Fresh Prince of Bel-Air"
lstSecondary.AddItem ("2/23/1991") ' premiere US film "The Doors"
lstSecondary.AddItem ("3/1/1991") ' premiere US film "My Heroes Have Always Been Cowboys"
lstSecondary.AddItem ("3/3/1991") ' the Rodney King incident
lstSecondary.AddItem ("3/8/1991") ' premiere United Kingdom film "The Godfather Part III"
lstSecondary.AddItem ("3/16/1991") ' ultraspace portal
lstSecondary.AddItem ("3/29/1991") ' premiere United Kingdom film "King Ralph"
lstSecondary.AddItem ("4/19/1991")
lstSecondary.AddItem ("5/24/1991")
lstSecondary.AddItem ("6/21/1991")
lstSecondary.AddItem ("7/1/1991") ' premiere US film "Terminator 2: Judgment Day" & Clarence Thomas
lstSecondary.AddItem ("7/4/1991") ' the United States Navy warship USS Arleigh Burke DDG 51 commissioned into United States Navy battle force fleet active service
lstSecondary.AddItem ("8/2/1991") ' premiere US film "Doc Hollywood"
lstSecondary.AddItem ("8/16/1991") ' premiere United Kingdom film "Terminator 2: Judgment Day"
lstSecondary.AddItem ("9/12/1991") ' the launch into orbit of the planet Earth of the United States space shuttle Discovery orbiter vehicle mission STS-48 with the Upper Atmosphere Research Satellite as the primary payload
lstSecondary.AddItem ("9/15/1991") ' the deployment of the Upper Atmosphere Research Satellite from the United States space shuttle Discovery orbiter vehicle mission STS-48 in orbit of the planet Earth
lstSecondary.AddItem ("9/27/1991") ' premiere United Kingdom film "Jacob's Ladder"
lstSecondary.AddItem ("9/28/1991") ' the United States Navy submarine warship USS Asheville SSN 758 commissioned into United States Navy battle force fleet service
lstSecondary.AddItem ("9/29/1991") ' premiere US TV movie "Mission of the Shark: The Saga of the U.S.S. Indianapolis"
lstSecondary.AddItem ("10/4/1991") ' premiere US film "Ricochet"
lstSecondary.AddItem ("10/11/1991") ' Redd Foxx - deceased
lstSecondary.AddItem ("12/3/1991")
lstSecondary.AddItem ("12/13/1991")
lstSecondary.AddItem ("12/20/1991")
lstSecondary.AddItem ("12/25/1991") ' as United States Marine Corps Warrant Officer 1 Kerry Wayne Burgess I was prisoner of war in Croatia
lstSecondary.AddItem ("1/17/1992") ' premiere US film "Freejack"
lstSecondary.AddItem ("2/14/1992") ' premiere US film "Wayne's World"
lstSecondary.AddItem ("2/24/1992") ' premiere US TV movie "Crash Landing: The Rescue of Flight 232"
lstSecondary.AddItem ("2/28/1992") ' premiere United Kingdom film "The Last Boy Scout"
lstSecondary.AddItem ("3/4/1992")
lstSecondary.AddItem ("6/5/1992") ' premiere US film "Patriot Games"
lstSecondary.AddItem ("6/16/1992")
lstSecondary.AddItem ("6/26/1992") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - the Starbucks IPO
lstSecondary.AddItem ("7/4/1992") ' CVN 73
lstSecondary.AddItem ("7/10/1992") ' premiere US film "Universal Soldier"
lstSecondary.AddItem ("8/16/1992") ' premiere US TV series "Secret Service"::series premiere episode "The Stalker/Bomb Protective Mission"
lstSecondary.AddItem ("8/21/1992") ' Ruby Ridge
lstSecondary.AddItem ("9/18/1992")
lstSecondary.AddItem ("10/9/1992")
lstSecondary.AddItem ("11/6/1992") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere US film "Passenger 57"
lstSecondary.AddItem ("11/20/1992")
lstSecondary.AddItem ("12/9/1992") ' premiere US film "A Few Good Men"
lstSecondary.AddItem ("12/25/1992") ' Hoffa Chaplin
lstSecondary.AddItem ("1/3/1993")
lstSecondary.AddItem ("1/19/1993")
lstSecondary.AddItem ("1/29/1993") ' premiere US film "Sniper"
lstSecondary.AddItem ("2/12/1993")
lstSecondary.AddItem ("2/26/1993")
lstSecondary.AddItem ("5/7/1993")
lstSecondary.AddItem ("6/25/1993") ' premiere US film "Sleepless in Seattle"
lstSecondary.AddItem ("6/30/1993")
lstSecondary.AddItem ("7/8/1993")
lstSecondary.AddItem ("8/6/1993")
lstSecondary.AddItem ("8/7/1993") ' Her Majesty Queen Elizabeth II opens Buckingham Palace for public admission
lstSecondary.AddItem ("9/10/1993") ' premiere US film "Undercover Blues" & premiere US TV series "The X-Files"
lstSecondary.AddItem ("9/12/1993") ' premiere US TV series "Lois & Clark: The New Adventures of Superman"
lstSecondary.AddItem ("9/16/1993")
lstSecondary.AddItem ("9/17/1993")
lstSecondary.AddItem ("9/21/1993") ' premiere US TV series "NYPD Blue"
lstSecondary.AddItem ("10/3/1993") ' the Battle of Mogadishu Somalia begins
lstSecondary.AddItem ("10/4/1993") ' the Battle of Mogadishu Somalia
lstSecondary.AddItem ("10/15/1993")
lstSecondary.AddItem ("11/5/1993") ' RoboCop 3
lstSecondary.AddItem ("11/12/1993") ' premiere US film "The Philadelphia Experiment II"
lstSecondary.AddItem ("11/15/1993") ' USS Wainwright decommissioned
lstSecondary.AddItem ("11/25/1993")
lstSecondary.AddItem ("12/25/1993")
lstSecondary.AddItem ("1/14/1994") ' premiere United Kingdom film "Undercover Blues"
lstSecondary.AddItem ("1/28/1994") ' premiere US film "Body Snatchers"
lstSecondary.AddItem ("3/11/1994") ' premiere US film "Guarding Tess" & something else
lstSecondary.AddItem ("3/25/1994") ' the withdrawal completed of United States military forces from Somalia
lstSecondary.AddItem ("5/8/1994")
lstSecondary.AddItem ("6/10/1994") ' the scheduled terrorist attack by Bill Gates-Microsoft-Nazi-University of Washington to murder the material witness Mary Gates the biological mother of the transvestite Bill Gates
lstSecondary.AddItem ("6/12/1994")
lstSecondary.AddItem ("6/15/1994")
lstSecondary.AddItem ("6/17/1994") ' premiere US film "Wolf"
lstSecondary.AddItem ("6/27/1994")
lstSecondary.AddItem ("8/17/1994") ' Tom Clancy "Debt of Honor"
lstSecondary.AddItem ("8/25/1994") ' premiere US TV series "My So-Called Life"
lstSecondary.AddItem ("9/16/1994")
lstSecondary.AddItem ("9/19/1994")
lstSecondary.AddItem ("9/22/1994") ' premiere US TV series "Friends"::series premiere episode "The One Where Monica Gets a Roommate"
lstSecondary.AddItem ("9/30/1994") ' USS Saratoga decommissioned & Ticonderoga
lstSecondary.AddItem ("10/10/1994") ' fictional date setting 16 September 1994 premiere US film "Timecop"
lstSecondary.AddItem ("10/23/1994") ' Robert Lansing - deceased
lstSecondary.AddItem ("10/25/1994") ' Susan Smith incident
lstSecondary.AddItem ("10/26/1994") ' as Deputy United States Marshal Kerry Wayne Burgess I discovered in John D. Long Lake near Union South Carolina the bodies of the children Susan Smith murdered and I transported them to the morgue for autopsy
lstSecondary.AddItem ("10/28/1994")
lstSecondary.AddItem ("11/3/1994") ' Susan Smith admits to murdering her two children in her car in John D. Long Lake near Union South Carolina and the car had been days earlier discovered by Deputy United States Marshal Kerry Burgess and reported to other officials and in order to maintain investigation of Susan Smith and her co-conspirators that include Microsoft's Bill Gates and Will Smith the so-called "Fresh Prince" from television
lstSecondary.AddItem ("11/5/1994") ' Ronald Reagan he was diagnosed with Alzheimer's, and on Nov. 5 of that year he released a brief statement about his illness
lstSecondary.AddItem ("11/6/1994")
lstSecondary.AddItem ("11/11/1994") ' premiere US film "Interview with the Vampire: The Vampire Chronicles"
lstSecondary.AddItem ("11/17/1994")
lstSecondary.AddItem ("12/9/1994")
lstSecondary.AddItem ("12/20/1994") ' in Bosnia as Kerry Wayne Burgess the United States Marine Corps captain this day is my United States Navy Cross medal date of record
lstSecondary.AddItem ("12/28/1994") ' premiere US film "The Madness of King George"
lstSecondary.AddItem ("1/6/1995") ' premiere United Kingdom film "Stargate" Timecop
lstSecondary.AddItem ("1/16/1995")
lstSecondary.AddItem ("1/20/1995") ' premiere United Kingdom film "Interview with the Vampire: The Vampire Chronicles"
lstSecondary.AddItem ("1/25/1995") ' the Norwegian rocket incident
lstSecondary.AddItem ("1/31/1995") ' premiere US TV series "The Marshal"
lstSecondary.AddItem ("2/10/1995") ' premiere US film "Billy Madison" & USS Cole launched
lstSecondary.AddItem ("3/6/1995")
lstSecondary.AddItem ("3/22/1995")
lstSecondary.AddItem ("3/24/1995") ' premiere US film "Major Payne" & premiere United Kingdom film "The Madness of King George"
lstSecondary.AddItem ("3/31/1995") ' premiere US film "Jefferson in Paris"
lstSecondary.AddItem ("4/19/1995") ' Oklahoma City bombing
lstSecondary.AddItem ("5/1/1995")
lstSecondary.AddItem ("5/12/1995")
lstSecondary.AddItem ("5/14/1995") ' premiere US TV "The Langoliers"
lstSecondary.AddItem ("5/15/1995") ' Die Hard 3
lstSecondary.AddItem ("6/2/1995") ' Scott O'Grady
lstSecondary.AddItem ("6/3/1995") ' John Presper Eckert Jr - deceased
lstSecondary.AddItem ("6/22/1995") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere US film "Apollo 13"
lstSecondary.AddItem ("7/14/1995")
lstSecondary.AddItem ("7/18/1995") ' Obama book
lstSecondary.AddItem ("7/28/1995")
lstSecondary.AddItem ("9/23/1995")
lstSecondary.AddItem ("9/24/1995")
lstSecondary.AddItem ("9/29/1995")
lstSecondary.AddItem ("10/6/1995") ' the announcement of the planet discovery at the star 51 Pegasi
lstSecondary.AddItem ("11/7/1995") ' Bill Gates-Microsoft-Corbis-Barack Hussein Obama-Harvard murders Ann Dunham the material witness and Barack Hussein Obama the cowardly violent criminal has never been a legal citizen of the United States of America
lstSecondary.AddItem ("11/12/1995") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere US film "Money Train"
lstSecondary.AddItem ("11/15/1995") ' Monica Lewinsky
lstSecondary.AddItem ("12/2/1995") ' the launch of the SOHO spacecraft into a Sun-Earth orbit point
lstSecondary.AddItem ("12/15/1995")
lstSecondary.AddItem ("12/27/1995")
lstSecondary.AddItem ("1/19/1996") ' premiere US film "From Dusk Till Dawn"
lstSecondary.AddItem ("1/26/1996")
lstSecondary.AddItem ("1/30/1996")
lstSecondary.AddItem ("2/9/1996")
lstSecondary.AddItem ("2/29/1996") ' the Siege of Sarajevo ends
lstSecondary.AddItem ("3/1/1996") ' Down Periscope
lstSecondary.AddItem ("4/19/1996") ' premiere United Kingdom film "Twelve Monkeys"
lstSecondary.AddItem ("5/10/1996") ' premiere US film "Twister"
lstSecondary.AddItem ("5/22/1996") ' premiere US film "Mission: Impossible"
lstSecondary.AddItem ("5/31/1996") ' premiere US film "The Arrival"
lstSecondary.AddItem ("6/7/1996")
lstSecondary.AddItem ("6/8/1996")
lstSecondary.AddItem ("6/10/1996") ' premiere US film "The Cable Guy"
lstSecondary.AddItem ("6/25/1996") 'Independence Day
lstSecondary.AddItem ("6/27/1996")
lstSecondary.AddItem ("7/5/1996")
lstSecondary.AddItem ("7/12/1996") ' premiere US film "Courage Under Fire"
lstSecondary.AddItem ("8/2/1996") ' premiere US film "Chain Reaction"
lstSecondary.AddItem ("8/7/1996")
lstSecondary.AddItem ("8/10/1996") ' premiere United Kingdom TV miniseries Stephen King's "The Stand"::miniseries premiere episode "The Plague"
lstSecondary.AddItem ("9/2/1996") ' premiere US TV series "Mr. & Mrs. Smith"
lstSecondary.AddItem ("9/6/1996") ' premiere United Kingdom film "Chain Reaction"
lstSecondary.AddItem ("10/11/1996") ' premiere US film "The Ghost and the Darkness"
lstSecondary.AddItem ("11/17/1996")
lstSecondary.AddItem ("11/18/1996")
lstSecondary.AddItem ("12/13/1996") ' premiere United Kingdom film "Star Trek: First Contact"
lstSecondary.AddItem ("2/28/1997") ' Blue Dress
lstSecondary.AddItem ("3/21/1997") ' premiere US film "Liar Liar"
lstSecondary.AddItem ("4/9/1997")
lstSecondary.AddItem ("4/25/1997") ' premiere US film "Volcano"
lstSecondary.AddItem ("6/2/1997") ' premiere US film "Con Air"
lstSecondary.AddItem ("6/12/1997")
lstSecondary.AddItem ("7/2/1997") ' Jimmy Stewart - deceased & also premiere US film "Men in Black"
lstSecondary.AddItem ("7/11/1997") ' premiere US film "Contact"
lstSecondary.AddItem ("7/27/1997")
lstSecondary.AddItem ("8/8/1997")
lstSecondary.AddItem ("8/15/1997") ' premiere US film "Event Horizon"
lstSecondary.AddItem ("8/31/1997") ' death of Diana, Princess of Wales
lstSecondary.AddItem ("9/15/1997") ' Pensacola Wings of Gold
lstSecondary.AddItem ("9/26/1997")
lstSecondary.AddItem ("11/2/1997") ' premiere US TV movie "Cinderella"
lstSecondary.AddItem ("11/4/1997") ' premiere US film "Starship Troopers"
lstSecondary.AddItem ("11/14/1997")
lstSecondary.AddItem ("11/26/1997")
lstSecondary.AddItem ("12/12/1997")
lstSecondary.AddItem ("12/14/1997")
lstSecondary.AddItem ("12/17/1997") ' premiere US film "Wag the Dog"
lstSecondary.AddItem ("2/13/1998")
lstSecondary.AddItem ("2/27/1998")
lstSecondary.AddItem ("3/6/1998") ' premiere US film "U.S. Marshals"
lstSecondary.AddItem ("3/15/1998")
lstSecondary.AddItem ("4/3/1998") ' premiere US film "Lost In Space"
lstSecondary.AddItem ("5/8/1998")
lstSecondary.AddItem ("5/15/1998") ' premiere United Kingdom film "Deep Impact"
lstSecondary.AddItem ("5/18/1998") ' premiere US film "Godzilla"
lstSecondary.AddItem ("5/30/1998") ' USS Pearl Harbor LSD 52
lstSecondary.AddItem ("6/1/1998")
lstSecondary.AddItem ("6/26/1998") ' premiere US film "Out of Sight"
lstSecondary.AddItem ("6/30/1998")
lstSecondary.AddItem ("7/24/1998")
lstSecondary.AddItem ("7/30/1998") ' premiere US film "Snake Eyes"
lstSecondary.AddItem ("8/7/1998") ' premiere United Kingdom film "Armageddon"
lstSecondary.AddItem ("9/21/1998") ' premiere US TV series "The King of Queens"
lstSecondary.AddItem ("10/7/1998")
lstSecondary.AddItem ("10/23/1998")
lstSecondary.AddItem ("11/6/1998")
lstSecondary.AddItem ("12/7/1998")
lstSecondary.AddItem ("12/11/1998")
lstSecondary.AddItem ("1/31/1999") ' premiere US TV series "Family Guy"::series premiere episode "Death Has a Shadow"
lstSecondary.AddItem ("3/28/1999")
lstSecondary.AddItem ("3/31/1999")
lstSecondary.AddItem ("4/20/1999")
lstSecondary.AddItem ("5/19/1999") ' premiere US film "Star Wars: Episode I - The Phantom Menace"
lstSecondary.AddItem ("6/2/1999")
lstSecondary.AddItem ("6/17/1999") ' premiere US film "Big Daddy"
lstSecondary.AddItem ("6/30/1999") ' premiere US film "Wild Wild West"
lstSecondary.AddItem ("7/9/1999")
lstSecondary.AddItem ("8/2/1999") ' premiere US film "The Sixth Sense"
lstSecondary.AddItem ("8/27/1999") ' premiere US film "The Astronaut's Wife"
lstSecondary.AddItem ("9/13/1999") '
lstSecondary.AddItem ("11/16/1999") ' premiere US film "End of Days"
lstSecondary.AddItem ("1/14/2000") ' premiere US film "Supernova"
lstSecondary.AddItem ("2/18/2000")
lstSecondary.AddItem ("3/6/2000")
lstSecondary.AddItem ("3/10/2000") ' premiere US film "Deterrence"
lstSecondary.AddItem ("5/1/2000")
lstSecondary.AddItem ("5/28/2000") ' premiere US TV movie "On the Beach"
lstSecondary.AddItem ("6/16/2000") ' premiere United Kingdom film "Supernova"
lstSecondary.AddItem ("6/26/2000")
lstSecondary.AddItem ("6/27/2000") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere US film "The Patriot"
lstSecondary.AddItem ("7/14/2000") ' premiere UK film "The Patriot"
lstSecondary.AddItem ("8/1/2000") ' premiere US film "Space Cowboys"
lstSecondary.AddItem ("8/12/2000")
lstSecondary.AddItem ("9/22/2000") ' premiere United Kingdom film "Space Cowboys"
lstSecondary.AddItem ("10/6/2000") ' premiere US TV series "CSI: Crime Scene Investigation" & premiere US TV series "The Fugitive"
lstSecondary.AddItem ("10/12/2000")
lstSecondary.AddItem ("11/6/2000")
lstSecondary.AddItem ("11/14/2000")
lstSecondary.AddItem ("12/1/2000") ' premiere United Kingdom film "Red Planet"
lstSecondary.AddItem ("12/7/2000")
lstSecondary.AddItem ("12/19/2000") ' premiere US film "Thirteen Days"
lstSecondary.AddItem ("12/29/2000") ' premiere United Kingdom film "Unbreakable"
lstSecondary.AddItem ("1/12/2001") ' premiere US film "Antitrust"
lstSecondary.AddItem ("2/20/2001") ' premiere US film "3000 Miles to Graceland"
lstSecondary.AddItem ("5/23/2001")
lstSecondary.AddItem ("5/29/2001")
lstSecondary.AddItem ("6/11/2001") ' Timothy James McVeigh executed
lstSecondary.AddItem ("6/26/2001") ' premiere US film "A.I. Artificial Intelligence"
lstSecondary.AddItem ("7/27/2001") ' premiere US film "Planet of the Apes"
lstSecondary.AddItem ("8/24/2001") ' premiere US film "Ghosts of Mars"
lstSecondary.AddItem ("9/11/2001")
lstSecondary.AddItem ("9/18/2001")
lstSecondary.AddItem ("9/21/2001") ' premiere United Kingdom film "A.I. Artificial Intelligence"
lstSecondary.AddItem ("9/26/2001")
lstSecondary.AddItem ("10/5/2001") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere US film "Training Day"
lstSecondary.AddItem ("10/7/2001") ' Bush says military strikes have begun in Afghanistan
lstSecondary.AddItem ("10/11/2001")
lstSecondary.AddItem ("10/16/2001") ' premiere US TV series "Smallville"
lstSecondary.AddItem ("11/17/2001")
lstSecondary.AddItem ("11/19/2001") ' premiere US film "Spy Game"
lstSecondary.AddItem ("11/30/2001") ' the arrest of Gary Leon Ridgway
lstSecondary.AddItem ("12/4/2001")
lstSecondary.AddItem ("12/9/2001") ' premiere US TV movie "The Day Reagan Was Shot"
lstSecondary.AddItem ("12/10/2001") ' premiere US film "Vanilla Sky"
lstSecondary.AddItem ("12/13/2001") ' premiere US film "A Beautiful Mind"
lstSecondary.AddItem ("12/18/2001") ' premiere US film "Black Hawk Down"
lstSecondary.AddItem ("12/31/2001") ' premiere United Kingdom TV series "Smallville"
lstSecondary.AddItem ("2/22/2002") ' premiere United Kingdom film "A Beautiful Mind"
lstSecondary.AddItem ("3/4/2002")
lstSecondary.AddItem ("5/3/2002") ' premiere US film "Spider-Man"
lstSecondary.AddItem ("5/31/2002")
lstSecondary.AddItem ("6/8/2002") ' Ironman Utah
lstSecondary.AddItem ("6/14/2002")
lstSecondary.AddItem ("6/17/2002") ' premiere US film "Minority Report"
lstSecondary.AddItem ("7/19/2002") ' K-19 Widowmaker
lstSecondary.AddItem ("7/29/2002") ' premiere US TV movie "Prince William" & premiere US film "Signs"
lstSecondary.AddItem ("9/14/2002") ' Overlake Hospital Bellevue Washington & Melinda French Gates
lstSecondary.AddItem ("10/2/2002") ' premiere US film "The Transporter"
lstSecondary.AddItem ("11/1/2002") ' premiere United Kingdom film "28 Days Later" & United States Title 18 Treason 2381 - the Microsoft antitrust settlement
lstSecondary.AddItem ("12/9/2002") ' premiere US film "Star Trek Nemesis"
lstSecondary.AddItem ("1/17/2003") ' premiere United Kingdom film "The Transporter"
lstSecondary.AddItem ("2/1/2003")
lstSecondary.AddItem ("2/21/2003") ' premiere US film "Dark Blue"
lstSecondary.AddItem ("2/26/2003") ' premiere US TV movie "The Lone Ranger"
lstSecondary.AddItem ("3/3/2003")
lstSecondary.AddItem ("4/18/2003")
lstSecondary.AddItem ("4/22/2003")
lstSecondary.AddItem ("5/9/2003")
lstSecondary.AddItem ("6/10/2003") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - the Mars Exploration Rover "Spirit" launched by the severely treasonous organization US NASA towards the planet Mars with the continuing and full intent to hijack the tremendous commercial value of my private property
lstSecondary.AddItem ("7/7/2003") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - the Mars Exploration Rover "Opportunity" launched by the severely treasonous organization US NASA towards the planet Mars with the continuing and full intent to hijack the tremendous commercial value of my private property
lstSecondary.AddItem ("7/12/2003") ' CVN 76
lstSecondary.AddItem ("9/9/2003") ' Edward Teller - deceased
lstSecondary.AddItem ("9/23/2003")
lstSecondary.AddItem ("11/26/2003") ' premiere US film "Bad Santa"
lstSecondary.AddItem ("11/30/2003") ' premiere US TV movie "The Reagans"
lstSecondary.AddItem ("12/8/2003")
lstSecondary.AddItem ("2/6/2004")
lstSecondary.AddItem ("2/17/2004") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere United Kingdom TV miniseries "Battlestar Galactica"
lstSecondary.AddItem ("3/10/2004")
lstSecondary.AddItem ("3/26/2004") ' premiere United Kingdom film "Dawn of the Dead"
lstSecondary.AddItem ("6/5/2004") ' Ronald Reagan - deceased
lstSecondary.AddItem ("7/22/2004") ' United States Title 18 Treason 2381 - the 9/11 Commission report and all activity & RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - premiere US film "The Manchurian Candidate"
lstSecondary.AddItem ("9/22/2004") ' premiere US TV series "Lost"
lstSecondary.AddItem ("10/18/2004")
lstSecondary.AddItem ("11/5/2004") ' premiere United Kingdom film "Bad Santa"
lstSecondary.AddItem ("11/16/2004") ' premiere US TV series "House M.D."
lstSecondary.AddItem ("1/14/2005")
lstSecondary.AddItem ("3/24/2005") ' premiere US TV series "The Office"
lstSecondary.AddItem ("5/13/2005")
lstSecondary.AddItem ("6/6/2005") ' Olympic Sculpture Park SAM
lstSecondary.AddItem ("6/15/2005")
lstSecondary.AddItem ("6/28/2005") ' Michael Patrick Murphy killed
lstSecondary.AddItem ("7/7/2005")
lstSecondary.AddItem ("7/19/2005") ' HR 3352 - Salazar - Stolen Valor Act
lstSecondary.AddItem ("7/29/2005")
lstSecondary.AddItem ("9/16/2005") ' premiere US film "Lord of War"
lstSecondary.AddItem ("11/10/2005") ' S.1998 - Salazar - Stolen Valor Act
lstSecondary.AddItem ("1/8/2006") ' Strauss shooting
lstSecondary.AddItem ("6/16/2006") ' premiere US film "The Lake House"
lstSecondary.AddItem ("6/21/2006")
lstSecondary.AddItem ("9/15/2006") ' premiere United Kingdom film "The Queen"
lstSecondary.AddItem ("9/22/2006") ' premiere US film "Flyboys"
lstSecondary.AddItem ("9/29/2006") ' premiere US film "The Queen"
lstSecondary.AddItem ("10/17/2006") ' RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - Barack Obama "The Audacity of Hope: Thoughts on Reclaiming the American Dream"
lstSecondary.AddItem ("11/20/2006") ' premiere US film "Deja Vu"
lstSecondary.AddItem ("12/2/2006") ' Bill Gates-Microsoft-King County Washington State-Corbis-Nazi murders by gunfire the King County Washington State worker Steve Cox
lstSecondary.AddItem ("12/20/2006") ' Stolen Valor Act
lstSecondary.AddItem ("2/16/2007")
lstSecondary.AddItem ("3/23/2007") ' Iran seizes British sailors in the Persian Gulf
lstSecondary.AddItem ("4/16/2007") ' Microsoft Data Center in Quincy Washington opening ceremony & the Virginia Tech massacre
lstSecondary.AddItem ("4/26/2007") ' premiere United Kingdom film "28 Weeks Later"
lstSecondary.AddItem ("5/11/2007") ' premiere US film "28 Weeks Later"
lstSecondary.AddItem ("7/21/2007") ' premiere US film "The Simpsons Movie"
lstSecondary.AddItem ("8/1/2007") ' Bill Gates-Microsoft-Corbis-George Bush the cowardly violent criminals destroys by force of violence the United States I-35W Mississippi River bridge with several fatalities and extensive damage
lstSecondary.AddItem ("8/29/2007")
lstSecondary.AddItem ("9/24/2007") ' premiere US film "Michael Clayton" & premiere US TV series "Chuck"
lstSecondary.AddItem ("11/21/2007") ' premiere US film "The Mist"
lstSecondary.AddItem ("12/11/2007") ' premiere US film "I Am Legend"
lstSecondary.AddItem ("5/22/2008")
lstSecondary.AddItem ("5/26/2008") ' premiere US TV miniseries "The Andromeda Strain"
lstSecondary.AddItem ("6/13/2008") ' premiere US film "The Happening" & UK premiere
lstSecondary.AddItem ("6/18/2008") ' premiere United Kingdom film "Hancock"
lstSecondary.AddItem ("6/20/2008") ' premiere US film "Get Smart"
lstSecondary.AddItem ("7/2/2008") ' premiere US film "Hancock"
lstSecondary.AddItem ("12/12/2008")
lstSecondary.AddItem ("12/25/2008") ' premiere US film "Valkyrie"
lstSecondary.AddItem ("1/10/2009") ' CVN 77
lstSecondary.AddItem ("4/28/2009") ' premiere US TV series pilot "NCIS: Los Angeles" - "NCIS: Naval Criminal Investigative Service"::"Legend - Part 1"
lstSecondary.AddItem ("5/8/2009")
lstSecondary.AddItem ("9/22/2009") ' premiere US TV series "NCIS: Los Angeles"::series premiere episode "Identity"
lstSecondary.AddItem ("10/2/2009") ' premiere US TV series "Stargate Universe"::series premiere episode "Air"
lstSecondary.AddItem ("12/9/2009") ' apt. flooded
lstSecondary.AddItem ("1/22/2010") ' premiere US TV series "Caprica"
lstSecondary.AddItem ("4/20/2010") ' Deepwater Horizon oil spill
lstSecondary.AddItem ("8/5/2010") ' Chile mine collapse
lstSecondary.AddItem ("9/17/2010") ' premiere US & UK film "Devil"
lstSecondary.AddItem ("9/20/2010") ' premiere US TV series "Hawaii Five-0" & premiere US TV series "The Event"
lstSecondary.AddItem ("10/31/2010") ' premiere US TV series "The Walking Dead"::series premiere episode "Days Gone Bye"
lstSecondary.AddItem ("1/8/2011") ' the Safeway supermarket near Tuscon Arizona shooting by Microsoft's Bill Gates with multiple fatalities and injuries including the Microsoft criminal accomplice and potential material witness Gabrielle Giffords
lstSecondary.AddItem ("3/11/2011")
lstSecondary.AddItem ("3/19/2011") ' United States military forces begin striking Libya
lstSecondary.AddItem ("6/19/2011") ' premiere US TV series "Falling Skies"
lstSecondary.AddItem ("7/22/2011") ' the scheduled terrorist attack in Norway by Microsoft's Bill Gates Al Qaida with extensive damage and many casualties
lstSecondary.AddItem ("9/24/2011") ' the UARS satellite crash
lstSecondary.AddItem ("4/4/2063")
lstSecondary.AddItem ("4/5/2063")
End Sub
Sub MasterArrayDiff()
'Dim MasterArray() As Variant
MasterArray(0, 0, 0, 0, 0) = "8/31/1870"
MasterArray(0, 1, 0, 0, 0) = "Maria Montessori"
MasterArray(0, 2, 0, 0, 0) = "Maria Montessori" 'hijacked
MasterArray(0, 0, 1, 0, 0) = "2/6/1911"
MasterArray(0, 0, 1, 1, 0) = "" 'number of days between 8/31/1870, 2/6/1911
MasterArray(0, 0, 2, 0, 0) = "6/10/1921"
MasterArray(0, 0, 2, 1, 0) = "" 'number of days between 8/31/1870, 6/10/1921
MasterArray(1, 0, 0, 0, 0) = "2/6/1911"
MasterArray(1, 1, 0, 0, 0) = "Ronald Wilson Reagan"
MasterArray(2, 0, 0, 0, 0) = "6/10/1921"
MasterArray(2, 1, 0, 0, 0) = "HRH Prince Philip, Duke of Edinburgh, husband of Her Royal Highness Queen Elizabeth II"
MasterArray(3, 0, 0, 0, 0) = "4/21/1926"
MasterArray(3, 1, 0, 0, 0) = "Her Royal Highness Queen Elizabeth II"
MasterArray(4, 0, 0, 0, 0) = "1/20/1930"
MasterArray(4, 1, 0, 0, 0) = "Buzz Aldrin, NASA"
MasterArray(5, 0, 0, 0, 0) = "8/5/1930"
MasterArray(5, 1, 0, 0, 0) = "Apollo 11 Eagle astronaut Neil Armstrong"
MasterArray(6, 0, 0, 0, 0) = "7/13/1940"
MasterArray(6, 1, 0, 0, 0) = "actor Patrick Stewart starring role Star Trek: The Next Generation franchise and 1998 film Safe House"
MasterArray(7, 0, 0, 0, 0) = "7/6/1946"
MasterArray(7, 1, 0, 0, 0) = "George W. Bush is enemy combatant against the U.S. federal government"
MasterArray(8, 0, 0, 0, 0) = "10/24/1947"
MasterArray(8, 1, 0, 0, 0) = "actor Kevin Kline starring role 1985 film Silverado"
MasterArray(9, 0, 0, 0, 0) = "11/14/1948"
MasterArray(9, 1, 0, 0, 0) = "my uncle HRH Prince Charles, Prince of Wales"
MasterArray(10, 0, 0, 0, 0) = "9/25/1951"
MasterArray(10, 1, 0, 0, 0) = "Mark Hamill"
MasterArray(11, 0, 0, 0, 0) = "10/5/1951"
MasterArray(11, 1, 0, 0, 0) = "actress Karen Allen starring role 1981 film Raiders of the Lost Ark and 1984 film Starman"
MasterArray(12, 0, 0, 0, 0) = "1/21/1953"
MasterArray(12, 1, 0, 0, 0) = "Paul Gardner Allen is enemy combatant against the U.S. federal government and U.S.A. allies"
MasterArray(13, 0, 0, 0, 0) = "5/16/1955"
MasterArray(13, 1, 0, 0, 0) = "actress Debra Winger starring role 1982 film An Officer And A Gentleman"
MasterArray(14, 0, 0, 0, 0) = "10/28/1955"
MasterArray(14, 1, 0, 0, 0) = "Bill Gates is enemy combatant against the U.S. federal goverment and U.S.A. allies"
MasterArray(15, 0, 0, 0, 0) = "3/24/1956"
MasterArray(15, 1, 0, 0, 0) = "Steve Ballmer is enemy combatant against the United States of America and U.S.A. allies"
MasterArray(16, 0, 0, 0, 0) = "7/29/1958"
MasterArray(16, 1, 0, 0, 0) = "NASA formed"
MasterArray(17, 0, 0, 0, 0) = "3/3/1959"
MasterArray(17, 1, 0, 0, 0) = "my birth date US"
MasterArray(18, 0, 0, 0, 0) = "3/4/1959"
MasterArray(18, 1, 0, 0, 0) = "my birth date UK"
MasterArray(19, 0, 0, 0, 0) = "7/16/1963"
MasterArray(19, 1, 0, 0, 0) = "my wife"
MasterArray(20, 0, 0, 0, 0) = "1/29/1964"
MasterArray(20, 1, 0, 0, 0) = "I was multiple Olympic gold medalist during Innsbruck Olympics"
MasterArray(21, 0, 0, 0, 0) = "1/31/1964"
MasterArray(21, 1, 0, 0, 0) = "I was Innsbruck Olympics gold medalist on this day"
MasterArray(22, 0, 0, 0, 0) = "2/5/1964"
MasterArray(22, 1, 0, 0, 0) = "I was Innsbruck Olympics gold medalist again on this day"
MasterArray(23, 0, 0, 0, 0) = "2/6/1964"
MasterArray(23, 1, 0, 0, 0) = "I was Innsbruck Olympics gold medalist again on this day"
MasterArray(24, 0, 0, 0, 0) = "2/9/1964"
MasterArray(24, 1, 0, 0, 0) = "I was multiple Olympic gold medalist during Innsbruck Olympics"
MasterArray(25, 0, 0, 0, 0) = "2/17/1965"
MasterArray(25, 1, 0, 0, 0) = "I am active duty U.S. Navy SEAL"
MasterArray(26, 0, 0, 0, 0) = "3/14/1965"
MasterArray(26, 1, 0, 0, 0) = "I am active duty Central Intelligence Agency officer"
MasterArray(27, 0, 0, 0, 0) = "5/12/1965"
MasterArray(27, 1, 0, 0, 0) = "I am active duty U.S. Navy aviator"
MasterArray(28, 0, 0, 0, 0) = "9/2/1965"
MasterArray(28, 1, 0, 0, 0) = "my first day as student at Princeton University where I earned Medical Doctor degree"
MasterArray(29, 0, 0, 0, 0) = "11/2/1965"
MasterArray(29, 1, 0, 0, 0) = "my birth date official United States federal undercover identity"
MasterArray(30, 0, 0, 0, 0) = "11/11/1966"
MasterArray(30, 1, 0, 0, 0) = "I was Gemini 12 spacecraft astronaut"
MasterArray(31, 0, 0, 0, 0) = "11/15/1966"
MasterArray(31, 1, 0, 0, 0) = "Gemini 12 spacecraft splashdown and I was Gemini 12 spacecraft astronaut"
MasterArray(32, 0, 0, 0, 0) = "5/1/1967"
MasterArray(32, 1, 0, 0, 0) = "my first flight by myself as jet pilot"
MasterArray(33, 0, 0, 0, 0) = "6/12/1968"
MasterArray(33, 1, 0, 0, 0) = ""
MasterArray(34, 0, 0, 0, 0) = "6/19/1968"
MasterArray(34, 1, 0, 0, 0) = "my 1st Medal of Honor and I am U.S. military fighter jet ace during the Vietnam War"
MasterArray(35, 0, 0, 0, 0) = "10/11/1968"
MasterArray(35, 1, 0, 0, 0) = "I was Apollo 7 spacecraft astronaut"
MasterArray(36, 0, 0, 0, 0) = "12/24/1968"
MasterArray(36, 1, 0, 0, 0) = "I was Apollo 8 astronaut in orbit of Earth's moon"
MasterArray(37, 0, 0, 0, 0) = "12/25/1968"
MasterArray(37, 1, 0, 0, 0) = "I was Apollo 8 astronaut in orbit of Earth's moon"
MasterArray(38, 0, 0, 0, 0) = "5/21/1969"
MasterArray(38, 1, 0, 0, 0) = "I am Princeton University medical doctor degree graduate"
MasterArray(39, 0, 0, 0, 0) = "5/22/1969"
MasterArray(39, 1, 0, 0, 0) = "I was Apollo 10 Snoopy spacecraft astronaut in orbit of Earth's moon"
MasterArray(40, 0, 0, 0, 0) = "7/20/1969"
MasterArray(40, 1, 0, 0, 0) = "I was Apollo 11 Eagle astronaut landing on Earth's moon"
MasterArray(41, 0, 0, 0, 0) = "7/21/1969"
MasterArray(41, 1, 0, 0, 0) = "I was Apollo 11 Eagle astronaut walking on Earth's moon"
MasterArray(42, 0, 0, 0, 0) = "11/19/1969"
MasterArray(42, 1, 0, 0, 0) = "I was Apollo 12 Intrepid astronaut landing on Earth's moon"
MasterArray(43, 0, 0, 0, 0) = "11/20/1969"
MasterArray(43, 1, 0, 0, 0) = "I was Apollo 12 Intrepid astronaut walking on Earth's moon"
MasterArray(44, 0, 0, 0, 0) = "11/8/1970"
MasterArray(44, 1, 0, 0, 0) = "my first ascent to Mount Everest summit"
MasterArray(45, 0, 0, 0, 0) = "2/5/1971"
MasterArray(45, 1, 0, 0, 0) = "I was Apollo 14 Antares command astronaut landing on Earth's moon"
MasterArray(46, 0, 0, 0, 0) = "2/6/1971"
MasterArray(46, 1, 0, 0, 0) = "I was Apollo 14 Antares command astronaut walking on Earth's moon"
MasterArray(47, 0, 0, 0, 0) = "7/30/1971"
MasterArray(47, 1, 0, 0, 0) = "I was Apollo 15 Falcon astronaut walking and driving on Earth's moon"
MasterArray(48, 0, 0, 0, 0) = "8/2/1971"
MasterArray(48, 1, 0, 0, 0) = "I was Apollo 15 Falcon astronaut walking and driving on Earth's moon"
MasterArray(49, 0, 0, 0, 0) = "10/9/1971"
MasterArray(49, 1, 0, 0, 0) = "I am board-certified surgeon"
MasterArray(50, 0, 0, 0, 0) = "4/20/1972"
MasterArray(50, 1, 0, 0, 0) = "I was Apollo 16 Orion astronaut landing on Earth's moon"
MasterArray(51, 0, 0, 0, 0) = "4/21/1972"
MasterArray(51, 1, 0, 0, 0) = "I was Apollo 16 Orion astronaut walking on Earth's moon"
MasterArray(52, 0, 0, 0, 0) = "12/11/1972"
MasterArray(52, 1, 0, 0, 0) = "I was Apollo 17 Challenger astronaut landing on Earth's moon"
MasterArray(53, 0, 0, 0, 0) = "12/14/1972"
MasterArray(53, 1, 0, 0, 0) = "I was Apollo 17 Challenger astronaut walking on Earth's moon"
MasterArray(54, 0, 0, 0, 0) = "2/12/1973"
MasterArray(54, 1, 0, 0, 0) = "Operation Homecoming begins and I was one of the C-141A pilots transporting home the American POW's"
MasterArray(55, 0, 0, 0, 0) = "5/1/1973"
MasterArray(55, 1, 0, 0, 0) = "my graduation from University of Oxford includes law degree"
MasterArray(56, 0, 0, 0, 0) = "7/23/1973"
MasterArray(56, 1, 0, 0, 0) = "I passed the Multistate Bar Examination"
MasterArray(57, 0, 0, 0, 0) = "9/15/1975"
MasterArray(57, 1, 0, 0, 0) = "date hijacked from me:Pink Floyd Wish You Were Here including Have A Cigar"
MasterArray(58, 0, 0, 0, 0) = "11/2/1975"
MasterArray(58, 1, 0, 0, 0) = "I launched from Earth by myself to intercept Comet Lucifer in the outer solar system"
MasterArray(59, 0, 0, 0, 0) = "1/19/1976"
MasterArray(59, 1, 0, 0, 0) = "congressional joint resolution Public Law 94-479 General Of The Armies"
MasterArray(60, 0, 0, 0, 0) = "1/21/1976"
MasterArray(60, 1, 0, 0, 0) = "my first landing on planet Mars and my documented and lawful exclusive claim to the territory of planet Mars"
MasterArray(61, 0, 0, 0, 0) = "6/7/1976"
MasterArray(61, 1, 0, 0, 0) = "my first landing Saturn moon Phoebe and the Saturn moon Phoebe territory belongs to me"
MasterArray(62, 0, 0, 0, 0) = "7/2/1976"
MasterArray(62, 1, 0, 0, 0) = "I intercepted Comet Lucifer in the outer solar system and set to work at diverting it"
MasterArray(63, 0, 0, 0, 0) = "7/4/1976"
MasterArray(63, 1, 0, 0, 0) = "I successfully diverted Comet Lucifer in the outer solar system"
MasterArray(64, 0, 0, 0, 0) = "8/5/1976"
MasterArray(64, 1, 0, 0, 0) = "London Clock Tower inoperative"
MasterArray(65, 0, 0, 0, 0) = "10/11/1976"
MasterArray(65, 1, 0, 0, 0) = "Public Law 94-479, General Of The Armies, approved by U.S. President Gerald Ford"
MasterArray(66, 0, 0, 0, 0) = "11/26/1976"
MasterArray(66, 1, 0, 0, 0) = "my first landing Jupiter moon Callisto"
MasterArray(67, 0, 0, 0, 0) = "11/28/1976"
MasterArray(67, 1, 0, 0, 0) = "I launched from the Jupiter moon Callisto for Earth and home"
MasterArray(68, 0, 0, 0, 0) = "4/14/1977"
MasterArray(68, 1, 0, 0, 0) = "I returned to Earth after successfully diverting the comet in the outer solar system"
MasterArray(69, 0, 0, 0, 0) = "5/9/1977"
MasterArray(69, 1, 0, 0, 0) = "London Clock Tower restored to operation"
MasterArray(70, 0, 0, 0, 0) = "3/13/1978"
MasterArray(70, 1, 0, 0, 0) = "Department of the Army Order 31-3, General Of The Armies"
MasterArray(71, 0, 0, 0, 0) = "9/17/1978"
MasterArray(71, 1, 0, 0, 0) = "date hijacked from me:premiere US TV series Battlestar Galactica"
MasterArray(72, 0, 0, 0, 0) = "7/21/1979"
MasterArray(72, 1, 0, 0, 0) = "my wife Phoebe and I are married"
MasterArray(73, 0, 0, 0, 0) = "11/4/1979"
MasterArray(73, 1, 0, 0, 0) = "The Tehran embassy hostage crisis begins"
MasterArray(74, 0, 0, 0, 0) = "6/11/1980"
MasterArray(74, 1, 0, 0, 0) = "Steve Ballmer leader at Microsoft Corporation a criminal enterprise and instigator of insurrection and subversive activity against the U.S. federal government and USA allies"
MasterArray(75, 0, 0, 0, 0) = "3/30/1981"
MasterArray(75, 1, 0, 0, 0) = "U.S. President Ronald Wilson Reagan shot and wounded in near-fatal assassination attempt"
MasterArray(76, 0, 0, 0, 0) = "4/12/1981"
MasterArray(76, 1, 0, 0, 0) = "I was the commander aboard the STS-1 Columbia spacecraft"
MasterArray(77, 0, 0, 0, 0) = "4/14/1981"
MasterArray(77, 1, 0, 0, 0) = "I was the commander aboard the STS-1 Columbia spacecraft"
MasterArray(78, 0, 0, 0, 0) = "6/7/1981"
MasterArray(78, 1, 0, 0, 0) = "my 3rd Medal of Honor hijacked from me and Osirak destroyed by Israeli Air Force"
MasterArray(79, 0, 0, 0, 0) = "6/8/1981"
MasterArray(79, 1, 0, 0, 0) = ""
MasterArray(80, 0, 0, 0, 0) = "7/16/1981"
MasterArray(80, 1, 0, 0, 0) = "my wife"
MasterArray(81, 0, 0, 0, 0) = "8/19/1981"
MasterArray(81, 1, 0, 0, 0) = "the 1st Gulf of Sidra incident and I was the U.S. Navy F-14 Tomcat pilot targeted by hostile fire"
MasterArray(82, 0, 0, 0, 0) = "4/30/1982"
MasterArray(82, 1, 0, 0, 0) = "my graduation and commissioning U.S. Naval Academy Class of 1982"
MasterArray(83, 0, 0, 0, 0) = "5/1/1982"
MasterArray(83, 1, 0, 0, 0) = "my graduation and commissioning U.S. Naval Academy Class of 1982"
MasterArray(84, 0, 0, 0, 0) = "5/4/1982"
MasterArray(84, 1, 0, 0, 0) = "I survived the attack on my location onboard HMS Sheffield D80 while many of Her Majesty's Royal Navy sailors did not"
MasterArray(85, 0, 0, 0, 0) = "6/25/1982"
MasterArray(85, 1, 0, 0, 0) = "date hijacked from me:premiere US films Blade Runner and The Thing"
MasterArray(86, 0, 0, 0, 0) = "8/13/1982"
MasterArray(86, 1, 0, 0, 0) = "date hijacked from me:premiere US films Fast Times At Ridgemont High starring my wife, An Officer And A Gentleman starring Debra Winger, Pink Floyd The Wall"
MasterArray(87, 0, 0, 0, 0) = "10/23/1983"
MasterArray(87, 1, 0, 0, 0) = "I survived the suicide bomber attack on my location at U.S. Marines barracks in Beirut while many U.S. Marines under my command did not"
MasterArray(88, 0, 0, 0, 0) = "6/8/1984"
MasterArray(88, 1, 0, 0, 0) = "date hijacked from me:premiere US film Gremlins starring my wife"
MasterArray(89, 0, 0, 0, 0) = "5/9/1985"
MasterArray(89, 1, 0, 0, 0) = "I am the pilot of F-14 Tomcat that is attacked by hostile forces and my RIO is killed by the enemy fire"
MasterArray(90, 0, 0, 0, 0) = "1/28/1986"
MasterArray(90, 1, 0, 0, 0) = "space shuttle Challenger explodes after liftoff killing all astronauts onboard Challenger spacecraft"
MasterArray(91, 0, 0, 0, 0) = "2/14/1986"
MasterArray(91, 1, 0, 0, 0) = "I was Prisoner of War in Libya"
MasterArray(92, 0, 0, 0, 0) = "4/14/1986"
MasterArray(92, 1, 0, 0, 0) = "President Reagan orders bombing of Libya and I escape from being POW with serious injuries to roam lost through the African wilderness for over 13 months"
MasterArray(93, 0, 0, 0, 0) = "4/15/1986"
MasterArray(93, 1, 0, 0, 0) = "Operation El Dorado Canyon and I escape from being POW with serious injuries to roam lost through the African wilderness for over 13 months"
MasterArray(94, 0, 0, 0, 0) = "6/25/1986"
MasterArray(94, 1, 0, 0, 0) = "Proclamation 5506—National Homelessness Awareness Week, 1986"
MasterArray(95, 0, 0, 0, 0) = "11/25/1986"
MasterArray(95, 1, 0, 0, 0) = "funeral service for me and my Missing In Action status in Africa changed to Killed In Action"
MasterArray(96, 0, 0, 0, 0) = "5/13/1987"
MasterArray(96, 1, 0, 0, 0) = "my M.I.A. status in Africa ends and I am being transported home"
'MasterArray(96, 2, 0, 0, 0) = "my M.I.A. status in Africa ends and I am being transported to a U.S. military base for intensive care hospitalization"
MasterArray(97, 0, 0, 0, 0) = "5/17/1987"
MasterArray(97, 1, 0, 0, 0) = "I survived the attack on my location onboard USS Stark FFG-31 while many other U.S. Navy sailors did not"
MasterArray(98, 0, 0, 0, 0) = "7/21/1987"
MasterArray(98, 1, 0, 0, 0) = "formal wedding ceremony for my wife Phoebe and me"
MasterArray(99, 0, 0, 0, 0) = "4/14/1988"
MasterArray(99, 1, 0, 0, 0) = "minefield damage to U.S. Navy warship USS Samuel B. Roberts FFG-58 and crew and I was onboard that warship as a U.S. Navy SEAL Lt."
MasterArray(100, 0, 0, 0, 0) = "4/18/1988"
MasterArray(100, 1, 0, 0, 0) = "Operation Praying Mantis: I was aboard U.S. Navy warship USS Wainwright CG-28 when it evaded a Harpoon missile from hostile forces but 2 U.S Marine aviators attached to USS Wainwright CG-28 killed this day"
MasterArray(101, 0, 0, 0, 0) = "1/4/1989"
MasterArray(101, 1, 0, 0, 0) = "the 2nd Gulf of Sidra incident and I was the U.S. Navy F-14 Tomcat pilot targeted by hostile fire"
MasterArray(102, 0, 0, 0, 0) = "3/5/1989"
MasterArray(102, 1, 0, 0, 0) = "actress Phoebe Cates is legally my wife and I am her husband"
MasterArray(103, 0, 0, 0, 0) = "6/27/1994"
MasterArray(103, 1, 0, 0, 0) = "I am the pilot and the only survivor of a plane crash that experienced many fatalities on that aircraft after the external cargo, a rocket-launched space satellite, exploded under that aircraft "
MasterArray(104, 0, 0, 0, 0) = "4/19/1995"
MasterArray(104, 1, 0, 0, 0) = "Oklahoma City bombing with many fatalities and massive destruction"
MasterArray(105, 0, 0, 0, 0) = "11/15/1995"
MasterArray(105, 1, 0, 0, 0) = "Monica Lewinsky providing material support to coup d’état and subversive activities against the U.S. federal government by foreign power"
MasterArray(106, 0, 0, 0, 0) = "4/7/1996"
MasterArray(106, 1, 0, 0, 0) = "Monica Lewinsky allegedly ends sexual relationship with the President of the USA"
MasterArray(107, 0, 0, 0, 0) = "2/28/1997"
MasterArray(107, 1, 0, 0, 0) = "Monica Lewinsky providing material support to insurrection and subversive activity against the U.S federal government by foreign power"
MasterArray(108, 0, 0, 0, 0) = "6/8/1996"
MasterArray(108, 1, 0, 0, 0) = "USS Cole DDG-67 commissioned and I was the first Commanding Officer of USS Cole DDG-67"
MasterArray(109, 0, 0, 0, 0) = "3/29/1997"
MasterArray(109, 1, 0, 0, 0) = "Monica Lewinsky providing material support to insurrection and subversive activites against the U.S. federal government"
MasterArray(110, 0, 0, 0, 0) = "8/31/1997"
MasterArray(110, 1, 0, 0, 0) = "death of Diana, Princess of Wales, under suspicious circumstances"
MasterArray(111, 0, 0, 0, 0) = "3/15/1998"
MasterArray(111, 1, 0, 0, 0) = "as a U.S. Navy officer I was secretly deployed on an official United States federal assignment"
MasterArray(112, 0, 0, 0, 0) = "3/16/1998"
MasterArray(112, 1, 0, 0, 0) = "as a U.S. Navy officer I was secretly deployed on an official United States federal assignment"
MasterArray(113, 0, 0, 0, 0) = "12/7/1998"
MasterArray(113, 1, 0, 0, 0) = "my official United States federal special undercover operation"
MasterArray(114, 0, 0, 0, 0) = "4/20/1999"
MasterArray(114, 1, 0, 0, 0) = "Columbine Massacre"
MasterArray(115, 0, 0, 0, 0) = "10/12/2000"
MasterArray(115, 1, 0, 0, 0) = "USS Cole DDG-67 sailors killed and I was the first Commanding Officer of USS Cole DDG-67"
MasterArray(116, 0, 0, 0, 0) = "9/11/2001"
MasterArray(116, 1, 0, 0, 0) = "New York City and Pentagon attacked with massive fatalities and destruction"
MasterArray(117, 0, 0, 0, 0) = "2/6/2004"
MasterArray(117, 1, 0, 0, 0) = "my final day working at Microsoft Corporation with my official United States federal undercover identity"
MasterArray(118, 0, 0, 0, 0) = txtTargetDate.Text
MasterArray(118, 1, 0, 0, 0) = txtDesc.Text
Dim a
Dim b
Dim X
Dim z
Dim d1 As Date
Dim d2 As Date
For a = 0 To UBound(MasterArray, 1) '- 1
d1 = MasterArray(a, 0, 0, 0, 0)
For b = 0 To UBound(MasterArray, 1) '- 1
d2 = MasterArray(b, 0, 0, 0, 0)
X = DateDiff("d", d1, d2)
'If x > 0 Then
If Sgn(X) = -1 Then X = (X / -1)
'112109
'lstDays.AddItem (x)
lstMatrix.AddItem (X)
MasterArray(a, 0, b, 0, 1) = d2
MasterArray(a, 0, b, 1, 1) = X
MasterArray(a, 0, b, 2, 1) = d1
'Else: End If
'If MasterArray(a, 0, b, 0, 1) <> "" Then
'ListBox1.AddItem (" a = " & a)
'ListBox1.AddItem (" b = " & b)
'ListBox1.AddItem ("MasterArray(a, 0, b, 0, 1) = " & MasterArray(a, 0, b, 0, 1))
'ListBox1.AddItem ("MasterArray(a, 0, b, 1, 1) = " & MasterArray(a, 0, b, 1, 1))
'ListBox1.AddItem ("MasterArray(a, 0, 0, 0, 0) = " & MasterArray(a, 0, 0, 0, 0))
'ListBox1.AddItem ("MasterArray(a, 1, 0, 0, 0) = " & MasterArray(a, 1, 0, 0, 0))
'Else: End If
Next b
Next a
'For t1 = 0 To 118
'z = MasterArray(118, 0, t1, 1, 1) ' equals number of days difference with day in (118, 0, t1, 0, 1)
'Debug.Print t1 & " " & z ' 63 = 6333
'If z <> "" Then
'For t2 = 0 To 118
'For t3 = 0 To 118
'z1 = MasterArray(t2, 0, t3, 1, 1)
'If z1 <> "" Then
'If z = z1 Then
'ListBox1.AddItem ("z1 = " & MasterArray(t2, 0, t3, 0, 1))
'ListBox1.AddItem ("z1 = " & MasterArray(t2, 0, t3, 1, 1))
'ListBox1.AddItem (MasterArray(118, 0, t1, 0, 1))
'ListBox1.AddItem ("_______________________")
'Else: End If
'Else: End If
'Next t3
'Next t2
'Else: End If
'Next t1
End Sub
Sub lstMatchesClick()
' functionality disabled 22 March 2011
'txtMasterDiff.Text = ""
'Dim z1 As String
'Dim z2 As String
'Dim z3 As String
'Dim t1
'Dim t2
'z1 = txtDaysDiff.Text
'z3 = txtMid.Text
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf
'txtMasterDiff.Text = txtMasterDiff.Text & "From " & txtStartDate.Text & " ( ) To " & txtDiff.Text & " ( ) is " & txtDaysDiff.Text & " days"
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf & "_____________________________________________"
' functionality disabled 22 March 2011
'For t1 = 0 To 118
'For t2 = 0 To 118
'z2 = MasterArray(t1, 0, t2, 1, 1)
'If MasterArray(t1, 0, t2, 1, 1) = z1 Then
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf & "From " & MasterArray(t1, 0, t2, 2, 1) & " ( )" & " To " & MasterArray(t1, 0, t2, 0, 1) & " ( )" & " is " & MasterArray(t1, 0, t2, 1, 1) & " days"
'Else: End If
'Next t2
'Next t1
' functionality disabled 22 March 2011
'For t1 = 0 To 118
'For t2 = 0 To 118
'z2 = MasterArray(t1, 0, t2, 1, 1)
'If MasterArray(t1, 0, t2, 1, 1) = z3 Then
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf & "From " & MasterArray(t1, 0, t2, 2, 1) & " ( )" & " To " & MasterArray(t1, 0, t2, 0, 1) & " ( )" & " is " & MasterArray(t1, 0, t2, 1, 1) & " days"
'txtMasterDiff.Text = txtMasterDiff.Text & vbCrLf & "Mid"
'Else: End If
'Next t2
'Next t1
End Sub
'Private Sub lstMatches_Click()
'lstMatchesClick
'End Sub
Private Sub CommandButton5_Click()
MasterArrayDiff
End Sub
- posted by Kerry Burgess 10:46 PM Pacific Time Spokane Valley Washington USA Friday 29 June 2018
