Foxtable(狐表)用户栏目专家坐堂 → [求助]想要在状态栏显示农历日期怎么写代码?


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

主题:[求助]想要在状态栏显示农历日期怎么写代码?

帅哥哟,离线,有人找我吗?
狂风暴雨狂波
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:3070 威望:0 精华:0 注册:2014/3/21 17:22:00
[求助]想要在状态栏显示农历日期怎么写代码?  发帖心情 Post By:2014/4/23 22:22:00 [只看该作者]

想要在状态栏显示农历日期怎么写代码?

StatusBar.Message3="今天是:"  & Date.Today & "星期" & Date.Today.DayOfWeek

星期3这个数字“3”如何转换成文字“三”


 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2014/4/23 22:33:00 [只看该作者]

StatusBar.Message3="今天是:"  & Foramt(Date.Today,"dddd")

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


加好友 发短信
等级:小狐 帖子:316 积分:3070 威望:0 精华:0 注册:2014/3/21 17:22:00
  发帖心情 Post By:2014/4/23 22:44:00 [只看该作者]

谢谢,试了一下,提示未声明名称“Foramt”

 回到顶部
帅哥哟,离线,有人找我吗?
有点酸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2014/4/23 22:44:00 [只看该作者]

format

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/23 22:45:00 [只看该作者]

 这么好

 

StatusBar.Message3 = "今天是:"  & Format(Date.Today,"dddd")


 回到顶部
帅哥哟,离线,有人找我吗?
hws005
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2189 威望:0 精华:0 注册:2013/9/26 1:49:00
  发帖心情 Post By:2014/4/23 22:50:00 [只看该作者]

StatusBar.Message3 = "今天是:" & Format(Date.now,"yyyy年MM月dd日 dddd")

 回到顶部
帅哥哟,离线,有人找我吗?
狂风暴雨狂波
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:3070 威望:0 精华:0 注册:2014/3/21 17:22:00
  发帖心情 Post By:2014/4/23 23:08:00 [只看该作者]

谢谢,可显示农历的问题还没解决

 回到顶部
帅哥哟,离线,有人找我吗?
hws005
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:272 积分:2189 威望:0 精华:0 注册:2013/9/26 1:49:00
  发帖心情 Post By:2014/4/23 23:20:00 [只看该作者]

Dim nl As String = "" & Date.Today.Month & "/" & Date.Today.Day & "/" & Date.Today.Year & ""
Dim ln As New Lunar(nl)
StatusBar.Message3 = "今天是农历:" & ClDate(ln.LunarDate) & "   " & "星期" & "日一二三四五六".Chars(Today.DayOfWeek)

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140424001517.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2014-4-24 0:14:49编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狂风暴雨狂波
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:3070 威望:0 精华:0 注册:2014/3/21 17:22:00
  发帖心情 Post By:2014/4/24 13:14:00 [只看该作者]

谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
狂风暴雨狂波
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:316 积分:3070 威望:0 精华:0 注册:2014/3/21 17:22:00
  发帖心情 Post By:2014/4/24 21:05:00 [只看该作者]

谢谢大家!我经过测试,我是用以下代码: 

  StatusBar.Message3 = "今天是:" & CLDate(Date.now) & "   "& Format(Date.now,"dddd") & "  " &"农历是:" &  CLDate(New Lunar(Date.now).LunarDate)

得到的结果如图片


 回到顶部
总数 12 1 2 下一页