MS Project 中如何设定计划进行状态灯。

前两天被要求在ms project中设置一个计划状态灯，好一目了然的来看某个计划的目前的情况如何。

大概的步骤如下：
在工具中，调用企业模板
在工具中，设置一个自定义企业域
将这个列设置公式
设置这个列为图片显示模式，定义图片显示的规则

作了个教程文件，没有放上来，需要的可以发邮件给我。

状态	显示灯	返回值
暂停	灰灯	0
过三天到期	发光灯	1
提前完成	蓝灯	2
按时完成	绿灯	3
延期在6天内	黄灯	4
延期超过6天	红灯	5
		-1

其他说明    
 ProjDateDiff([Baseline Finish],Date( ))/480 ＝目前日期－基准完成日期有多少天
 IsDate([Actual Finish]) 得到的数据是-1?
Actual finish 值为NA，则isnull()函数检查仍为0；
如果不保存基准时间，会出现错误。（注意:Baseline Finish（基准时间）判定的））

公式如下：
IIf(CStr([% Work Complete])<>'100',
IIf([Baseline Finish]>Date( ),IIf(ProjDateDiff(Date( ),[Baseline Finish])/480<=3,1,-1 ), -1) ,
IIf([Actual Finish]<[Baseline Finish],
 2,
 IIF(  ProjDateDiff([Baseline Finish],[Actual Finish])/480=0,
  3,
  IIf(ProjDateDiff(Date( ),[Actual Finish])/480<=6,4,5)
  )
 )
)