Day: October 20, 2024

I have chart showing daily closing price of share for last 20 days. There is no closing price for Saturday and Sunday . However chart is showing blank space for these days i.e. total 29 days interval

i do not want blank spaces but only 20 columns. Not getting how to do it.

Chart1.Series(0).Points.Clear()

    'Getting Script Name 
    RSData("Select ScriptName from Bse_ScriptMaster where ISIN ='" & V_ISIN & "'")
    DBCnClose()

    If DBCnCommonDataTable.Rows.Count > 0 Then
        Label1.Text = (Trim(DBCnCommonDataTable(0)("ScriptName")))
    End If
    'getting data for the chart
    RSData("select top (20) DAYCLOSE,TIMESTAMP,TOTTRDVAL  from Tbl_Back_Data_Nse where Tbl_Back_Data_Nse.ISIN ='" & V_ISIN & " ' and SERIES ='EQ'  order by TIMESTAMP desc ")
    DBCnClose()
    ' MB(DBCnCommonDataTable.Rows.Count)
    Dim V_Average As Double = 0
    Dim V_15DaysRangeHigh As Double = 0
    Dim V_15DayRangeLow As Double = DBCnCommonDataTable(0)("DAYCLOSE")



    If DBCnCommonDataTable.Rows.Count > 0 Then

        For i = 0 To DBCnCommonDataTable.Rows.Count - 1
            'Price
            If DBCnCommonDataTable(i)("DAYCLOSE") > V_15DaysRangeHigh Then
                V_15DaysRangeHigh = (DBCnCommonDataTable(i)("DAYCLOSE"))

            End If

            If DBCnCommonDataTable(i)("DAYCLOSE") < V_15DayRangeLow Then
                V_15DayRangeLow = (DBCnCommonDataTable(i)("DAYCLOSE"))
            End If

            V_Average = V_Average + (DBCnCommonDataTable(i)("DAYCLOSE"))


        Next

    End If

    Dim V_Low As Integer = CDec(Math.Truncate(V_15DayRangeLow))
    Dim V_High As Integer = CDec(Math.Truncate(V_15DaysRangeHigh)) + 1
    Dim V_Range As Integer = V_High - V_Low

    Chart1.ChartAreas(0).AxisY.Minimum = V_Low
    Chart1.ChartAreas(0).AxisY.Maximum = V_High
    Chart1.ChartAreas(0).AxisX.LabelStyle.Angle = -90
    Chart1.Series("DayClose").BorderWidth = 3

    Chart1.ChartAreas(0).AxisX.MajorGrid.LineColor = Color.LightGray
    Chart1.ChartAreas(0).AxisY.MajorGrid.LineColor = Color.LightGray
    'Chart1.ChartAreas(0).AxisY.Enabled = False

    Dim axis = Chart1.ChartAreas(0).AxisX
    Dim yxis = Chart1.ChartAreas(0).AxisY

    axis.Interval = 1

    If V_Range < 20 Then
        yxis.Interval = 1

    Else

        If V_Range > 40 And V_Range < 80 Then
            yxis.Interval = 2
        Else
            yxis.Interval = CDec(Math.Truncate(V_Range / 40))
        End If

    End If


    If DBCnCommonDataTable.Rows.Count > 0 Then

        Dim Xval As Date
        For i = 0 To DBCnCommonDataTable.Rows.Count - 1

            Chart1.Series("DayClose").Points.AddXY(DBCnCommonDataTable(i)("TIMESTAMP"), MfunIndCurrencyFormat(DBCnCommonDataTable(i)("DAYCLOSE")))

        Next i
    End If