Remarks at the Victims of Communism Memorial Dedication

from my private journal as Kerry Burgess: 03/28/07 5:50 AM


That's what the POW guards always say: Today, Ray. You're going home today, Ray. You'll be eating dinner with your family tonight, Ray.










https://www.facebook.com/kerry.burgess.790/posts/2110845719190686

Facebook

Kerry Burgess

Friday, June 29, 2018 at 4:20 pm

http://transcripts.cnn.com/TRANSCRIPTS/1806/29/wolf.01.html

CNN

TRANSCRIPTS

WOLF

Aired June 29, 2018 - 13:00 ET

[13:00:08] ANNOUNCER: This is CNN breaking news.

WOLF BLITZER, CNN ANCHOR: Hello, I'm Wolf Blitzer. It's 1:00 p.m. here in Washington. Wherever you're watching from around the world, thanks very much for joining us.

&&&
&&&

That quote came from Tom Marquardt, a friend and former colleague of the victims of the shooting. He's joining us now.

Thanks so much. And our deepest condolences to you, Tom. I know you're the former editor and publisher of "The Capital Gazette."

What was your immediate reaction when you heard this awful, awful news?

TOM MARQUARDT, FORMER EDITOR AND PUBLISHER, "CAPITAL GAZETTE": It's hard to describe, Wolf. I mean, you know, it is a -- it is a blow -- it was a blow that is really difficult to describe. And even after all this time I've had to really think about it. But, you know, first there is the deaths -- several deaths of people who you were very close to, who you worked alongside of for, in some cases, decades. And people who you hired. And then, on top of that, comes the news that the shooter was someone who you also knew. Not by sight, not personally, but through the record. And so, you know, it was one whammy after another, quite frankly.

BLITZER: Yes. And I want to get to that in a moment. The newspaper, to its enormous credit, they did put out an edition today. The front page has the pictures of the five who were killed. How important was it, do you believe, Tom, for the staffers there to put out a newspaper on this day?

MARQUARDT: Well, I think it was very important because it demonstrates that through thick or thin, no matter what happens, they don't lose sight of the mission.

&&&
&&&

Did you believe at the time, though, that he was a physical threat to you and others at the newspaper?

MARQUARDT: Well, when the story was written by the reporter, I mean, we had a very factual story about what he had done. And there was no question, if you read that story, that his motions were extreme. I mean the woman who he was stalking felt personally threatened and feels she lost her job because of what he had done. So, I mean, just looking at that, I think anybody in their right mind would find evidence of somebody who really had some mental issues. And I think all that came out pursuant to the case that he filed. And we were seeing evidence of that in his postings.

BLITZER: And you did go to the police and discuss this with them, right?

MARQUARDT: That's correct. I mean, we were -- we were taking a posture that the less said the better, because we felt that if we had made as much of an issue as we could about this, that we would actually inflame Mr. Ramos and that he would retaliate against us at the time. So our attorney was advising us to let the courts take this case on and let it run through the courts without us making any comment, either in a newspaper or personally.

So, you know, when it came to some of these threats, especially the last two that I had mentioned, I thought he had crossed a line. And, you know, being fearful of what he could do to us and my family

&&&
&&&
&&&

MARQUARDT: I thought the most prudent course was to contact the police.

***
***
***
***
***
***

from the private journal of Kerry Burgess: 11/1/2006 3:14 PM
May 4, 2005, was the day I went to the Kent Police department for help. I named George W. Bush specifically as one of the people harassing me. The policeman didn’t ask me any questions. He dumped me off at the St. Francis hospital in Federal Way where the first thing they did was secretly drug my food.

***
***
***
***
***
***

From 3/3/1959 ( the birthdate in Hawaii of my biological brother Thomas Reagan ) To 10/10/1998 ( Joseph Cates deceased ) is 14466 days

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 6/11/2005 is 14466 days

&&&

