【搞定】DataChart如何让底轴实现日期啊**

lisb

楼主这个问题怎么样了？

Coordinator

有点小问题
这段代码老提示 轴的最大值应>=最小值

procedure TMAINFORM.BizFormShow(Sender: TObject);
var
  Year, Month, FirstDay, LastDay: Word;
begin
  Year := DateUtils.YearOf(SysUtils.Now);
  Month := DateUtils.MonthOf(SysUtils.Now);
  FirstDay := 1;
  LastDay := DateUtils.DaysInMonth(SysUtils.Now);
  DataChart1.BottomAxis.Maximum := SysUtils.EncodeDate(Year, Month, LastDay);
  DataChart1.BottomAxis.Minimum := SysUtils.EncodeDate(Year, Month, FirstDay);
end;

错在哪了
有没有取当前月的第一天和最后一天的函数阿

lisb

DateUtils
static function StartOfTheMonth(AValue: Double): Double;
static function EndOfTheMonth(AValue: Double): Double;

Coordinator

还是那个错误

lisb

把你的资源传上来看一下吧，我这里重现不了你那个错误。

Coordinator

OK了吗？

lisb

你的代码写反了，应该是
DataChart1.BottomAxis.Minimum := DateUtils.StartOfTheMonth(SysUtils.Now);
DataChart1.BottomAxis.Maximum := DateUtils.EndOfTheMonth(SysUtils.Now);

Coordinator

恩 好的 谢谢了