（工具）source insight高速增加时间代码

这篇文章是程序代码更改由其他用户。 不是原厂原装，例如下列总结，使用作为个人笔记。

（1）打开projectbase。打开文件Utils.em，插入下面代码：

//插入时间
macro MonthToName(MonthNum)

{
if (MonthNum== 1)
return "01"

if (MonthNum== 2)
return "02"

if (MonthNum== 3)
return "03"

if (MonthNum== 4)
return "04"

if (MonthNum== 5)
return "05"

if (MonthNum== 6)
return "06"

if (MonthNum== 7)
return "07"

if (MonthNum== 8)
return "08"

if (MonthNum== 9)
return "09"

if (MonthNum== 10)
return "10"

if (MonthNum== 11)
return "11"

if (MonthNum== 12)
return "12"

}

macro DisplayDate()

{

szTime = GetSysTime(1)

Day = szTime.Day

Month = szTime.Month

Year = szTime.Year

Hour = szTime.Hour

Minute = szTime.Minute

Second = szTime.Second

if (Day < 10)

szDay = "0@Day@"

else

szDay = Day

szMonth = MonthToName(Month)

hbuf = GetCurrentBuf()

SetBufSelText(hbuf, "/*  @Year@/@szMonth@/@szDay@--@Hour@:@Minute@:@Second@  */")

}

（2）分配快捷键：

Options->Menu Assignments 打开Menu Assignments窗体, 在Command中输入Macro, 选中要使用的宏（DisplayDate）, 加入到合适的菜单中.还能够自己定义快捷键，就能够了，我定义的是Ctrl+Alt+F11。

（选项-->键分配）

就能够产生下面效果：

/*  2014/09/28--11:41:15  */