[ See also: http://hvom.blogspot.com/2016/09/snowden.html ]
[ See also: http://hvom.blogspot.com/2017/01/stanley-amour-stepfather-from-russia.html ]

2016September17_Chloe55_DSC00738.jpg

coward.jpg circa 2007 illustration by Kerry Burgess from:

http://www.navy.mil/management/photodb/photos/070904-N-1531D-010.jpg

http://www.navy.mil/view_image.asp?id=50307

070904-N-1531D-010

DIEGO GARCIA (Sept. 4, 2007)

punk coward.jpg circa 2007 illustration by Kerry Burgess from:

http://www.navy.mil/management/photodb/photos/070904-N-1531D-014.jpg

http://www.navy.mil/view_image.asp?id=50308

070904-N-1531D-014

DIEGO GARCIA (Sept. 4, 2007)










http://hvom.blogspot.com/2007/09/george-w-bush-is-world-class-thief.html

Posted by Kerry Burgess

WEDNESDAY, SEPTEMBER 05, 2007

George W. Bush is a world-class thief, coward, and murderer.

Posted by Kerry Burgess at 6:05 PM










http://hvom.blogspot.com/2007/09/portrait-of-cowardly-murderer.html

Posted by Kerry Burgess

WEDNESDAY, SEPTEMBER 05, 2007

Portrait of a cowardly murderer.

Posted by Kerry Burgess at 1:20 AM










From 5/4/2005 ( the incident at the police department City of Kent Washington State after my voluntary approach to report material criminal activity directed against my person and I am secretly drugged against my consent ) To 6/12/2007 is 769 days

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 12/11/1967 ( premiere US film "Guess Who's Coming to Dinner" ) is 769 days



From 11/19/1953 ( Dwight Eisenhower - Remarks Upon Receiving an Honorary Degree From Catholic University ) To 6/29/1995 ( the Mir space station docking of the United States space shuttle Atlantis orbiter vehicle mission STS-71 includes me Kerry Wayne Burgess the United States Marine Corps officer and United States STS-71 pilot astronaut and my 3rd official United States National Aeronautics Space Administration orbital flight of 4 overall ) is 15197 days

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 6/12/2007 is 15197 days



From 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 ) To 6/12/2007 is 4557 days

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 4/25/1978 ( premiere US TV series pilot "Vega$" ) is 4557 days



From 5/12/1953 ( premiere US film "The 49th Man" ) To 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 ) is 15197 days

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 6/12/2007 is 15197 days



From 12/25/1971 ( George Walker Bush the purveyor of illegal drugs strictly for his personal profit including the trafficking of massive amounts of cocaine into the United States confined to federal prison in Mexico for illegally smuggling narcotics in Mexico ) To 6/12/2007 is 12953 days

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 4/20/2001 ( premiere US film "The Hidden Wars of Desert Storm" ) is 12953 days



From 1/11/1957 ( Jack Gilbert Graham dead ) To 6/12/2007 is 18414 days

18414 = 9207 + 9207

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 1/17/1991 ( the date of record of my United States Navy Medal of Honor as Kerry Wayne Burgess chief warrant officer United States Marine Corps circa 1991 officially the United States Apache attack helicopter pilot ) is 9207 days



From 1/11/1957 ( Jack Gilbert Graham dead ) To 6/12/2007 is 18414 days

18414 = 9207 + 9207

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 1/17/1991 ( RACKETEER INFLUENCED AND CORRUPT ORGANIZATIONS US Title 18 - the Persian Gulf War begins as scheduled severe criminal activity against the United States of America ) is 9207 days



From 7/19/1989 ( the United Airlines Flight 232 crash in Sioux City Iowa ) To 6/12/2007 is 6537 days

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 9/26/1983 ( premiere US TV series "AfterMASH" ) is 6537 days



