中文小写年月日——日期处理

178826559

自己做的一个中文小写的日期代码，请供需要的朋友使用。并也请大神多多批评指正。


以后，我会多多将自己 做的一些小东东发到这里。


一、备案。


二、备查。


三、求大神批评指正。


四、供需要的朋友参考。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
局部_临时文本型	文本型

局部_临时文本型 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日”
编辑框大写日期.内容 ＝ 子程序_数字转简体化 (局部_临时文本型)

子程序名	返回值类型	公开	备 注
子程序_数字转简体化	文本型		主要用来处理日期的简体中文化
参数名	类 型	参考	可空	数组	备 注
参数_日期年月日	文本型

变量名	类 型	静态	数组	备 注
局部_结果日期	文本型
mynian	整数型
myyue	整数型
myri	整数型
mydate1	文本型
计次	整数型

' 参数_日期年月日 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日”
mynian ＝ 取年份 (到时间 (参数_日期年月日))
myyue ＝ 取月份 (到时间 (参数_日期年月日))
myri ＝ 取日 (到时间 (参数_日期年月日))
局部_结果日期 ＝ “”
计次循环首 (4, 计次)
mydate1 ＝ mydate1 ＋ 子程序_年个数日期 (到数值 (取文本中间 (到文本 (mynian), 计次, 1)))
计次循环尾 ()
局部_结果日期 ＝ mydate1 ＋ “年”
如果 (myyue ＜ 10)
局部_结果日期 ＝ 局部_结果日期 ＋ 子程序_年个数日期 (myyue) ＋ “月”
mydate1 ＝ “十”
如果真 (到数值 (取文本右边 (到文本 (myyue), 1)) ＞ 0)
mydate1 ＝ mydate1 ＋ 子程序_年个数日期 (到数值 (取文本右边 (到文本 (myyue), 1)))
局部_结果日期 ＝ 局部_结果日期 ＋ mydate1 ＋ “月”
mydate1 ＝ “”
判断 (myri ＜ 10)
mydate1 ＝ 子程序_年个数日期 (myri)
mydate1 ＝ 子程序_两位日期 (到数值 (取文本左边 (到文本 (myri), 1)))
如果真 (到数值 (取文本右边 (到文本 (myri), 1)) ＞ 0)
mydate1 ＝ mydate1 ＋ 子程序_年个数日期 (到数值 (取文本右边 (到文本 (myri), 1)))

局部_结果日期 ＝ 局部_结果日期 ＋ mydate1 ＋ “日”
返回 (局部_结果日期)

子程序名	返回值类型	公开	备 注
子程序_年个数日期	文本型		系 子程序_数字转简体化 的附属
参数名	类 型	参考	可空	数组	备 注
参数1	整数型

变量名	类 型	静态	数组	备 注
我的日期	文本型

我的日期 ＝ “”
如果真 (参数1 ＝ 0)
我的日期 ＝ “○”
如果真 (参数1 ＝ 1)
我的日期 ＝ “一”
如果真 (参数1 ＝ 2)
我的日期 ＝ “二”
如果真 (参数1 ＝ 3)
我的日期 ＝ “三”
如果真 (参数1 ＝ 4)
我的日期 ＝ “四”
如果真 (参数1 ＝ 5)
我的日期 ＝ “五”
如果真 (参数1 ＝ 6)
我的日期 ＝ “六”
如果真 (参数1 ＝ 7)
我的日期 ＝ “七”
如果真 (参数1 ＝ 8)
我的日期 ＝ “八”
如果真 (参数1 ＝ 9)
我的日期 ＝ “九”
返回 (我的日期)

子程序名	返回值类型	公开	备 注
子程序_两位日期	文本型		系 子程序_数字转简体化 的附属
参数名	类 型	参考	可空	数组	备 注
参数1	整数型

变量名	类 型	静态	数组	备 注
我的日期	文本型

