Foxtable(狐表) → 用户栏目 → 专家坐堂 → 日期问题


  共有3507人关注过本帖树形打印复制链接

主题：日期问题
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		日期问题  发帖心情 Post By：2015/4/17 15:39:00 [显示全部帖子]

在命令窗口输入Dim ln As New Lunar(Date.Today)
Output.Show(CLDate(ln.LunarDate ))
将系统日期改为2015年4月17日和4月18日这两天执行命令报错,改成其他日期不报错,怎么回事呀?如果代码有误怎么写?
 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/17 15:51:00 [显示全部帖子]

那这两天的农历日期要这样显示怎么办?

 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/17 15:59:00 [显示全部帖子]

我做了一个项目,在项目的菜单中加了一个标签专门用于显示农历日期.项目运行了半年没问题,今天突然出现这个情况,那如何解决这个问题,总不可能这两天不行就这不要这样显示了吧.

 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/17 16:08:00 [显示全部帖子]

我原来的代码是这样的:Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label1")
Dim ln As New Lunar(Date.Today)
lbl.Text =  "今天是:" & CLDate(Date.Today) & "   "& Format(Date.Today,"dddd") & "  " &"农历:" & CLDate(ln.LunarDate )
怎么修改?
这些代码是放在窗口中的AfterLoad事件中的
[此贴子已经被作者于2015/4/17 16:09:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/17 16:17:00 [显示全部帖子]

显示的是二零一五年二月二八日二九日，为什么不是二0一五年二月二十八日二十九日呢，因为我的阳历日期是二0一五年四月十七日要一致才好看
[此贴子已经被作者于2015/4/17 16:21:30编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/18 11:12:00 [显示全部帖子]

问题又出来啦，二十日、三十日变成了二十0日、三十0日了。如果1-10日写成“初一、初二、、、、、”，11-30日写成十一、、、、二十一、、、、怎么编写代码？
[此贴子已经被作者于2015/4/18 11:15:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/18 11:28:00 [显示全部帖子]

用12楼的是：二十八日是正常的，而二十零日、三十零日没有这个说法，关键是如何删除零字
[此贴子已经被作者于2015/4/18 11:31:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/18 11:30:00 [显示全部帖子]

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label1")
Dim ln As New Lunar(Date.Today)
Dim s  As String = ln.LunarDate
Dim v() As String  = s.Split("-")
Dim r As String = CLNum(v(2))
s =  "今天是:" & CLDate(Date.Today) & "   "& Format(Date.Today,"dddd") & "  " &"农历:" & CLNum(v(0)) & "年" & CLNum(v(1)) & "月" & IIF(r.length=2,r.Insert(1,"十"),r) & "日"
lbl.Text = s.Replace("零","O")
 回到顶部
帅哥哟，离线，有人找我吗？
狂风暴雨狂波
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：314 积分：3043 威望：0 精华：0 注册：2014/3/21 17:22:00 		  发帖心情 Post By：2015/4/18 12:10:00 [显示全部帖子]

问题已解决，谢谢Bin！！我的代码改成这样的：
Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label1")
Dim ln As New Lunar(Date.Today)
Dim s  As String = ln.LunarDate
Dim v() As String  = s.Split("-")
Dim r As String = CLNum(v(2))
Dim r2 As String = IIF(r.length=2,r.Insert(1,"十"),r)
Dim r1 As String =IIF(r2.EndsWith("零"),r2.Replace("零",""),r2)
If r1.length=1 Then
    s =  "今天是:" & CLDate(Date.Today) & "   "& Format(Date.Today,"dddd") & "  " &"农历:" & CLNum(v(0)) & "年" & CLNum(v(1)) & "月" & IIF(r1.length=1,r1.Insert(0,"初"),r1)
    lbl.Text = s.Replace("零","O")
Else
    s =  "今天是:" & CLDate(Date.Today) & "   "& Format(Date.Today,"dddd") & "  " &"农历:" & CLNum(v(0)) & "年" & CLNum(v(1)) & "月" & IIF(r2.EndsWith("零"),r2.Replace("零",""),r2) & "日"
    lbl.Text = s.Replace("零","O")
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询