Recurring Vertical Lines – datetolastbarindex

• 09/23/2021 at 1:52 AM #178137
  inverse

  So all was going swimmingly until an outage yesterday (ASX Cash timeframe) with PRT and since then we’re now capped to something close to ~30k bars in 1sec int Australia Cash 200., could be lingering outage issues, housekeeping. The DAX30(now 40) however seems worse for wear. Was a rock before then.

  It looks to only be affecting 1sec ints. and duplicating another chart from another period, say 5min, will recreate the charts correctly when 1sec is selected however shortly afterwards it redraws to ~30k bars – this is with or w/o the indicator applied.

   

   

   

   

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  06/06/2022 at 4:56 AM #194744
  inverse

  Anyway to add txt to the vertical lines (as drawn by code below)?

  drawvline(datetobarindex(20220606110000))Coloured (105,105,105)style(dottedline,1)

   

  Thanks in advance.

   

   

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  06/06/2022 at 9:43 AM #194752
  robertogozzi

  There you go:

  defparam drawonlastbaronly = true drawvline(datetobarindex(20220606110000))Coloured (105,105,105)style(dottedline,1) drawtext("My Text",datetobarindex(20220606110000),high)Coloured (105,105,105) return

  1 2 3 4

  defparam drawonlastbaronly = true drawvline(datetobarindex(20220606110000))Coloured (105,105,105)style(dottedline,1) drawtext("My Text",datetobarindex(20220606110000),high)Coloured (105,105,105) return

  1 user thanked author for this post.

  inverse

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16469

  Been thanked: 3643 times
  06/06/2022 at 11:20 AM #194772
  inverse

  Hey Rob ….

  I must be going sideways on this one, this is what I had below but it was spitting the dummy.

  I’ll look closer and see what the go is.

  drawtext(“SGX”,datetobarindex(20220606110000))Coloured (105,105,105)style(dottedline,1)

   

  Many thanks for the speedy reply … 🙂

   

  edit: lol, dotted line ref. ….. one of those days. Thanks for setting me straight.

   

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  06/30/2022 at 11:46 PM #196499
  inverse

   

  Hi Team,

  I’ve put together something with Rob’s help over the journey that’ll plot open times and label them. Many thanks for this.

  Been great for the past few weeks till the other day where it started to flag an error, complaining about date format.

   

  I shrunk the days to 1 and it’s still having a problem.

  Very much a newb here with this and thanks for your patience with me.

  Rgds,

   

  INV

   

   

   

   

   

  Lines and MTimes

  defparam drawonlastbaronly=true defparam calculateonlastbars=100 // // // //Label offsets // // voffset=10+close voffset1=20+close voffset2=40+close // // // // Time1 = 070000 Time2 = 095000 Time3 = 100000 Time4 = 110000 Time5 = 113000 Time6 = 150000 Time7 = 160000 // // //Label Time // // // // // //Time8 = 070000 Time9 = 093000 Time10 = 101500 Time11 = 101500 Time12 = 111500 Time13 = 115000 Time14 = 152000 Time15 = 162000 Time16 = 162000 Time17 = 162500 // // NumberOfDays = 1 Time1 = max(0,min(235959,Time1)) Time2 = max(0,min(235959,Time2)) Time3 = max(0,min(235959,Time3)) Time4 = max(0,min(235959,Time4)) Time5 = max(0,min(235959,Time5)) Time6 = max(0,min(235959,Time6)) Time7 = max(0,min(235959,Time7)) // Time9 = max(0,min(235959,Time9)) Time10 = max(0,min(235959,Time10)) Time11 = max(0,min(235959,Time11)) Time12 = max(0,min(235959,Time12)) Time13 = max(0,min(235959,Time13)) Time14 = max(0,min(235959,Time14)) Time15 = max(0,min(235959,Time15)) Time16 = max(0,min(235959,Time16)) Time17 = max(0,min(235959,Time17)) // NumberOfDays = max(0,min(999,NumberOfDays)) MyDD = Day MyMM = Month MyYY = Year // DayCount = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 If MyDD < 10 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // last step, add hours a = (MyDate * 1000000) + Time1 b = (MyDate * 1000000) + Time2 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5 f = (MyDate * 1000000) + Time6 g = (MyDate * 1000000) + Time7 // // plot the lines // drawvline(datetobarindex(a))Coloured (105,105,105)style(dottedline,1) drawvline(datetobarindex(b))Coloured (105,105,105)style(dottedline,1) drawvline(datetobarindex(c))Coloured (105,105,105)style(dottedline,1) drawvline(datetobarindex(d))Coloured (105,105,105)style(dottedline,1) drawvline(datetobarindex(e))Coloured (105,105,105)style(dottedline,1) drawvline(datetobarindex(f))Coloured (105,105,105)style(dottedline,1) drawvline(datetobarindex(g))Coloured (105,105,105)style(dottedline,1) // // // // draw the lables in - removed // // //x = (MyDate * 1000000) + Time9 //i = (MyDate * 1000000) + Time10 //j = (MyDate * 1000000) + Time11 //k = (MyDate * 1000000) + Time12 //l = (MyDate * 1000000) + Time13 //m = (MyDate * 1000000) + Time14 //n = (MyDate * 1000000) + Time15 //o = (MyDate * 1000000) + Time16 //p = (MyDate * 1000000) + Time17 // // // //drawtext("SPI",datetobarindex(x),voffset1,SansSerif,standard,14)Coloured (000,100,000) //drawtext("TSE",datetobarindex(i),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("ASX",datetobarindex(j),voffset1,SansSerif,standard,14)Coloured (000,100,000) //drawtext("SGX",datetobarindex(k),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("SSE",datetobarindex(l),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("SSE",datetobarindex(m),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("FDAX",datetobarindex(n),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("FTEU",datetobarindex(o),voffset1,SansSerif,standard,14)Coloured (000,100,000) //drawtext("ASXCL",datetobarindex(p),voffset2,SansSerif,standard,14)Coloured (000,100,000) // // // // get ready to build tomorrow’s date, if needed // // compute tomorrow’s date (could be a new month, even a new year) // // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1 //one day has been plotted Wend RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166

  defparam drawonlastbaronly=true   defparam calculateonlastbars=100     // // // //Label offsets // // voffset=10+close voffset1=20+close voffset2=40+close // // // // Time1        = 070000 Time2        = 095000 Time3        = 100000 Time4        = 110000 Time5        = 113000 Time6        = 150000 Time7        = 160000 // // //Label Time // // // // // //Time8        = 070000 Time9        = 093000 Time10       = 101500 Time11       = 101500 Time12       = 111500 Time13       = 115000 Time14       = 152000 Time15       = 162000 Time16       = 162000 Time17       = 162500 // // NumberOfDays = 1 Time1          = max(0,min(235959,Time1)) Time2          = max(0,min(235959,Time2)) Time3          = max(0,min(235959,Time3)) Time4          = max(0,min(235959,Time4)) Time5          = max(0,min(235959,Time5)) Time6          = max(0,min(235959,Time6)) Time7          = max(0,min(235959,Time7)) // Time9          = max(0,min(235959,Time9)) Time10         = max(0,min(235959,Time10)) Time11         = max(0,min(235959,Time11)) Time12         = max(0,min(235959,Time12)) Time13         = max(0,min(235959,Time13)) Time14         = max(0,min(235959,Time14)) Time15         = max(0,min(235959,Time15)) Time16         = max(0,min(235959,Time16)) Time17         = max(0,min(235959,Time17)) // NumberOfDays   = max(0,min(999,NumberOfDays)) MyDD           = Day MyMM           = Month MyYY           = Year // DayCount       = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 If MyDD < 10 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // last step, add hours a = (MyDate * 1000000) + Time1 b = (MyDate * 1000000) + Time2 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5 f = (MyDate * 1000000) + Time6 g = (MyDate * 1000000) + Time7 // // plot the lines // drawvline(datetobarindex(a))Coloured  (105,105,105)style(dottedline,1) drawvline(datetobarindex(b))Coloured  (105,105,105)style(dottedline,1) drawvline(datetobarindex(c))Coloured  (105,105,105)style(dottedline,1) drawvline(datetobarindex(d))Coloured  (105,105,105)style(dottedline,1) drawvline(datetobarindex(e))Coloured  (105,105,105)style(dottedline,1) drawvline(datetobarindex(f))Coloured  (105,105,105)style(dottedline,1) drawvline(datetobarindex(g))Coloured  (105,105,105)style(dottedline,1) // // // // draw the lables in - removed // // //x = (MyDate * 1000000) + Time9 //i = (MyDate * 1000000) + Time10 //j = (MyDate * 1000000) + Time11 //k = (MyDate * 1000000) + Time12 //l = (MyDate * 1000000) + Time13 //m = (MyDate * 1000000) + Time14 //n = (MyDate * 1000000) + Time15 //o = (MyDate * 1000000) + Time16 //p = (MyDate * 1000000) + Time17 // // // //drawtext("SPI",datetobarindex(x),voffset1,SansSerif,standard,14)Coloured (000,100,000) //drawtext("TSE",datetobarindex(i),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("ASX",datetobarindex(j),voffset1,SansSerif,standard,14)Coloured (000,100,000) //drawtext("SGX",datetobarindex(k),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("SSE",datetobarindex(l),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("SSE",datetobarindex(m),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("FDAX",datetobarindex(n),voffset,SansSerif,standard,14)Coloured (000,100,000) //drawtext("FTEU",datetobarindex(o),voffset1,SansSerif,standard,14)Coloured (000,100,000) //drawtext("ASXCL",datetobarindex(p),voffset2,SansSerif,standard,14)Coloured (000,100,000) // // //   // get ready to build tomorrow’s date, if needed // // compute tomorrow’s date (could be a new month, even a new year) // // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1     //one day has been plotted Wend RETURN

   

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  07/01/2022 at 12:10 AM #196502
  inverse

  For some reason the month code for July is being interpreted as  70 rather than 07.

   

  The lines commented out allowed for line plots only, apologies for the mess.

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  07/01/2022 at 12:52 AM #196503
  inverse

  Resolved maybe.

  //now working // make sure it’s the same number of digits for days < 10 (as per Robs layout) If MyDD < 0 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif vs //non-working but was // make sure it’s the same number of digits for days < 10 If MyDD < 10 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

  //now working   // make sure it’s the same number of digits for days < 10 (as per Robs layout) If MyDD < 0 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif   vs   //non-working but was   // make sure it’s the same number of digits for days < 10 If MyDD < 10 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif

  Not sure what happened here tbh, will have a closer look but this is usually set and forget.

  Even backups confirm it was <10, so,

  <10

  went

  <0

  for a fix?

  Really confused atmo .. lol

   

  Will see how the day rolls up.

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  07/01/2022 at 2:22 AM #196504
  inverse

  Just as a follow up – I needed to create a new indicator with the same code otherwise the vectoring wouldn’t work.

  Copying and pasting.

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  07/01/2022 at 10:02 PM #196572
  inverse

  Just updating that all went well after the tweaks.

  Kind of odd that it all worked for a few weeks then went RS.

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  02/17/2024 at 11:12 AM #228334
  inverse

  Hi Team,

  Roberto helped out quite a bit with our smaller tf and all is well on that front.

  On the

  1.  MyDateIndicator.itf

   

  I’m wondering if there’s a way to work with a historical anchor (or any date) and add a series of calendar days to the anchor.

  Ideally the both anchor and days added would be variable but I could work with static added days but a flexible anchor would be the minimum.

   

  From what I’ve seen there can be problems with increasing the anchor variable past 31 days (32) and the indicator can error.

   

  These days plus anchor day (dates) would be represented as v-lines on a daily chart.

   

  eg: 20231030 as an anchor

  plus 10 days

  plus 12 days

  plus 15 days

  plus 22 days

  For the life of me I can work with the smaller TF kind of ok, minutes w/in a s session for example but on the larger TF, day for example, I can’t seen to get my head around it.

  Any help would be appreciated.

   

  Cheers,

  inv

   

   

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  02/17/2024 at 12:34 PM #228338
  inverse

  Anchor Dates and Days Added

  defparam drawonlastbaronly=true drawvline(datetobarindex(MyDate1))style(dottedline,2) drawvline(datetobarindex(MyDate2))style(dottedline,2) drawvline(datetobarindex(MyDate3))style(dottedline,2) drawvline(datetobarindex(MyDate4))style(dottedline,2) drawvline(datetobarindex(MyDate5))style(dottedline,2) drawvline(datetobarindex(MyDate6))style(dottedline,2) // MyDateA = (MyDate1) + (Day1) MyDateB = (MyDate2) + (Day1) MyDateC = (MyDate3) + (Day1) MyDateD = (MyDate4) + (Day1) MyDateE = (MyDate5) + (Day1) MyDateF = (MyDate6) + (Day1) drawvline(datetobarindex(MyDateA))style(dottedline,2) drawvline(datetobarindex(MyDateB))style(dottedline,2) drawvline(datetobarindex(MyDateC))style(dottedline,2) drawvline(datetobarindex(MyDateD))style(dottedline,2) drawvline(datetobarindex(MyDateE))style(dottedline,2) drawvline(datetobarindex(MyDateF))style(dottedline,2) drawvline(datetobarindex(Day1))style(dottedline,2) drawvline(datetobarindex(Day10))style(dottedline,2) drawvline(datetobarindex(Day12))style(dottedline,2) drawvline(datetobarindex(Day15))style(dottedline,2) drawvline(datetobarindex(Day22))style(dottedline,2) drawvline(datetobarindex(Day30))style(dottedline,2) DayA = (Day1) DayB = (Day10) DayC = (Day12) DayD = (Day15) DayE = (Day22) DayF = (Day30) drawvline(datetobarindex(DayA))style(dottedline,2) drawvline(datetobarindex(DayB))style(dottedline,2) drawvline(datetobarindex(DayC))style(dottedline,2) drawvline(datetobarindex(DayD))style(dottedline,2) drawvline(datetobarindex(DayE))style(dottedline,2) drawvline(datetobarindex(DayF))style(dottedline,2) Time1 = max(0,min(235959,Time1)) Time2 = max(0,min(235959,Time2)) Time3 = max(0,min(235959,Time3)) Time4 = max(0,min(235959,Time4)) Time5 = max(0,min(235959,Time5)) // last step, add hours a = (MyDate * 1000000) + Time1 b = (MyDate * 1000000) + Time2 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5 // NumberOfDays = max(0,min(999,NumberOfDays)) MyDD = Day MyMM = Month MyYY = Year // DayCount = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 //If MyDD < 10 Then //was 10 but needed to go to 0 // If MyDD < 00 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // last step, add hours a = (MyDate * 1000000) + Day1 b = (MyDate * 1000000) + Day10 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5 // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1 //one day has been plotted wend return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138

  defparam drawonlastbaronly=true         drawvline(datetobarindex(MyDate1))style(dottedline,2) drawvline(datetobarindex(MyDate2))style(dottedline,2) drawvline(datetobarindex(MyDate3))style(dottedline,2) drawvline(datetobarindex(MyDate4))style(dottedline,2) drawvline(datetobarindex(MyDate5))style(dottedline,2) drawvline(datetobarindex(MyDate6))style(dottedline,2) // MyDateA = (MyDate1) + (Day1) MyDateB = (MyDate2) + (Day1) MyDateC = (MyDate3) + (Day1) MyDateD = (MyDate4) + (Day1) MyDateE = (MyDate5) + (Day1) MyDateF = (MyDate6) + (Day1)   drawvline(datetobarindex(MyDateA))style(dottedline,2) drawvline(datetobarindex(MyDateB))style(dottedline,2) drawvline(datetobarindex(MyDateC))style(dottedline,2) drawvline(datetobarindex(MyDateD))style(dottedline,2) drawvline(datetobarindex(MyDateE))style(dottedline,2) drawvline(datetobarindex(MyDateF))style(dottedline,2)         drawvline(datetobarindex(Day1))style(dottedline,2) drawvline(datetobarindex(Day10))style(dottedline,2) drawvline(datetobarindex(Day12))style(dottedline,2) drawvline(datetobarindex(Day15))style(dottedline,2) drawvline(datetobarindex(Day22))style(dottedline,2) drawvline(datetobarindex(Day30))style(dottedline,2)     DayA = (Day1) DayB = (Day10) DayC = (Day12) DayD = (Day15) DayE = (Day22) DayF = (Day30)   drawvline(datetobarindex(DayA))style(dottedline,2) drawvline(datetobarindex(DayB))style(dottedline,2) drawvline(datetobarindex(DayC))style(dottedline,2) drawvline(datetobarindex(DayD))style(dottedline,2) drawvline(datetobarindex(DayE))style(dottedline,2) drawvline(datetobarindex(DayF))style(dottedline,2)         Time1          = max(0,min(235959,Time1)) Time2          = max(0,min(235959,Time2)) Time3          = max(0,min(235959,Time3)) Time4          = max(0,min(235959,Time4)) Time5          = max(0,min(235959,Time5))           // last step, add hours a = (MyDate * 1000000) + Time1 b = (MyDate * 1000000) + Time2 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5           // NumberOfDays   = max(0,min(999,NumberOfDays)) MyDD           = Day MyMM           = Month MyYY           = Year // DayCount       = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 //If MyDD < 10 Then  //was 10 but needed to go to 0 // If MyDD < 00 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // last step, add hours a = (MyDate * 1000000) + Day1 b = (MyDate * 1000000) + Day10 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5           // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1     //one day has been plotted wend return

  Work in progress.

  itf is attached as a semi-hacked rev, probably 1/3rd of the way there maybe.

  Assistance appreciated.

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  02/17/2024 at 1:55 PM #228343
  inverse

  defparam drawonlastbaronly=true drawvline(datetobarindex(MyDate1))style(dottedline,2) MyDateA = (MyDate1) MyDateB = (MyDate1) + (Day1) MyDateC = (MyDate1) + (Day2) MyDateD = (MyDate1) + (Day3) MyDateE = (MyDate1) + (Day4) MyDateF = (MyDate1) + (Day5) MyDateG = (MyDate1) + (Day6) drawvline(datetobarindex(MyDateA))style(dottedline,2) drawvline(datetobarindex(MyDateB))style(dottedline,2) drawvline(datetobarindex(MyDateC))style(dottedline,2) drawvline(datetobarindex(MyDateD))style(dottedline,2) drawvline(datetobarindex(MyDateE))style(dottedline,2) drawvline(datetobarindex(MyDateF))style(dottedline,2) drawvline(datetobarindex(MyDateG))style(dottedline,2) drawvline(datetobarindex(Day1))style(dottedline,2) drawvline(datetobarindex(Day2))style(dottedline,2) drawvline(datetobarindex(Day3))style(dottedline,2) drawvline(datetobarindex(Day4))style(dottedline,2) drawvline(datetobarindex(Day5))style(dottedline,2) drawvline(datetobarindex(Day6))style(dottedline,2) DayA = (Day1) DayB = (Day2) DayC = (Day3) DayD = (Day4) DayE = (Day5) DayF = (Day6) drawvline(datetobarindex(DayA))style(dottedline,2) drawvline(datetobarindex(DayB))style(dottedline,2) drawvline(datetobarindex(DayC))style(dottedline,2) drawvline(datetobarindex(DayD))style(dottedline,2) drawvline(datetobarindex(DayE))style(dottedline,2) drawvline(datetobarindex(DayF))style(dottedline,2) Time1 = max(0,min(235959,Time1)) Time2 = max(0,min(235959,Time2)) Time3 = max(0,min(235959,Time3)) Time4 = max(0,min(235959,Time4)) Time5 = max(0,min(235959,Time5)) Time6 = max(0,min(235959,Time6)) // last step, add hours a = (MyDate * 1000000) + Time1 b = (MyDate * 1000000) + Time2 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5 f = (MyDate * 1000000) + Time6 // NumberOfDays = max(0,min(999,NumberOfDays)) MyDD = Day MyMM = Month MyYY = Year // DayCount = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 //If MyDD < 10 Then //was 10 but needed to go to 0 // If MyDD < 00 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // last step, add hours a = (MyDate * 1000000) + Day1 b = (MyDate * 1000000) + Day2 c = (MyDate * 1000000) + Day3 d = (MyDate * 1000000) + Day4 e = (MyDate * 1000000) + Day5 f = (MyDate * 1000000) + Day6 // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1 //one day has been plotted wend return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145

  defparam drawonlastbaronly=true         drawvline(datetobarindex(MyDate1))style(dottedline,2)     MyDateA = (MyDate1) MyDateB = (MyDate1) + (Day1) MyDateC = (MyDate1) + (Day2) MyDateD = (MyDate1) + (Day3) MyDateE = (MyDate1) + (Day4) MyDateF = (MyDate1) + (Day5) MyDateG = (MyDate1) + (Day6)           drawvline(datetobarindex(MyDateA))style(dottedline,2) drawvline(datetobarindex(MyDateB))style(dottedline,2) drawvline(datetobarindex(MyDateC))style(dottedline,2) drawvline(datetobarindex(MyDateD))style(dottedline,2) drawvline(datetobarindex(MyDateE))style(dottedline,2) drawvline(datetobarindex(MyDateF))style(dottedline,2) drawvline(datetobarindex(MyDateG))style(dottedline,2)         drawvline(datetobarindex(Day1))style(dottedline,2) drawvline(datetobarindex(Day2))style(dottedline,2) drawvline(datetobarindex(Day3))style(dottedline,2) drawvline(datetobarindex(Day4))style(dottedline,2) drawvline(datetobarindex(Day5))style(dottedline,2) drawvline(datetobarindex(Day6))style(dottedline,2)     DayA = (Day1) DayB = (Day2) DayC = (Day3) DayD = (Day4) DayE = (Day5) DayF = (Day6)   drawvline(datetobarindex(DayA))style(dottedline,2) drawvline(datetobarindex(DayB))style(dottedline,2) drawvline(datetobarindex(DayC))style(dottedline,2) drawvline(datetobarindex(DayD))style(dottedline,2) drawvline(datetobarindex(DayE))style(dottedline,2) drawvline(datetobarindex(DayF))style(dottedline,2)             Time1          = max(0,min(235959,Time1)) Time2          = max(0,min(235959,Time2)) Time3          = max(0,min(235959,Time3)) Time4          = max(0,min(235959,Time4)) Time5          = max(0,min(235959,Time5)) Time6          = max(0,min(235959,Time6))           // last step, add hours a = (MyDate * 1000000) + Time1 b = (MyDate * 1000000) + Time2 c = (MyDate * 1000000) + Time3 d = (MyDate * 1000000) + Time4 e = (MyDate * 1000000) + Time5 f = (MyDate * 1000000) + Time6         // NumberOfDays   = max(0,min(999,NumberOfDays)) MyDD           = Day MyMM           = Month MyYY           = Year // DayCount       = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 //If MyDD < 10 Then  //was 10 but needed to go to 0 // If MyDD < 00 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // last step, add hours a = (MyDate * 1000000) + Day1 b = (MyDate * 1000000) + Day2 c = (MyDate * 1000000) + Day3 d = (MyDate * 1000000) + Day4 e = (MyDate * 1000000) + Day5 f = (MyDate * 1000000) + Day6             // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1     //one day has been plotted wend return

   

  inverse wrote:

  Work in progress and now need to work on as the integers rise and we hit a month with days more than it has triggering an error.

   

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  02/17/2024 at 1:59 PM #228345
  inverse

  I know it’s messy and incorrect in places that are glaring as I look at it but I’m sadly lacking in this kind of thing … 🙂

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  02/18/2024 at 10:49 AM #228361
  inverse

  defparam drawonlastbaronly=true // number of days ahead for each date NumberOfDays = 1 // Change this value to adjust the number of days ahead // Calculate subsequent dates MyDateA = MyDate1 + NumberOfDays MyDateB = MyDate1 + (3 * NumberOfDays) MyDateC = MyDate1 + (7 * NumberOfDays) MyDateD = MyDate1 + (11 * NumberOfDays) MyDateE = MyDate1 + (16 * NumberOfDays) MyDateF = MyDate1 + (21 * NumberOfDays) // drawvline(datetobarindex(MyDateA))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateB))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateC))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateD))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateE))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateF))style(dottedline,2)coloured("red") NumberOfDays = max(0,min(999,NumberOfDays)) MyDD = Day MyMM = Month MyYY = Year // DayCount = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 //If MyDD < 10 Then //was 10 but needed to go to 0 // If MyDD < 00 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1 //one day has been plotted wend return

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

  defparam drawonlastbaronly=true         // number of days ahead for each date NumberOfDays = 1  // Change this value to adjust the number of days ahead   // Calculate subsequent dates MyDateA = MyDate1 + NumberOfDays MyDateB = MyDate1 + (3 * NumberOfDays) MyDateC = MyDate1 + (7 * NumberOfDays) MyDateD = MyDate1 + (11 * NumberOfDays) MyDateE = MyDate1 + (16 * NumberOfDays) MyDateF = MyDate1 + (21 * NumberOfDays)       //     drawvline(datetobarindex(MyDateA))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateB))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateC))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateD))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateE))style(dottedline,2)coloured("red") drawvline(datetobarindex(MyDateF))style(dottedline,2)coloured("red")                 NumberOfDays   = max(0,min(999,NumberOfDays)) MyDD           = Day MyMM           = Month MyYY           = Year // DayCount       = NumberOfDays While DayCount > 0 DO // // make sure it’s the same number of digits for days < 10 //If MyDD < 10 Then  //was 10 but needed to go to 0 // If MyDD < 00 Then MyDate = (MyYY * 10000) + (MyMM * 1000) + MyDD Else MyDate = (MyYY * 10000) + (MyMM * 100) + MyDD Endif             // 1. compute the last day of the month LastDay = 31 // 2. it’s max 30 on a few months If MyMM = 4 or MyMM = 6 or MyMM = 9 or MyMM = 11 Then LastDay = 30 Endif // 3. it’s max 28 days in February, 29 on a leap year If MyMM = 2 Then LastDay = 28 If Year MOD 4 = 0 Then If Year MOD 100 = 0 Then If Year MOD 400 = 0 Then LastDay = 29 Endif Else LastDay = 29 Endif Endif Endif // MyDD = MyDD + 1 // 4. if it’s greater than LastDay it’s the next month If MyDD > LastDay Then MyDD = 1 MyMM = MyMM + 1 // 5. if it’s greater than 12 it’s a new year If MyMM > 12 Then MyMM = MyMM - 12 MyYY = MyYY + 1 Endif Endif // DayCount = DayCount - 1     //one day has been plotted wend return

  Ended up here but still cant roll past the month barrier. So it’ll plot w/in a month but not beyond …

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
  02/18/2024 at 10:57 AM #228362
  inverse

  // Define the anchor date (MyDate1), month (MyMM), and year (MyYY) MyDate1 = 20231001 // Assign the anchor date MyMM = 10 // Assign the month MyYY = 23 // Assign the year

  1 2 3 4

  // Define the anchor date (MyDate1), month (MyMM), and year (MyYY) MyDate1 = 20231001  // Assign the anchor date MyMM = 10     // Assign the month MyYY = 23     // Assign the year

   

  MyDate1 defined as a ext variable so you can plug it in via GUI and not w/in code but to be honest is easy enough to do it via cli.

  

  inverse

  Participant

  Topics: 7

  Replies: 151

  Been thanked: 15 times
• Author
  Posts