[RESOLVED] Gantt Chart Displaying Custom Dates

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

Hi,

I have just updated to the new version v15.0.1 and I have been playing around with the Gantt Chart. Got to say, I like all these new charts!!! 

I noticed using the following code the chart displays dates, however the year starts at 1900.

    Series.ValueScaleType = xtpChartScaleDateTime

Therefore using the Sample code "Chart Browser" provided, I can get dates for the sample by introducing the following code:

Private Sub CreateDatePoints(Diagram As ChartDiagram2D, dtMinDate As Date, dtMaxDate As Date)
    Dim dtDate As Date
    Dim i As Integer, x As Integer

    dtDate = dtMinDate
    Diagram.AxisY.CustomLabels.Add Format$(dtDate, "mmm yy"), 0

    x = DateDiff("m", dtMinDate, dtMaxDate) + 1
    For i = 1 To x
        dtDate = Format$("01/" & i & "/" & Year(dtDate), "dd/mm/yyyy")
        dtDate = DateAdd("m", 1, dtDate)
        Diagram.AxisY.CustomLabels.Add Format$(dtDate, "mmm yy"), DateDiff("d", dtMinDate, dtDate)
    Next
End Sub

The code above correctly identifies the points where the dates should be shown, therefore 1 point equals 1 Day.

However I noticed an issue when I allow the ability to scroll.

Dates displayed using Diagram.AxisY.CustomLabels.Add

Dates outwith the scrollable area i.e. Jan, Feb... etc are visible when scrolled!

Note: Using Series.ValueScaleType = xtpChartScaleDateTime without my additonal Procedure the titles are hidden, they only stay visible when using the CustomLabels.