（工具类）source insight中快速添加时间到代码

本文章中程序由其他网友代码修改而来， 并非原本原创，总结如下，作为个人笔记使用。

（1）打开工程base，打开文件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  */