Wednesday, September 07, 2016
Hope for an answer some day
All right, I think I've found the final flaw in my code that produces the information for these reports.
I'm certain that Microsoft Corbis Bill Gates the male-faggot-wannabe has already seen it along with everything else her-it's minions have stolen from my computers.
As I have written here before in my blog, the flaw doesn't affect past reports, in the sense the reports were incorrect. Rather, the flaw prevented me from identifying all possible results.
The code I developed several years ago, also as I've noted here before.
I have never published the entire code online.
I suppose I could do that. I could put on Dropbox. Wouldn't be much use to the vast majority of you though because I don't have an automated process for installation and I doubt many of you know how to manually install a Microsoft VBA program.
The code I am using now is what I call version 3.
I wrote the code over the span of couple days at my desk a few years ago. Well, quite a few years ago now that I think about it. That was before I moved to Spokane. I have been here now for 3 years this month, incredibly.
The code is complicated, as a small excerpt here illustrates, but it basically just cycles through the items of a solution set I figured out a long time ago.
Over also a couple days many years ago I wrote most of the code for what I call version 4 but never finished. I also created years ago a neat version that ran in Microsoft Word Visual Basic for Applications that was fully automated with the purpose of running over night and creating a document containing the entire results. Version 5 would be after I started teaching myself Java and re-created the application with that and trying to eliminate the need for the Microsoft Outlook distributable. I finished most of version 4 in Visual Basic.Net, eliminating the modal forms of Microsoft Outlook Visual Basic for Applications, but I never did feel like finishing it, despite certain annoying features of my version 3 code, including an additional item in the solution set and also solving for 11/2/1965 as a variable and some other time-saving features in producing the final output, and I don't know if I ever will finish it. As when I started this blog, there was no point to thinking about the future because, as I rationalized over 11 years ago, rational people would read my comments and then jump up and scream out loud that I am right. And then I could get on with what ever the hell else I could be doing right now and I wouldn't need a blog.
Well, that's just a fairy tale to believe I am trying to rationalize with intelligent people. You dullards are really still just a pack of monkeys. Very dangerous monkeys. Monkeys now capable of killing a planet.
'--- 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
''' 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 '''--- ''' 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
- posted by H.V.O.M - Kerry Wayne Burgess 1:33 PM Pacific Time Spokane Valley Washington USA Wednesday 07 September 2016
