【NO.0035】获取日期时间星期

孤心人

开版第一贴：(设置为回帖仅作者可见，以防抄袭，到期后全部公开，大家相互学习）

在进入精易后跟不少网友交流过程中，发现很多网友易基础实在不怎么样，看似很简单的问题，往往解决不了，想想作业还是从基础开始吧

第一贴就从获取时间开始：

要求：
    得到当前日期时间和星期，具体格式例如：2011-10-27 20:30:10 星期四

条件：无条件，只要能达到输出上述内容即可，不可用模块，命令越少越好

奖励：作业简单，只要完成，+2精币，创新者酌情加奖

时间：一星期

================================================

作业结束，看了这几天大家交的作业，还是有部分对于易的一些基本命令不熟，舍近求远的使用复杂的命令来求结果。
建议大家看看其他人的作业参考下，因为大部分都不错，我就不建议大家看谁的了。

qq764520536

沙发拿下 等下编辑 嘿嘿 lc.rar (915 Bytes, 下载次数: 130)

2011-10-28 18:05 上传

点击文件名下载附件

千年

修改一下去，抱歉，我没看清楚，还有时间。


test.zip (1.42 KB, 下载次数: 32)

2011-10-28 18:02 上传

点击文件名下载附件

嘿嘿，已经好了

daidwei369

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
.局部变量 星期, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型

.如果 (取小时 (取现行时间 ()) ＜ 10)
    时 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))
.否则
    时 ＝ 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取分钟 (取现行时间 ()) ＜ 10)
    分 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))
.否则
    分 ＝ 到文本 (取分钟 (取现行时间 ()))
.如果结束
.如果 (取秒 (取现行时间 ()) ＜ 10)
    秒 ＝ “0” ＋ 到文本 (取秒 (取现行时间 ()))
.否则
    秒 ＝ 到文本 (取秒 (取现行时间 ()))
.如果结束
.如果 (取星期几 (取现行时间 ()) － 1 ＝ 0)
    星期 ＝ “星期日”
.否则
    星期 ＝ “星期” ＋ 到文本 (数值到大写 (取星期几 (取现行时间 ()) － 1, 真))
.如果结束
.如果 (取月份 (取现行时间 ()) ＜ 10)
    月 ＝ “0” ＋ 到文本 (取月份 (取现行时间 ()))
.否则
    月 ＝ 到文本 (取月份 (取现行时间 ()))
.如果结束
.如果 (取日 (取现行时间 ()) ＜ 10)
    日 ＝ “0” ＋ 到文本 (取日 (取现行时间 ()))
.否则
    日 ＝ 到文本 (取日 (取现行时间 ()))
.如果结束
标签1.标题 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “ ” ＋ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒 ＋ “ ” ＋ 星期
[e].版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

时钟1.时钟周期 ＝ 1000

.子程序 _时钟1_周期事件
.局部变量 时, 文本型
.局部变量 分, 文本型
.局部变量 秒, 文本型
.局部变量 星期, 文本型
.局部变量 月, 文本型
.局部变量 日, 文本型

.如果 (取小时 (取现行时间 ()) ＜ 10)
    时 ＝ “0” ＋ 到文本 (取小时 (取现行时间 ()))
.否则
    时 ＝ 到文本 (取小时 (取现行时间 ()))
.如果结束
.如果 (取分钟 (取现行时间 ()) ＜ 10)
    分 ＝ “0” ＋ 到文本 (取分钟 (取现行时间 ()))
.否则
    分 ＝ 到文本 (取分钟 (取现行时间 ()))
.如果结束
.如果 (取秒 (取现行时间 ()) ＜ 10)
    秒 ＝ “0” ＋ 到文本 (取秒 (取现行时间 ()))
.否则
    秒 ＝ 到文本 (取秒 (取现行时间 ()))
.如果结束
.如果 (取星期几 (取现行时间 ()) － 1 ＝ 0)
    星期 ＝ “星期日”
.否则
    星期 ＝ “星期” ＋ 到文本 (数值到大写 (取星期几 (取现行时间 ()) － 1, 真))
.如果结束
.如果 (取月份 (取现行时间 ()) ＜ 10)
    月 ＝ “0” ＋ 到文本 (取月份 (取现行时间 ()))
.否则
    月 ＝ 到文本 (取月份 (取现行时间 ()))
.如果结束
.如果 (取日 (取现行时间 ()) ＜ 10)
    日 ＝ “0” ＋ 到文本 (取日 (取现行时间 ()))
.否则
    日 ＝ 到文本 (取日 (取现行时间 ()))
.如果结束
标签1.标题 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “ ” ＋ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒 ＋ “ ” ＋ 星期
[/e]

大头佛

就当是来帮你撑场的，哈哈！ ww.rar (866 Bytes, 下载次数: 8)

2011-10-28 18:27 上传

点击文件名下载附件

数据压缩

例程.zip (17.13 KB, 下载次数: 36)

2011-10-28 18:43 上传

点击文件名下载附件

易语言2018

复件 2.rar (1.08 KB, 下载次数: 5)

2011-10-28 18:44 上传

点击文件名下载附件

[e].版本 2

.程序集 窗口程序集1
.程序集变量 星期, 整数型

.子程序 _时钟1_周期事件
.局部变量 时间, 文本型

时间 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “-” ＋ 到文本 (取日 (取现行时间 ())) ＋ “  ” ＋ 到文本 (取小时 (取现行时间 ())) ＋ “:” ＋ 到文本 (取分钟 (取现行时间 ())) ＋ “:” ＋ 到文本 (取秒 (取现行时间 ()))

星期 ＝ 取星期几 (取现行时间 ())
.如果真 (星期 ＝ 1)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期日”
.如果真结束
.如果真 (星期 ＝ 2)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期一”
.如果真结束
.如果真 (星期 ＝ 3)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期二”
.如果真结束
.如果真 (星期 ＝ 4)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期三”
.如果真结束
.如果真 (星期 ＝ 5)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期四”
.如果真结束
.如果真 (星期 ＝ 6)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期五”
.如果真结束
.如果真 (星期 ＝ 7)
    标签1.标题 ＝ 时间 ＋ “ ” ＋ “星期六”
.如果真结束


[/e]

加个标签 一个时钟  时钟设置为1000

Sulen

作业.zip (1.04 KB, 下载次数: 5)

2011-10-28 19:19 上传

点击文件名下载附件

易学小生

.版本 2

.子程序 取格式时间文本, 文本型, 公开, 返回如：“2011-10-27 20:30:10 星期四”格式的时间文本
.参数 时间, 日期时间型, , 待处理时间
.局部变量 临时文本, 文本型
.局部变量 星期几, 文本型, , "0"
.局部变量 n, 整数型

加入成员 (星期几, “日”)
加入成员 (星期几, “一”)
加入成员 (星期几, “二”)
加入成员 (星期几, “三”)
加入成员 (星期几, “四”)
加入成员 (星期几, “五”)
加入成员 (星期几, “六”)
n ＝ 取星期几 (时间)
临时文本 ＝ 到文本 (取年份 (时间)) ＋ “-” ＋ 到文本 (取月份 (时间)) ＋ “-” ＋ 到文本 (取日 (时间)) ＋ “ ” ＋ 到文本 (取小时 (时间)) ＋ “:” ＋ 到文本 (取分钟 (时间)) ＋ “:” ＋ 到文本 (取秒 (时间)) ＋ “ 星期” ＋ 星期几 [n]
返回 (临时文本)

萧萧黄叶

获取日期时间星期.rar (1.14 KB, 下载次数: 8)

2011-10-28 20:11 上传

点击文件名下载附件