A. Date 1: BCE Century Dating
If(Length(Trim(cuDate1ceM)) = 0,
Case(
Position(DTE,"Ptolemaic-Roman BCE iv-early iii",1,1) =1 , "cuDate1 | 1 | -399",
Position(DTE,"Ptolemaic-Roman BCE ii-i",1,1) =1 , "cuDate1 | 1 | -199",
Position(DTE,"Ptolemaic-Roman BCE ii-CE i",1,1) =1 , "cuDate1 | 1 | -199",
Position(DTE,"Ptolemaic-Roman BCE i",1,1) =1 , "cuDate1 | 1 | -99",
Position(DTE,"Ptolemaic-Roman BCE late ii-CE i",1,1) =1 , "cuDate1 | 1 | -125",
Position(DTE,"Ptolemaic-Roman [",1,1) =1, "cuDate1 | 1 | -399",
Trim(DTE) = "Ptolemaic-Roman" or Trim(DTE) = "Ptolemaic-Roman (?)", "cuDate1 | 1 | -399",
Position(DTE,"Ptolemaic BCE v",1,1)=1, "cuDate1 | 1 | -499",
Position(DTE,"Ptolemaic BCE iv",1,1)=1, "cuDate1 | 1 | -399",
Position(DTE,"Ptolemaic BCE iv-early iii",1,1) = 1, "cuDate1 | 1 | -399",
Position(DTE,"Ptolemaic BCE mid-iii",1,1) =1 , "cuDate1 | 1 | -250",
Position(DTE,"Ptolemaic BCE late iii",1,1) =1 , "cuDate1 | 1 | -275",
Position(DTE,"Ptolemaic BCE iii",1,1)=1, "cuDate1 | 1 | -299",
Position(DTE,"Ptolemaic BCE early ii",1,1) = 1, "cuDate1 | 1 | -199",
Position(DTE,"Ptolemaic BCE mid ii",1,1)=1, "cuDate1 | 1 | -150",
Position(DTE,"Ptolemaic BCE ca. ii",1,1)=1, "cuDate1 | 1 | -199",
Position(DTE,"Ptolemaic BCE late ii",1,1)=1, "cuDate1 | 1 | -125",
Position(DTE,"Ptolemaic BCE ii",1,1)=1, "cuDate1 | 1 | -199",
Position(DTE,"Ptolemaic BCE early i",1,1) = 1, "cuDate1 | 1 | -99",
Position(DTE,"Ptolemaic BCE i",1,1) = 1, "cuDate1 | 1 | -99",
Position(DTE,"Ptolemaic [",1,1) = 1, "cuDate1 | 1 | -499",
Trim(DTE) = "Ptolemaic" or Trim(DTE) = "Ptolemaic (?)",
"cuDate1 | 1 | -499",
Position(DTE,"Roman BCE ii",1,1), "cuDate1 | 1 | -199",
Position(DTE,"Roman BCE i-early ii",1,1), "cuDate1 | 1 | -99",
Position(DTE,"Roman BCE i-ii",1,1), "cuDate1 | 1 | -99",
Position(DTE,"Roman BCE late i-CE early i",1,1), "cuDate1 | 1 | -25",
Position(DTE,"Roman BCE late i",1,1), "cuDate1 | 1 | -25",
Position(DTE,"Roman BCE i",1,1) = 1, "cuDate1 | 1 | -99"
)
,"")
B. Date 1: BCE Numeric Dating
If(Length(Trim(cuDatebce))= 0 and Length(Trim(cuDatece)) = 0 and Length(Trim(cuDate1ceM)) = 0 and Position(DTE,"BCE",1,1),
Case(
Position(DTE,"Ptolemaic BCE ca. ",1,1), "cuDate1 | 1 | -" & Trim(Middle(DTE,Position(DTE,"ca. ",1,1)+4,3)),
Position(DTE, ", ",1,1) > 0 and Position(DTE,", ",1,1) <= Position(DTE,"BCE",1,1) + 8, "cuDate1 | 1 | -" & Trim(Middle(DTE,Position(DTE,", ",1,1)-3, 3)),
Position(DTE,"Ptolemaic BCE ",1,1), "cuDate1 | 1 | -" & Trim(Middle(DTE,Position(DTE,"Ptolemaic BCE ",1,1)+14,
Case(
Position(DTE,"-",1,1) = Position(DTE,"BCE",1,1) + 5, 1,
Position(DTE,"-",1,1) = Position(DTE,"BCE",1,1) + 6, 2,
Position(DTE,"-",1,1) = Position(DTE, "BCE",1,1) + 7,3,
Position(DTE,"-",1,1) = Position(DTE, "BCE",1,1) + 8,4,
Position(DTE,"-",1,1) = 0, 3)
)),
Position(DTE,"Roman BCE ",1,1), "cuDate1 | 1 | -" & Trim(Middle(DTE,Position(DTE,"BCE ",1,1) +4,
Case(
Position(DTE,"-",1,1) = Position(DTE,"BCE",1,1) + 5, 1,
Position(DTE,"-",1,1) = Position(DTE,"BCE",1,1) + 6, 2,
Position(DTE,"-",1,1) = Position(DTE, "BCE",1,1) + 7,3,
Position(DTE,"-",1,1) = Position(DTE, "BCE",1,1) + 8,4,
Position(DTE,"-",1,1) = 0, 3)
))
)
,"")
C. Date 1: CE Century Dating
If(Length(Trim(cuDate1ceM)) = 0,
Case(
Position(DTE,"Medieval CE xiv",1,1) = 1, "cuDate1 | 1 | 1300",
Position(DTE,"Medieval CE xiii",1,1) = 1, "cuDate1 | 1 | 1200",
Position(DTE,"Medieval CE xii",1,1) = 1, "cuDate1 | 1 | 1100",
Position(DTE,"Medieval CE xi",1,1) = 1, "cuDate1 | 1 | 1000",
Position(DTE,"Medieval CE x",1,1) = 1, "cuDate1 | 1 | 900",
Position(DTE,"Medieval CE ix-x",1,1) = 1, "cuDate1 | 1 | 800",
Position(DTE,"Medieval CE ix",1,1) = 1, "cuDate1 | 1 | 800",
Position(DTE,"Medieval CE early viii",1,1) =1 , "cuDate1 | 1 | 700",
Position(DTE,"Medieval CE viii-ix",1,1) = 1, "cuDate1 | 1 | 700",
Position(DTE,"Medieval CE viii",1,1) = 1, "cuDate1 | 1 | 700",
Trim(DTE) = "Medieval" or Trim(DTE)="Medieval (?)", "cuDate1 | 1 | 600",
Position(DTE,"Byzantine-Medieval CE vi-viii",1,1)=1, "cuDate1 | 1 | 500",
Position(DTE,"Byzantine-Medieval CE vi-vii",1,1) =1 , "cuDate1 | 1 | 500",
Position(DTE,"Byzantine-Medieval CE v-vii",1,1)=1, "cuDate1 | 1 | 400",
Position(DTE,"Byzantine-Medieval CE vii",1,1)=1, "cuDate1 | 1 | 600",
Trim(DTE) = "Byzantine-Medieval" or Trim(DTE)="Byzantine-Medieval (?)", "cuDate1 | 1 | 300",
Position(DTE,"Byzantine (Late)",1,1)=1, "cuDate1 | 1 | 500",
Position(DTE,"Byzantine CE vii",1,1) = 1, "cuDate1 | 1 | 600",
Position(DTE,"Byzantine CE vi",1,1) = 1, "cuDate1 | 1 | 500",
Position(DTE,"Byzantine CE v",1,1) = 1, "cuDate1 | 1 | 400",
Position(DTE,"Byzantine CE early iv",1,1)=1, "cuDate1 | 1 | 300",
Position(DTE,"Byzantine CE iv",1,1) =1 , "cuDate1 | 1 | 300",
Position(DTE,"Byzantine CE late iv-early v",1,1) =1 , "cuDate1 | 1 | 375",
Position(DTE,"Byzantine [",1,1)=1 or Position(DTE,"Byzantine [",1,1)=1,"cuDate1 | 1 | 400",
Trim(DTE) = "Byzantine" or Trim(DTE)="Byzantine (?)", "cuDate1 | 1 | 300",
Position(DTE,"Roman-Byzantine CE ii-iv",1,1)=1, "cuDate1 | 1 | 100",
Position(DTE,"Roman-Byzantine CE iii-iv",1,1)=1, "cuDate1 | 1 | 200",
Position(DTE,"Roman-Byzantine [",1,1)=1 or Position(DTE,"Roman-Byzantine [",1,1)=1,"cuDate1 | 1 | 200",
Trim(DTE) = "Roman-Byzantine" or Trim(DTE)="Roman-Byzantine (?)", "cuDate1 | 1 | 200",
Position(DTE,"Roman CE mid-iii",1,1)=1, "cuDate1 | 1 | 250",
Position(DTE,"Roman CE late-iii",1,1)=1, "cuDate1 | 1 | 275",
Position(DTE,"Roman CE late iii",1,1)=1, "cuDate1 | 1 | 275",
Position(DTE,"Roman CE ii-iii",1,1) = 1, "cuDate1 | 1 | 100",
Position(DTE,"Roman CE ca. ii",1,1) = 1, "cuDate1 | 1 | 100",
Position(DTE,"Roman CE i-early ii",1,1) = 1, "cuDate1 | 1 | 1",
Position(DTE,"Roman CE i-ii",1,1) = 1, "cuDate1 | 1 | 1",
Position(DTE,"Roman CE iv",1,1) = 1, "cuDate1 | 1 | 300",
Position(DTE,"Roman CE iii",1,1) = 1, "cuDate1 | 1 | 200",
Position(DTE,"Roman CE ii",1,1) = 1, "cuDate1 | 1 | 100",
Position(DTE,"Roman CE mid-ii",1,1)=1, "cuDate1 | 1 | 150",
Position(DTE,"Roman CE late i",1,1) = 1, "cuDate1 | 1 | 75",
Position(DTE,"Roman CE mid-i",1,1)=1, "cuDate1 | 1 | 50",
Position(DTE,"Roman CE i",1,1) = 1, "cuDate1 | 1 | 1",
Position(DTE,"Roman [",1,1)=1 or Position(DTE,"Roman [",1,1)=1,"cuDate1 | 1 | -99",
Trim(DTE) = "Roman" or Trim(DTE) = "Roman (?)", "cuDate1 | 1 | -99",
Position(DTE,"Roman-Byzantine-Medieval CE vi-viii",1,1)=1, "cuDate1 | 1 | 500",
Position(DTE," CE iv",1,1), "cuDate1 | 1 | 300",
Position(DTE," CE early iii",1,1), "cuDate1 | 1 | 200",
Position(DTE," CE early ii",1,1), "cuDate1 | 1 | 100",
Position(DTE," CE early i",1,1), "cuDate1 | 1 | 1",
Position(DTE," CE late iii",1,1), "cuDate1 | 1 | 275",
Position(DTE," CE late ii",1,1),"cuDate1 | 1 | 175",
Position(DTE," CE late i",1,1), "cuDate1 | 1 | 75"
)
,"")
D. Date 1: CE Numeric Dating
If(Length(Trim(cuDatece)) = 0 and Length(Trim(cuDate1ceM)) = 0 and Position(DTE,"BCE",1,1) = 0,
Case(
Position(DTE, ", ",1,1) > 0 and Position(DTE,", ",1,1) < 16, "cuDate1 | 1 | " & Trim(Middle(DTE, Position(DTE,"CE",1,1)+2,
Case(
Position(DTE,", ",1,1) = Position(DTE,"CE",1,1) + 5, 3,
Position(DTE,", ",1,1) = Position(DTE, "CE",1,1) + 6, 4,
Position(DTE,", ",1,1) = Position(DTE, "CE",1,1) + 7, 5,
Position(DTE,", ",1,1) = 0, 3)
)),
Position(DTE,"CE ca.",1,1) > 0,
"cuDate1 | 1 | " & Trim(Middle(DTE,Position(DTE,"CE ca. ",1,1)+7,
Case(
Position(DTE,"-",1,1) = Position(DTE,"ca.",1,1) + 6, 2,
Position(DTE,"-",1,1) = Position(DTE, "ca.",1,1) + 7,3,
Position(DTE,"-",1,1) = Position(DTE, "ca.",1,1) + 8,4,
Position(DTE,"-",1,1) = 0, 3)
)),
Position(DTE,"CE",1,1) > 0,"cuDate1 | 1 | " & Trim(Middle(DTE,Position(DTE,"CE",1,1)+3,
Case(
Position(DTE,"-",1,1) = Position(DTE,"CE",1,1) + 5, 2,
Position(DTE,"-",1,1) = Position(DTE, "CE",1,1) + 6,3,
Position(DTE,"-",1,1) = Position(DTE, "CE",1,1) + 7,4,
Position(DTE,"-",1,1) = 0, 3)
))
)
,"")
E. Date 2: Century Dating
If(Length(Trim(cuDate2ceM)) = 0,
Case(
Position(DTE,"Medieval CE xiii-xiv",1,1) = 1, "cuDate1 | 1 | 1399",
Position(DTE,"Medieval CE xii-xiv",1,1) = 1, "cuDate1 | 1 | 1399",
Position(DTE,"Medieval CE xiv",1,1) = 1, "cuDate1 | 1 | 1399",
Position(DTE,"Medieval CE xiii",1,1) = 1, "cuDate1 | 1 | 1299",
Position(DTE,"Medieval CE xii",1,1) = 1, "cuDate1 | 1 | 1199",
Position(DTE,"Medieval CE xi",1,1) = 1, "cuDate1 | 1 | 1999",
Position(DTE,"Medieval CE x-xi",1,1) = 1, "cuDate2 | 1 | 1099",
Position(DTE,"Medieval CE x",1,1) = 1, "cuDate2 | 1 | 999",
Position(DTE,"Medieval CE ix-x",1,1) = 1, "cuDate2 | 1 | 999",
Position(DTE,"Medieval CE ix",1,1) = 1, "cuDate2 | 1 | 899",
Position(DTE,"Medieval CE early viii",1,1) =1 , "cuDate2 | 1 | 725",
Position(DTE,"Medieval CE viii-ix",1,1) = 1, "cuDate2 | 1 | 899",
Position(DTE,"Medieval CE viii",1,1) = 1, "cuDate2 | 1 | 799",
Trim(DTE) = "Medieval" or Trim(DTE)="Medieval (?)", "cuDate2 | 1 | 1100",
Position(DTE,"Byzantine-Medieval CE vii-viii",1,1)=1, "cuDate2 | 1 | 799",
Position(DTE,"Byzantine-Medieval CE vi-viii",1,1)=1, "cuDate2 | 1 | 799",
Position(DTE,"Byzantine-Medieval CE v-vii",1,1)=1, "cuDate2 | 1 | 699",
Position(DTE,"Byzantine-Medieval CE iv-vii",1,1)=1, "cuDate2 | 1 | 699",
Position(DTE,"Byzantine-Medieval CE vii",1,1)=1, "cuDate2 | 1 | 699",
Position(DTE,"Byzantine-Medieval CE vi-vii",1,1) =1 , "cuDate2 | 1 | 699",
Trim(DTE) = "Byzantine-Medieval" or Trim(DTE)="Byzantine-Medieval (?)", "cuDate2 | 1 | 899",
Position(DTE,"Byzantine CE v-vi",1,1) =1 , "cuDate2 | 1 | 599",
Position(DTE,"Byzantine CE early iv",1,1)=1, "cuDate2 | 1 | 325",
Position(DTE,"Byzantine CE iv-vi",1,1) =1 , "cuDate2 | 1 | 599",
Position(DTE,"Byzantine CE iv-v",1,1) =1 , "cuDate2 | 1 | 499",
Position(DTE,"Byzantine CE iv",1,1) =1 , "cuDate2 | 1 | 399",
Position(DTE,"Byzantine CE vii",1,1) = 1, "cuDate2 | 1 | 699",
Position(DTE,"Byzantine CE vi-vii",1,1) = 1, "cuDate2 | 1 | 699",
Position(DTE,"Byzantine CE vi",1,1) = 1, "cuDate2 | 1 | 599",
Position(DTE,"Byzantine CE v-vii",1,1) = 1, "cuDate2 | 1 | 699",
Position(DTE,"Byzantine CE v",1,1) = 1, "cuDate2 | 1 | 499",
Position(DTE,"Byzantine CE late iv-early v",1,1) = 1, "cuDate2 | 1 | 425",
Position(DTE,"Byzantine (Late)",1,1)=1 or Position(DTE,
"Byzantine (Late)",1,1)=1,"cuDate2 | 1 | 699",
Position(DTE,"Byzantine [",1,1)=1 or Position(DTE,"Byzantine [",1,1)=1,
"cuDate2 | 1 | 699",
Trim(DTE) = "Byzantine" or Trim(DTE)="Byzantine (?)", "cuDate2 | 1 | 699",
Position(DTE,"Roman-Byzantine CE iv",1,1)=1, "cuDate2 | 1 | 399",
Position(DTE,"Roman-Byzantine CE late iii-iv",1,1)=1, "cuDate2 | 1 | 399",
Position(DTE,"Roman-Byzantine CE late iii-early iv",1,1)=1, "cuDate2 | 1 | 325",
Position(DTE,"Roman-Byzantine CE iii-iv",1,1)=1, "cuDate2 | 1 | 399",
Position(DTE,"Roman-Byzantine CE ii-iv",1,1)=1, "cuDate1 | 1 | 399",
Position(DTE,"Roman-Byzantine [",1,1)=1 or Position(DTE,
"Roman-Byzantine [",1,1)=1,"cuDate2 | 1 | 699",
Trim(DTE) = "Roman-Byzantine" or Trim(DTE)="Roman-Byzantine (?)",
"cuDate2 | 1 | 699",
Position(DTE,"Roman BCE late i-CE early i",1,1), "cuDate2 | 1 | 25",
Position(DTE,"Roman BCE late i",1,1), "cuDate2 | 1 | -1",
Position(DTE,"Roman BCE i-CE i",1,1)=1, "cuDate2 | 1 | 99",
Position(DTE,"Roman CE Late ii-early iii",1,1) =1, "cuDate2 | 1 | 225",
Position(DTE,"Roman CE i-early ii",1,1) = 1, "cuDate2 | 1 | 125",
Position(DTE,"Roman CE i-ii",1,1) = 1, "cuDate2 | 1 | 199",
Position(DTE,"Roman CE iv",1,1) = 1, "cuDate2 | 1 | 399",
Position(DTE,"Roman CE iii",1,1) = 1, "cuDate2 | 1 | 299",
Position(DTE,"Roman CE late iii",1,1) = 1, "cuDate2 | 1 | 299",
Position(DTE,"Roman CE mid-iii",1,1) = 1, "cuDate2 | 1 | 275",
Position(DTE,"Roman CE late ii-iii",1,1) = 1, "cuDate2 | 1 | 299",
Position(DTE,"Roman CE ii-iii",1,1) = 1, "cuDate2 | 1 | 299",
Position(DTE,"Roman CE mid-ii",1,1) = 1, "cuDate2 | 1 | 175",
Position(DTE,"Roman CE ca. ii",1,1) = 1, "cuDate1 | 1 | 199",
Position(DTE,"Roman CE ii",1,1) = 1, "cuDate2 | 1 | 199",
Position(DTE,"Roman CE mid-i",1,1) = 1, "cuDate2 | 1 | 75",
Position(DTE,"Roman CE late i-early ii",1,1) = 1, "cuDate2 | 1 | 125",
Position(DTE,"Roman CE late i",1,1) = 1, "cuDate2 | 1 | 99",
Position(DTE,"Roman CE i",1,1) = 1, "cuDate2 | 1 | 99",
Position(DTE,"Roman [",1,1)=1 or Position(DTE,"Roman [",1,1)=1,"cuDate2 | 1 | 299",
Trim(DTE) = "Roman" or Trim(DTE) = "Roman (?)", "cuDate2 | 1 | 299",
Position(DTE,"Roman-Byzantine-Medieval CE vi-viii",1,1)=1, "cuDate1 | 1 | 799",
Position(DTE,"Ptolemaic-Roman BCE ii-i",1,1) =1 , "cuDate2 | 1 | -1",
Position(DTE,"Ptolemaic-Roman BCE late ii-CE ii",1,1) =1 , "cuDate2 | 1 | 199",
Position(DTE,"Ptolemaic-Roman BCE late ii-CE i",1,1) =1 , "cuDate2 | 1 | 99",
Position(DTE,"Ptolemaic-Roman BCE ii-CE i",1,1) =1 , "cuDate2 | 1 | 99",
Position(DTE,"Ptolemaic-Roman BCE i-CE i",1,1) =1 , "cuDate2 | 1 | 99",
Position(DTE,"Ptolemaic-Roman BCE i",1,1) =1 , "cuDate2 | 1 | -1",
Position(DTE,"Ptolemaic-Roman (early Roman)",1,1) =1 , "cuDate2 | 1 | -1",
Position(DTE,"Ptolemaic-Roman [",1,1) =1 or Position(DTE,
"Ptolemaic-Roman (?) [",1,1)=1, "cuDate2 | 1 | 299",
Trim(DTE) = "Ptolemaic-Roman" or Trim(DTE) = "Ptolemaic-Roman (?)", "cuDate2 | 1 | 299",
Position(DTE,"Ptolemaic BCE iv-early iii",1,1) = 1, "cuDate2 | 1 | -275",
Position(DTE,"Ptolemaic BCE iii-ii",1,1)=1, "cuDate2 | 1 | -100",
Position(DTE,"Ptolemaic BCE late iii",1,1)=1, "cuDate2 | 1 | -200",
Position(DTE,"Ptolemaic BCE iii",1,1)=1, "cuDate2 | 1 | -200",
Position(DTE,"Ptolemaic BCE mid-iii",1,1)=1, "cuDate2 | 1 | -225",
Position(DTE,"Ptolemaic BCE ca. ii",1,1)=1, "cuDate2 | 1 | -100",
Position(DTE,"Ptolemaic BCE late ii",1,1)=1, "cuDate2 | 1 | -100",
Position(DTE,"Ptolemaic BCE ii-i",1,1)=1, "cuDate2 | 1 | -1",
Position(DTE,"Ptolemaic BCE late ii",1,1)=1, "cuDate2 | 1 | -100",
Position(DTE,"Ptolemaic BCE early ii",1,1)=1, "cuDate2 | 1 | -175",
Position(DTE,"Ptolemaic BCE mid-ii",1,1)=1, "cuDate2 | 1 | -125",
Position(DTE,"Ptolemaic BCE ii",1,1)=1, "cuDate2 | 1 | -100",
Position(DTE,"Ptolemaic BCE early i",1,1)=1, "cuDate2 | 1 | -75",
Position(DTE,"Ptolemaic BCE i",1,1) = 1, "cuDate2 | 1 | -1",
Position(DTE,"Ptolemaic [",1,1) =1, "cuDate2 | 1 | -199",
Trim(DTE) = "Ptolemaic" or Trim(DTE)="Ptolemaic (?)", "cuDate2 | 1 | -199"
)
,"")
F. Date 2: Numeric Dating
If(Length(Trim(cuDate2ceM)) = 0 and Length(Trim(cuDate2a)) = 0 and Position(DTE, ", ",1,1) = 0,
Case(Position(DTE, "-",1,1) > 0,
"cuDate2 | 1 | " & Trim(Middle(DTE,Position(DTE,"-",1,1)+1,3))
)
,"")
|