时间到文本的几种转换格式

尘莫央 · 发表于 2011-4-9 14:34:30

[e].版本 2

.程序集窗口程序集1

.子程序 CTtime, 文本型, 公开, 时间转化文本的几种形式
.参数 time, 日期时间型
.参数 format, 整数型, , 格式,1为20110208，2为2011年02月08日,3为2011-02-08
.参数 year, 逻辑型, , 是否显示年份
.参数 month, 逻辑型, , 是否显示月份
.参数 day, 逻辑型, , 是否显示日期
.局部变量 Tyear, 文本型
.局部变量 Tmonth, 文本型
.局部变量 Tday, 文本型

.判断开始 (format ＝ 1)
.如果 (year ＝真)
      Tyear ＝到文本 (取年份 (time))
.否则
      Tyear ＝ “”
.如果结束
.如果 (month ＝真)
      Tmonth ＝取文本右边 (“00” ＋到文本 (取月份 (time)), 2)
.否则
      Tmonth ＝ “”
.如果结束
.如果 (day ＝真)
      Tday ＝取文本右边 (“00” ＋到文本 (取日 (time)), 2)
.否则
      Tday ＝ “”
.如果结束
返回 (Tyear ＋ Tmonth ＋ Tday)
.判断 (format ＝ 2)
.如果 (year ＝真)
      Tyear ＝到文本 (取年份 (time)) ＋ “年”
.否则
      Tyear ＝ “”
.如果结束
.如果 (month ＝真)
      Tmonth ＝取文本右边 (“00” ＋到文本 (取月份 (time)), 2) ＋ “月”
.否则
      Tmonth ＝ “”
.如果结束
.如果 (day ＝真)
      Tday ＝取文本右边 (“00” ＋到文本 (取日 (time)), 2) ＋ “日”
.否则
      Tday ＝ “”
.如果结束
返回 (Tyear ＋ Tmonth ＋ Tday)
.判断 (format ＝ 3)
.如果 (year ＝真)
      Tyear ＝到文本 (取年份 (time))
.否则
      Tyear ＝ “”
.如果结束
.如果 (month ＝真)
      Tmonth ＝ “-” ＋取文本右边 (“00” ＋到文本 (取月份 (time)), 2)
.否则
      Tmonth ＝ “”
.如果结束
.如果 (day ＝真)
      Tday ＝ “-” ＋取文本右边 (“00” ＋到文本 (取日 (time)), 2)
.否则
      Tday ＝ “”
.如果结束
返回 (Tyear ＋ Tmonth ＋ Tday)
.默认
返回 (“ERROR”)
.判断结束[/e]

5375a · 发表于 2011-4-11 07:02:30

回帖是对作者有力的支持

wszxx520 · 发表于 2011-4-27 16:00:06

新来的学习中

瞬间，爱上你 · 发表于 2011-4-28 19:29:36

能直接到文本吗？

dearking · 发表于 2011-4-28 21:12:03

用中文弄变量不行吗？？？

wangjie · 发表于 2011-4-29 05:40:46

好难哟，支持一下

绿洲清水 · 发表于 2011-4-29 20:33:04

新来的学习中

rm0724 · 发表于 2011-4-29 22:02:52

不是很明白

zzfee · 发表于 2011-5-5 21:44:02

很好的~~~~~~~~~~~~~~~~~~~~~~~~··

zhangzhum · 发表于 2011-5-6 07:22:12

学习了……

		自动登录	找回密码
密码			注册

[图文资料] 时间到文本的几种转换格式

评分