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

lisb · 发表于 2007-6-25 10:12:01

楼主这个问题怎么样了？

Coordinator · 发表于 2007-6-25 13:10:00

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

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 · 发表于 2007-6-25 13:44:19

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

Coordinator · 发表于 2007-6-25 13:59:39

还是那个错误

lisb · 发表于 2007-6-25 14:51:56

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

Coordinator · 发表于 2007-6-27 09:03:28

OK了吗？

lisb · 发表于 2007-6-27 10:10:01

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

Coordinator · 发表于 2007-6-28 09:39:27

恩好的谢谢了

		自动登录	找回密码
密码			立即注册