Jubilee Years

Hello everyone, I'm new to this site. I appreciate the person or persons that made this site available. I would like to open a discussion about Jubilee years. I understand that the subject of a jubilee was first introduced in the book of Leviticus. The first observation of a jubilee year was after the Israelites entered the promised land. I thought it would be interesting to list every jubilee year from creation to the present. I have experience in computer programming so I made a vbscript that creates a list of jubilee years. The years are marked off in 7 year intervals and after 7 intervals an asterisk is added denoting that in the fall of that year starts a jubilee year. The script prompts the user for a start year and it assumes the year is BC. I have copied the vbscript below for anyone that would like to run it. I used the starting year as 4004.

I chose this year because it was the year chosen by "James Ussher (1581-1656), the famous and respected Archbishop of Ireland in the seventeenth century". Also Sir Isaac Newton did not dispute this year as the year of creation. What is very interesting is that four known jubilee years are included in the list. They are, 1407 BC when the children of Israel entered the promised land, 966 BC when Solomon began the temple, 623 BC a known jubilee year mentioned in the Talmud, and 574 BC Ezekiel's jubilee. My understanding is that jubilee years occur every 49 years where the 50th year (the year of jubilee) is also the first year of the next cycle.

One point of fact is that if jubilee years were every 50 years, 50 being a multiple of 10, every jubilee year would end with the same number, e.g. 4004, 3954, 3904, 3854. That is not how the known jubilee years occur.

Another interesting fact is that from the jubilee cycle when Genesis 6:1-3 occurs is the 4th cycle. Counting jubilee years from there until 2024 AD is 120 jubilee years.

Gen 6:1 Now it came about, when men began to multiply on the face of the land, and daughters were born to them,
Gen 6:2 that the sons of God saw that the daughters of men were beautiful; and they took wives for themselves, whomever they chose.
Gen 6:3 Then the LORD said, "My Spirit shall not strive with man forever, because he also is flesh; nevertheless his days shall be one hundred and twenty years."

The year 2024 is also 70 jubilee years from 1407 BC. It seems likely that 2017 to 2024 is Daniels 70th week.

vbscript, copy the lines below this and paste into a text file. Name the text file as a .vbs file. The script assumes you have MSWord on your PC. If Word isn't there you will see a runtime error when you try to run the script

' Filename: Jubilee Years.vbs
' Author: Rick Jones
' Date 7/25/2015

Const wdOrientLandscape = 1
Const wdLineSpaceSingle = 0
Const wdLineSpaceExactly = 4
Const wdLineSpaceMultiple = 5
Const wdYellow = 7
Const wdGray25 = 16
Const wdWhite = 0
Const wdWrapInline = 7
Const wdWrapNone = 3
Const wdWrapSquare = 0
Const wdWrapThrough = 2
Const wdWrapTight = 1
Const wdWrapTopBottom = 4

Dim iLen
Dim iCount

'String variables
Dim sResult

'Object variables
Dim oWrd
Dim oDoc
Dim oFS
Dim WshShell


sJubileeYear = Inputbox("Enter Jubilee Year BC", "Shemitah Years")
If IsEmpty(sJubileeYear) Then
Wscript.Quit
End If

sJubileeYear = Trim(sJubileeYear)
iLen = Len(sJubileeYear)

For iCount = 1 To iLen
sChr = Mid(sJubileeYear, iCount, 1)
If iCount > 12 Then
Exit For
End If
If sChr >= "0" And sChr <= "9" Then
sStr = sStr & sChr
Else
msgbox "Enter Number Only"
'oIE.quit
'Set oIE = Nothing
Wscript.Quit
End If
Next


Set oWrd = CreateObject("Word.Application")
oWrd.Visible = True
Set oDoc = oWrd.Documents.Add()
'Format the document
oWrd.Selection.Font.Name = "Courier New"
oWrd.Selection.Font.Size = "10"
oWrd.Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceSingle
oWrd.Selection.ParagraphFormat.SpaceBefore = 0
oWrd.Selection.ParagraphFormat.SpaceAfter = 0
oWrd.Selection.PageSetup.LeftMargin = oWrd.InchesToPoints(0.5)
oWrd.Selection.PageSetup.RightMargin = oWrd.InchesToPoints(0.5)
oWrd.Selection.PageSetup.TopMargin = oWrd.InchesToPoints(0.5)
oWrd.Selection.PageSetup.BottomMargin = oWrd.InchesToPoints(0.5)
oWrd.Selection.PageSetup.Orientation = wdOrientLandscape

'Start writing to the document
'build a 1 row 1 col table
Set oRange = oWrd.Selection.Range
oWrd.Selection.Tables.Add oRange,1,1
oWrd.ActiveWindow.View.TableGridlines = True
Set oTable = oWrd.Selection.Tables(1)

'Set the width of the Column
oTable.Columns.Item(1).SetWidth 80,0
oTable.AutoFormat 1,,,,0,,,,,0

'now loop through years, add entry for every 7th year
'highlight every 7th entry signifying Jubilee
'watch for crossing of BC to AD, no year zero
'continue looping until 2024 AD

'Assume the year entered is the first year of a sabbath cycle

i = 1
j = 0
k = 1
Do While sJubileeYear > 0
If j mod 7 = 0 And j <> 0 Then
sText = sJubileeYear
oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
'sText = sJubileeYear - 1 & " * " & k
sText = " * " & k
k = k + 1
Else
sText = sJubileeYear
End If

oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
j = j + 1

sJubileeYear = sJubileeYear - 7

Loop

Select Case sJubileeYear
Case 0
sJubileeYear = 1
Case -1
sJubileeYear = 2
Case -2
sJubileeYear = 3
Case -3
sJubileeYear = 4
Case -4
sJubileeYear = 5
Case -5
sJubileeYear = 6
Case -6
sJubileeYear = 7
End Select

If j mod 7 = 0 Then
sText = sJubileeYear
oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
sText = sJubileeYear + 1 & " AD * " & k
k = k + 1
Else
sText = sJubileeYear & " AD"
End If

oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
j = j + 1

Do While sJubileeYear < 2030
sJubileeYear = sJubileeYear + 7
If j mod 7 = 0 Then
sText = sJubileeYear
oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
'sText = sJubileeYear + 1 & " * " & k
sText = " * " & k
k = k + 1
Else
sText = sJubileeYear
End If
oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
j = j + 1
Loop

'create the filespec
Set WshShell = WScript.CreateObject("WScript.Shell")
sStr = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\JubileeYears.docx"

'save the file if it already doesn't exist
Set oFS = CreateObject("Scripting.FileSystemObject")
If (oFS.FileExists(sStr)) Then
'do nothing
Else
oDoc.SaveAs(sStr)
End If

'clean up memory
Set oFS = Nothing
Set WshShell = Nothing
Set oDoc = Nothing
Set oWrd = Nothing

Msgbox "Script is done"