From 7/19/1989 ( the United Airlines Flight 232 crash in Sioux City Iowa ) To 6/12/2007 is 6537 days

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 9/26/1983 ( premiere US TV series "Emerald Point N.A.S." ) is 6537 days



From 9/4/1976 ( the unpublished true birthdate of Beyonce Knowles ) To 6/12/2007 is 11238 days

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 8/9/1996 ( premiere US film "Escape from L.A." ) is 11238 days



From 9/4/1976 ( George Walker Bush the purveyor of illegal drugs strictly for his personal profit including the trafficking of massive amounts of cocaine into the United States arrested again by police in the United States ) To 6/12/2007 is 11238 days

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 8/9/1996 ( premiere US film "Escape from L.A." ) is 11238 days



From 12/25/1991 ( as United States Marine Corps chief warrant officer Kerry Wayne Burgess I was prisoner of war in Croatia ) To 6/12/2007 is 5648 days

5648 = 2824 + 2824

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 7/27/1973 ( Charles the Prince of Wales becomes Sub-Lieutenant United Kingdom Royal Navy ) is 2824 days



http://www.presidency.ucsb.edu/ws/index.php?pid=75320

The American Presidency Project

George W. Bush

XLIII President of the United States: 2001 - 2009

Remarks at the Victims of Communism Memorial Dedication

June 12, 2007

Thank you all for coming. Please be seated. Dr. Edwards, thanks for your kind words. Congressman Lantos, no better friend to freedom, by the way; Congressman Rohrabacher, the same. Members of the Czech and Hungarian Parliaments; Ambassadors; distinguished guests; and more importantly, the survivors of Communist oppression: I'm honored to join you on this historic day.

And here in the company of men and women who resisted evil and helped bring down an empire, I proudly accept the Victims of Communism Memorial on behalf of the American people.

The 20th century will be remembered as the deadliest century in human history. And the record of this brutal era is commemorated in memorials across this city. Yet until now, our Nation's Capital had no monument to the victims of imperial communism, an ideology that took the lives of an estimated 100 million innocent men, women, and children. So it's fitting that we gather to remember those who perished at communism's hands and dedicate this memorial that will enshrine their suffering and sacrifice in the conscience of the world.

Building this memorial took more than a decade of effort, and its presence in our Capital is a testament to the passion and determination of two distinguished Americans: Lev Dobriansky, whose daughter Paula is here—give your dad our best— and Dr. Lee Edwards. They faced setbacks and challenges along the way; yet they never gave up, because in their hearts, they heard the voices of the fallen crying out, "Remember us."

These voices cry out to all, and they're legion. The sheer numbers of those killed in communism's name are staggering, so large that a precise count is impossible. According to the best scholarly estimate, communism took the lives of tens of millions of people in China and the Soviet Union and millions more in North Korea, Cambodia, Africa, Afghanistan, Vietnam, Eastern Europe, and other parts of the globe.

Behind these numbers are human stories of individuals with families and dreams whose lives were cut short by men in pursuit of totalitarian power. Some of communism's victims are well-known. They include a Swedish diplomat named Raoul Wallenberg, who saved 100,000 Jews from the Nazis, only to be arrested on Stalin's orders and sent to Moscow's Lubyanka Prison, where he disappeared without a trace. They include a Polish priest named Father Popieluszko, who made his Warsaw church a sanctuary for the Solidarity underground, and was kidnaped and beaten and drowned in the Vistula by the secret police.

The sacrifices of these individuals haunt history, and behind them are millions more who were killed in anonymity by communism's brutal hand. They include innocent Ukrainians starved to death in Stalin's Great Famine or Russians killed in Stalin's purges, Lithuanians and Latvians and Estonians loaded onto cattle cars and deported to Arctic death camps of Soviet communism. They include Chinese killed in the Great Leap Forward and the Cultural Revolution, Cambodians slain in Pol Pot's Killing Fields, East Germans shot attempting to scale the Berlin Wall in order to make it to freedom, Poles massacred in the Katyn Forest, and Ethiopians slaughtered in the "Red Terror," Miskito Indians murdered by Nicaragua's Sandinista dictatorship, and Cuban balseros who drowned escaping tyranny. We'll never know the names of all who perished, but at this sacred place, communism's unknown victims will be consecrated to history and remembered forever.

