如题

一种通过打印系统变量DATE或TIME的方法；另外一种是通过设定打印元素的标头，输出格式选中DATE或TIME即可。

能否说的清楚些？我是新手，应该怎么设定？

是啊，我们也非常需要这方面的指教。

有两种方法： 方法1、通过WTUTOR系统的输出设定(Output Setup)选择自己需要的测量元素，打印头标内容的系统变量(如：$BLKNB(块号),$ELEM(元素), $REFSYS(坐标系), $MEMORY(存储单元号), $DATE(日期)，$TIME(时间)...) 相应的打印效果示例： 1 圆1 内存 08/25/04 方法2、通过DEA/PPL语言的TIME，DATE读取当前的时间和日期，而后通过ENCODE语句定义自己喜欢的格式。 打印效果示例： 2004年8月25日 10：25：08

谢谢版主。

我自编了个子程序,在每个CNC程序中需要的时候调用它就行 打印格式比自带的好看多了 :) 打印效果如下: DATE: 2004-11-18 TIME: 08:16:54 因为单位不能上网 我明天把子程序带来给大家用 何必呢 何苦呢...

不用等明天了 刚好在我的U盘里找到个 顺手发下 觉的好的多顶顶吧 :) 输出格式: DATE: 2004-11-18 TIME: 21:12:43 原程序如下: procedure DATI integer TIH real TI,DA,TIM1,TIM,TIS1,TIS,TIH1 string ED[10],EM[10],ES[10] out_format (6,2) DA=date TI=time !时 TIH1=trunc (TI/100) TIH=round (TIH1) !分 TIM1=(TI/100) TIM=(TIM1-trunc (TIM1)) !秒 TIS1=trunc (TI) TIS=(TI-TIS1) out_format (4,2) if encode(ED,DA) and encode(EM,TIM) and encode(ES,TIS) then prn (" ") prn (" ") prn ("Date = ","200",ED[1],"-",ED[2],ED[3],"-",ED[5],ED[6]) prn ("Time = ",TIH,":",EM[3],EM[4],":",ES[3],ES[4]) PRN (" ") end_if end_procedure 何必呢 何苦呢...

非常高兴你的积极努力,首先证明你对有关语句理解了,我等了这么多天,终于有结果了.下面,我也将我的子程序库中的该程序打印出来,一并供大家研究.打印结果见前面回复. 希望你能参加到[讲台]栏目中. program dt[WM1,WM2] element_array MEMORY[300] dt endstat procedure dt real dd,tt integer dd1,tt1 string aa[7],bb[7] dd=date dd1=trunc(dd/100) tt=time tt1=trunc(tt/100) if encode(aa,dd) then if dd1 le 9 then output("时间:200",aa[1],"年",aa[2],aa[3],"月",aa[5],aa[6],"日") else output("时间:20",aa[1],aa[2],"年",aa[3],aa[4],"月",aa[6],aa[7],"日") end_if end_if if encode(bb,tt) then if tt1 le 9 then output("日期:",bb[1],":",bb[2],bb[3],":",bb[5],bb[6],":") else output("日期:",bb[1],bb[2],":",bb[3],bb[4],":",bb[6],bb[7]) end_if end_if end_procedure end_program

报告中加入日期可以通过OUTPUT SETUP中设置达到。也可以通过编程完成。看了版主发的程序还有ZYJ的程序我有一些想法。 两个程序我都执行和分析过了。 不敢冒昧的比较，但就程序中的一些功能谈一点看法。 ZYJ程序中的一些问题 1. 日期的输出上只能适用于2009年以前，2010年以后日期的输出会产生错误。 2. 文件的输出是打印格式的，不便于文件电子版本的长期保存. 3. 程序的使用上只能当子程序调用，不能直接执行。执行方式不灵活。 还有ZYJ的程序只是一个程序片段，不是一个完整的程序。 以上的问题STAR的程序中都解决了。不愧是经验丰富的高级工程师。 Edited by - houjinpu on 2004/11/19 10:39:07