本站首页    管理页面    写新日志    退出


«September 2018»
1
2345678
9101112131415
16171819202122
23242526272829
30


公告
暂无公告...

我的分类(专题)

日志更新

最新评论

留言板

链接


Blog信息
blog名称:VFP及Sql Server拙笔
日志总数:46
评论数量:107
留言数量:0
访问次数:367494
建立时间:2005年5月12日




[编程及数据库]VFP日期时间转中文日期时间
原创空间,  日后处理,  软件技术,  电脑与网络,  其他

老瓷 发表于 2015-4-9 13:05:02

本函数原为VFP中取日期转中文日期方式,后增加日期时间处理,并改用Iif及ICase修改原代码。Function DateTime2CHNParameters pdDate,plTime*!* pdDate -- 日期 或 日期时间;  plTime -- 取时间否,1--取时间,0--不取时间(默认),此参数为空时取默认值*!* By HeQiang  2003-04-01  Edit:2010-07-12If VarType(plTime, .T.)<>'N' Or IsNull(plTime) Or !Between(plTime, 0, 1) Or VarType(pdDate,.T.)='D'   plTime = 0EndIfLocal lcYMDLocal lnYear,lnMonth,lnDaylnYear = Year(pdDate)lnMonth = Month(pdDate)lnDay = Day(pdDate)lcYMD = ChrTranC(Transform(lnYear), [1234567890], [一二三四五六七八九〇]) + [年]lcYMD = lcYMD + ChrTranC(ICase(lnMonth>9, [十] + Transform(Mod(lnMonth,10)), Transform(lnMonth)), [1234567890], [一二三四五六七八九]) + [月]lcYMD = lcYMD + ChrTranC(ICase(lnDay>19, Transform(Int(lnDay/10)) + [十] + Transform(Mod(lnDay,10)), lnDay>9, [十] + Transform(Mod(lnDay,10)), Transform(lnDay)), [1234567890], [一二三四五六七八九]) + [日]If plTime=0Else   lcYMD = lcYMD + [ ] + Iif(Hour(ldDate)=0,   [〇], ChrTranC(ICase(Hour(ldDate)>19,   Transform(Int(Hour(ldDate)/10))   + [十] + Transform(Mod(Hour(ldDate),10)),   Hour(ldDate)>9,   [十] + Transform(Mod(Hour(ldDate),10)),   Transform(Hour(ldDate))),  [1234567890], [一二三四五六七八九])) + [时]   lcYMD = lcYMD +       Iif(Minute(ldDate)=0, [〇], ChrTranC(ICase(Minute(ldDate)>19, Transform(Int(Minute(ldDate)/10)) + [十] + Transform(Mod(Minute(ldDate),10)), Minute(ldDate)>9, [十] + Transform(Mod(Minute(ldDate),10)), Transform(Minute(ldDate))),[1234567890], [一二三四五六七八九])) + [分]   lcYMD = lcYMD +       Iif(Sec(ldDate)=0,    [〇], ChrTranC(ICase(Sec(ldDate)>19,    Transform(Int(Sec(ldDate)/10))    + [十] + Transform(Mod(Sec(ldDate),10)),    Sec(ldDate)>9,    [十] + Transform(Mod(Sec(ldDate),10)),    Transform(Sec(ldDate))),   [1234567890], [一二三四五六七八九])) + [秒]EndIfReturn lcYMDEndFunc


阅读全文(1246) | 回复(0) | 编辑 | 精华
 



发表评论:
昵称:
密码:
主页:
标题:
验证码:  (不区分大小写,请仔细填写,输错需重写评论内容!)



站点首页 | 联系我们 | 博客注册 | 博客登陆

Sponsored By W3CHINA
W3CHINA Blog 0.8 Processed in 0.031 second(s), page refreshed 144135148 times.
《全国人大常委会关于维护互联网安全的决定》  《计算机信息网络国际联网安全保护管理办法》
苏ICP备05006046号