Recurring Vertical Lines – datetolastbarindex

inverse · Fri, 10 Sep 2021 23:55:48 +0000

Hello All, Just jumped on PRT and had a quick look – well more than a quick look but I’m short on basic coding skills tbh. What I’d like to do is draw in 2 vertical lines: 8.00am 9.00am I’d like these to be visible on future dates 1sec / tick chart ahead of time. Barindex gets the job done in dynamic fashion but it’d like to see future vlines on upcoming periods week in adv. Been drawing them in manually, before the session and it becomes a little tedious! Datetolastbarindex gets this done perfectly, many thanks for having this. However I need to modify the code manually (add future dates). I could do this weekly and would be better than nothing but does a param.(code) exist I can add that will draw these periods in, say for the next week or month perhaps ongoing even. Please forgive my ignorance on this, it’s baby steps for me right now … 🙂 This is what’s been hacked together so far that works in 1sec interv: defparam drawonlastbaronly=true mydate = 20210910080000 drawvline(datetobarindex(20210910))style(dottedline,2) drawvline(datetobarindex(20210913))style(dottedline,2) drawvline(datetobarindex(20210914))style(dottedline,2) drawvline(datetobarindex(20210915))style(dottedline,2) drawvline(datetobarindex(20210916))style(dottedline,2) drawvline(datetobarindex(20210917))style(dottedline,2) drawvline(datetobarindex(20210910090000))style(dottedline,2) drawvline(datetobarindex(20210913090000))style(dottedline,2) drawvline(datetobarindex(20210914090000))style(dottedline,2) drawvline(datetobarindex(20210915090000))style(dottedline,2) drawvline(datetobarindex(20210916090000))style(dottedline,2) drawvline(datetobarindex(20210917090000))style(dottedline,2) return Cheers, INV

This topic has 23 replies, 2 voices, and was last updated 1 month ago by inverse.

Currently, there are 0 users and 2 guests visiting this topic.

View all attachments

Tagged: date, datetolastbarindex, drawvline, LastDay, leap, today, tomorrow, year

Viewing 9 posts - 16 through 24 (of 24 total)

← 1 2

09/23/2021 at 1:52 AM #178137 Report

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

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

06/06/2022 at 4:56 AM #194744 Report

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

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

06/06/2022 at 9:43 AM #194752 Report

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

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

Offline

Topics: 67

Replies: 13757

Been thanked: 2935 times

06/06/2022 at 11:20 AM #194772 Report

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

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

06/30/2022 at 11:46 PM #196499 Report

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

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

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

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

DayCount = DayCount - 1 //one day has been plotted

Wend

RETURN

Attachments:

inverse

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

07/01/2022 at 12:10 AM #196502 Report

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

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

07/01/2022 at 12:52 AM #196503 Report

inverse

//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

//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

//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

for a fix?

Really confused atmo .. lol

Will see how the day rolls up.

inverse

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

07/01/2022 at 2:22 AM #196504 Report

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

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

07/01/2022 at 10:02 PM #196572 Report

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

Offline

Topics: 4

Replies: 28

Been thanked: 1 time

Author

Posts

Viewing 9 posts - 16 through 24 (of 24 total)

← 1 2

Find exclusive trading pro-tools on