|
发表于 2011-10-30 00:10:00
|
显示全部楼层
河北省秦皇岛市
[e].版本 2
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
时钟1.时钟周期 = 1000
.子程序 _时钟1_周期事件
.局部变量 a, 日期时间型
.局部变量 年, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
.局部变量 星期, 文本型
a = 取现行时间 ()
年 = 到文本 (取年份 (a))
月 = 到文本 (取月份 (a))
日 = 到文本 (取日 (a))
时 = 到文本 (取小时 (a))
分 = 到文本 (取分钟 (a))
秒 = 到文本 (取秒 (a))
.如果 (取星期几 (a) = 1)
星期 = “日”
.否则
星期 = 数值到大写 (取星期几 (a) - 1, 真)
.如果结束
标签1.标题 = 年 + “-” + 月 + “-” + 日 + “ ” + 时 + “:” + 分 + “:” + 秒 + “ 星期” + 星期
[/e]呵呵,我也来凑凑热闹 |
评分
-
查看全部评分
|