我的日期 ＝ “”
如果真 (参数1 ＝ 1)
我的日期 ＝ “十”
如果真 (参数1 ＝ 2)
我的日期 ＝ “二十”
如果真 (参数1 ＝ 3)
我的日期 ＝ “三十”
返回 (我的日期)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 局部_临时文本型, 文本型<br /> <br /> 局部_临时文本型 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日”<br /> 编辑框大写日期.内容 ＝ 子程序_数字转简体化 (局部_临时文本型)<br /> <br /> <br /> <br /> .子程序 子程序_数字转简体化, 文本型, , 主要用来处理日期的简体中文化<br /> .参数 参数_日期年月日, 文本型<br /> .局部变量 局部_结果日期, 文本型<br /> .局部变量 mynian, 整数型<br /> .局部变量 myyue, 整数型<br /> .局部变量 myri, 整数型<br /> .局部变量 mydate1, 文本型<br /> .局部变量 计次, 整数型<br /> <br /> ' 参数_日期年月日 ＝ 到文本 (取年份 (取现行时间 ())) ＋ “年” ＋ 到文本 (取月份 (取现行时间 ())) ＋ “月” ＋ 到文本 (取日 (取现行时间 ())) ＋ “日”<br /> mynian ＝ 取年份 (到时间 (参数_日期年月日))<br /> myyue ＝ 取月份 (到时间 (参数_日期年月日))<br /> myri ＝ 取日 (到时间 (参数_日期年月日))<br /> 局部_结果日期 ＝ “”<br /> .计次循环首 (4, 计次)<br />     mydate1 ＝ mydate1 ＋ 子程序_年个数日期 (到数值 (取文本中间 (到文本 (mynian), 计次, 1)))<br /> .计次循环尾 ()<br /> 局部_结果日期 ＝ mydate1 ＋ “年”<br /> .如果 (myyue ＜ 10)<br />     局部_结果日期 ＝ 局部_结果日期 ＋ 子程序_年个数日期 (myyue) ＋ “月”<br /> .否则<br />     mydate1 ＝ “十”<br />     .如果真 (到数值 (取文本右边 (到文本 (myyue), 1)) ＞ 0)<br />         mydate1 ＝ mydate1 ＋ 子程序_年个数日期 (到数值 (取文本右边 (到文本 (myyue), 1)))<br />     .如果真结束<br />     局部_结果日期 ＝ 局部_结果日期 ＋ mydate1 ＋ “月”<br /> .如果结束<br /> mydate1 ＝ “”<br /> .判断开始 (myri ＜ 10)<br />     mydate1 ＝ 子程序_年个数日期 (myri)<br /> .默认<br />     mydate1 ＝ 子程序_两位日期 (到数值 (取文本左边 (到文本 (myri), 1)))<br />     .如果真 (到数值 (取文本右边 (到文本 (myri), 1)) ＞ 0)<br />         mydate1 ＝ mydate1 ＋ 子程序_年个数日期 (到数值 (取文本右边 (到文本 (myri), 1)))<br />     .如果真结束<br /> <br /> .判断结束<br /> 局部_结果日期 ＝ 局部_结果日期 ＋ mydate1 ＋ “日”<br /> 返回 (局部_结果日期)<br /> <br /> <br /> .子程序 子程序_年个数日期, 文本型, , 系 子程序_数字转简体化 的附属<br /> .参数 参数1, 整数型<br /> .局部变量 我的日期, 文本型<br /> <br /> 我的日期 ＝ “”<br /> .如果真 (参数1 ＝ 0)<br />     我的日期 ＝ “○”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 1)<br />     我的日期 ＝ “一”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 2)<br />     我的日期 ＝ “二”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 3)<br />     我的日期 ＝ “三”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 4)<br />     我的日期 ＝ “四”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 5)<br />     我的日期 ＝ “五”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 6)<br />     我的日期 ＝ “六”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 7)<br />     我的日期 ＝ “七”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 8)<br />     我的日期 ＝ “八”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 9)<br />     我的日期 ＝ “九”<br /> .如果真结束<br /> 返回 (我的日期)<br /> <br /> <br /> .子程序 子程序_两位日期, 文本型, , 系 子程序_数字转简体化 的附属<br /> .参数 参数1, 整数型<br /> .局部变量 我的日期, 文本型<br /> <br /> 我的日期 ＝ “”<br /> .如果真 (参数1 ＝ 1)<br />     我的日期 ＝ “十”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 2)<br />     我的日期 ＝ “二十”<br /> .如果真结束<br /> .如果真 (参数1 ＝ 3)<br />     我的日期 ＝ “三十”<br /> .如果真结束<br /> 返回 (我的日期)

DeleteSUV

高手在民间

捷斯劫

是个好东西,,,,

sxlldaj

不错，学习学习

曜辉

真心不错的说，学习了！

hai201086

学习一下支持