看到代码了吗?有人帮我把代码写下来吗
(setq usernm(getenv“username”)(setq ttdt(rtos(getvar“cdate”)2 4))(setq year(substr ttdt 1 4))(setq month(substr ttdt 5 2))(setq day(substr ttdt 7 2))(setq hourms(substr ttdt 10 2))(setq mints(substr ttdt 12 2))(setq hourm(atoi hourms))(if(>hourm 12)(setq houri(-hourm 12))(setq hourm))(if(>hourm 12)(setq ampm”)(setq Q ampm“am”)(设定时间(itoa houri))(setq问候“上午”)(if(and(>=第12小时)(<18小时))(setq问候“下午”)(if(and(>=第18小时)( 亲爱的
(setq usernm(getenv“username”)(setq ttdt(rtos(getvar“cdate”)2 4))(setq year(substr ttdt 1 4))(setq month(substr ttdt 5 2))(setq day(substr ttdt 7 2))(setq hourms(substr ttdt 10 2))(setq mints(substr ttdt 12 2))(setq hourm(atoi hourms))(if(>hourm 12)(setq houri(-hourm 12))(setq hourm))(if(>hourm 12)(setq ampm”)(setq Q ampm“am”)(设定时间(itoa houri))(setq问候“上午”)(if(and(>=第12小时)(<18小时))(setq问候“下午”)(if(and(>=第18小时)( 有人认为这是学习的任务吗。。。。。因为没有人你每次都想要这个。。当我提醒他们我更改了设置/完成了更新时,请生气
警报或直接dcl不会发生这种情况。至少不是没有一些技巧和大量代码。
页:
1
[2]