本文章中程序由其他网友代码修改而来， 并非原本原创，总结如下，作为个人笔记使用。
（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 = "[email protected]@"
else
szDay = Day
szMonth = MonthToName(Month)
hbuf = GetCurrentBuf()
SetBufSelText(hbuf, "/* @[email protected]/@[email protected]/@[email protected]@[email protected]:@[email protected]:@[email protected] */")
}
（2）分配快捷键：
Options->Menu Assignments 打开Menu Assignments窗口, 在Command中输入Macro, 选中要使用的宏（DisplayDate）, 添加到合适的菜单中.还可以自定义快捷键，就可以了，我定义的是Ctrl+Alt+F11。
（选项-->键分配）
就可以产生以下效果：
/* 2014/09/28--11:41:15 */
时间： 2024-08-11 01:06:05