We dedicate this memorial because we have an obligation to those who died to acknowledge their lives and honor their memory. The Czech writer Milan Kundera once described the struggle against communism as "the struggle of memory against forgetting." Communist regimes did not— did more than take their victims' lives, they sought to steal their humanity and erase their memory. With this memorial, we restore their humanity, and we reclaim their memory. With this memorial, we say of communism's innocent and anonymous victims: "These men and women lived, and they shall not be forgotten."

We dedicate this memorial because we have an obligation to future generations to record the crimes of the 20th century and ensure they're never repeated. In this hallowed place, we recall the great lessons of the cold war: that freedom is precious and cannot be taken for granted, that evil is real and must be confronted, and that given the chance, men commanded by harsh and hateful ideologies will commit unspeakable crimes and take the lives of millions.

It's important that we recall these lessons, because the evil and hatred that inspired the death of tens of millions of people in the 20th century is still at work in the world. We saw its face on September the 11th, 2001. Like the Communists, the terrorists and radicals who attacked our Nation are followers of a murderous ideology that despises freedom, crushes all dissent, has expansionist ambitions, and pursues totalitarian aims. Like the Communists, our new enemies believe the innocent can be murdered to serve a radical vision. Like the Communists, our new enemies are dismissive of free peoples, claiming that those of us who live in liberty are weak and lack the resolve to defend our free way of life. And like the Communists, the followers of violent Islamic radicalism are doomed to fail. By remaining steadfast in freedom's cause, we will ensure that a future American President does not have to stand in a place like this and dedicate a memorial to the millions killed by the radicals and extremists of the 21st century.

We can have confidence in the power of freedom because we've seen freedom overcome tyranny and terror before. Dr. Edwards said President Reagan went to Berlin. He was clear in his statement. He said, "Tear down the wall," and 2 years later the wall fell. And millions across Central and Eastern Europe were liberated from unspeakable oppression. It's appropriate that on the anniversary of that speech, that we dedicate a monument that reflects our confidence in freedom's power.

The men and women who designed this memorial could have chosen an image of repression for this space, a replica of the wall that once divided Berlin, or the frozen barracks of the Gulag, or a killing field littered with skulls. Instead, they chose an image of hope, a woman holding a lamp of liberty. She reminds us of the victims of communism and also of the power that overcame communism.

Like our Statue of Liberty, she reminds us that the flame for freedom burns in every human heart, and that it is a light that cannot be extinguished by the brutality of terrorists or tyrants. And she reminds us that when an ideology kills tens of millions of people and still ends up being vanquished, it is contending with a power greater than death. She reminds us that freedom is the gift of our Creator, freedom is the birthright of all humanity, and in the end, freedom will prevail.

I thank each of you who made this memorial possible for your service in freedom's cause. I thank you for your devotion to the memory of those who lost their lives to Communist terror. May the victims of communism rest in peace. May those who continue to suffer under communism find their freedom. And may the God who gave us liberty bless this great memorial and all who come to visit her.

God bless.

NOTE: The President spoke at 10:35 a.m.










https://www.imdb.com/title/tt0061735/releaseinfo

IMDb


Guess Who's Coming to Dinner (1967)

Release Info

USA 11 December 1967 (New York City, New York)

https://www.imdb.com/title/tt0061735/fullcredits

IMDb


Guess Who's Coming to Dinner (1967)

Full Cast & Crew

Sidney Poitier ... John Prentice



- posted by Kerry Burgess 5:28 PM Pacific Time Spokane Valley Washington USA Saturday 30 June 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