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

（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  */