Jubilee Years

Success! Hurray! The last post you provided with the information about how to unhide the extensions worked out just great, and from there I was able to get your timeline to come up using Notepad. Great work!

I agree with the theory that Ussher's calculation of 4004 BC is a very good estimation of the date for creation. I also hold to the theory that there are to be 7000 years of life on this Earth (6000 years of mankind's history + 1000 year reign of Jesus), just as there were 6 days of creation and a 7th day when God rested.

Have you also tried the timeline with a 50-year period that doesn't use the 50th year as the 1st year of the next cycle? I would be fascinated to know how that compares in numbers of jubilees and where they would be placed on the timeline.

I do have a 50 year version, I have copied it below.
' Filename: Jubilee Years 50.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
sJubileeYear = sJubileeYear - 1
sText = sJubileeYear & " * " & 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
sJubileeYear = sJubileeYear + 1
sText = sJubileeYear & " 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 < 2100
sJubileeYear = sJubileeYear + 7
If j mod 7 = 0 Then
sText = sJubileeYear
oTable.Rows.Add
oTable.Cell(i,1).Range.Text = sText
i = i + 1
sJubileeYear = sJubileeYear + 1
sText = sJubileeYear & " * " & 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\JubileeYears50.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"

From what I know about the two known jubilees in the Talmud, (623 and 574) which are separated by 49 years, that and the multiple of ten occurances of jubilees when using the 50 year cycle, tells me that 49 years (7 x 7) versus 50 years (5 x 10 or 2 x 25) is likely what God intended.
"Josiah came to the throne in 641t (a date that was established by Edwin Thiele8), and his thirty-one year reign ended in 610t. His eighteenth year, the year that the Talmud gives for a Jubilee, was therefore 641t – 18 = 623t. This is exactly fortynine years before the date of the other Jubilee mentioned in the Talmud, which was 574t in the notation that has been introduced here."
www.rcyoung.org/articles/jubilee.pdf
(The Talmud’s Two Jubilees and Their Relevance to the Date of the Exodus)

Just for fun I adjusted the script to run into the last millenium and the last jubilee will likely be 144 in the year 3057. The 144 is counting from the creation date of 4004 BC. Then there will be a new heaven and a new earth.

Gary, is this the error you were getting?
Line: 186
Char: 17
Error: Expected statement
Code: 800A0400
Source: Microsoft VBScript compilation error

If so, what's happening is a line was added during the copy and paste that is not part of the script. If you edit the script file you will find the bad line at the end of the file (line 186). It reads something like "Read more: unsealed.boards.net/thread/121/jubilee-years#ixzz4fSmP1IxY". Just delete that line from the file, save, and then try it again.

If you want the script to run into the year 3000 AD, just change the line in the script that reads "Do While sJubileeYear < 2030" to "Do While sJubileeYear < 3010"

Editing a vbs file is a little tricky. Just right click your mouse on the file and select the 'Edit' item from the menu that appears. The script will open in Notepad for editing.

Welcome to the forum, johan! Your English looks very good. What is your native language?