Question

我已经阅读了一些关于teechart周末问题的文章，建议是愚蠢的步骤：

TChart1.Series(0).XValues.DateTime = False
使用连续数字作为Xvalues
用日期时间替换X标签。

问题是：我根据日期，小时和分钟绘制实时烛台，我必须保留TChart1.Series（0）.XValues.DateTime = True

那么有没有办法摆脱零周末（不仅周末，甚至一天中的一些时间，从5:15到6:00需要被删除），以便烛台连续显示（ Xvalues必须始终保持日期时间风格）？

感谢。

（顺便说一句，我使用的是Teechart2011 Eval＆amp; VB6）

Answer 1

TeeChart根据相关轴中的X和Y值绘制每个点。您可以使用“断轴”工具在轴上获得不连续效果，但在水平轴上连续绘制点的最简单方法是使用连续的X值。所以我建议您使用TChart1.Series(i).asCandle.AddCandle XVal, OpenVal, HighVal, LowVal, CloseVal, Label, clTeeColor函数，即：

XVal：TChart1.Series(i).Count，而不是从系统中检索到的日期
标签：从系统检索的日期，转换为字符串

如果由于您仍然认为必须拥有DateTime XValues而无法解决问题，请解释原因。

Answer 2

从here获取你的代码，我创建了一个简单的例子，在这里似乎对我很好。在下面找到它：

Private Sub Form_Load() 
  Dim month, day, year, hour, minute, second, nums As Integer
  Dim tmpDate As Date
  month = 6
  day = 7
  year = 2012
  hour = 6
  minute = 15
  second = 0
  nums = 10

  TChart1.Aspect.View3D = False
  TChart1.AddSeries scCandle
  TChart1.Axis.Bottom.Labels.Angle = 90

  For i = 1 To nums
    tmpDate = (DateValue(day & "," & month & "," & year) + TimeValue(hour & ":" & minute & ":" & second))
    If Not IsWeekend(tmpDate) Then
      With TChart1.Series(0)
        .asCandle.AddCandle .Count, 5, 15, 0, 10, tmpDate, clTeeColor
      End With
    End If
    day = day + 1
  Next i
End Sub

Public Function IsWeekend(InputDate As Date) As Boolean
    Select Case Weekday(InputDate)
        Case vbSaturday, vbSunday
            IsWeekend = True
        Case Else
            IsWeekend = False
    End Select
End Function

如何摆脱烛台图表中的空置周末

2 个答案: