以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]想要在状态栏显示农历日期怎么写代码？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49777)
--  作者：狂风暴雨狂波
--  发布时间：2014/4/23 22:22:00
--  [求助]想要在状态栏显示农历日期怎么写代码？

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

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

星期3这个数字“3”如何转换成文字“三”
--  作者：有点酸
--  发布时间：2014/4/23 22:33:00
--  
StatusBar.Message3="今天是:"  & Foramt(Date.Today,"dddd")
--  作者：狂风暴雨狂波
--  发布时间：2014/4/23 22:44:00
--  
谢谢，试了一下，提示未声明名称“Foramt”
--  作者：有点酸
--  发布时间：2014/4/23 22:44:00
--  
format
--  作者：有点甜
--  发布时间：2014/4/23 22:45:00
--  

 这么好

 

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

--  作者：hws005
--  发布时间：2014/4/23 22:50:00
--  
StatusBar.Message3 = "今天是:" & Format(Date.now,"yyyy年MM月dd日 dddd")
--  作者：狂风暴雨狂波
--  发布时间：2014/4/23 23:08:00
--  
谢谢，可显示农历的问题还没解决
--  作者：hws005
--  发布时间：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编辑过]
--  作者：狂风暴雨狂波
--  发布时间：2014/4/24 13:14:00
--  
谢谢！
--  作者：狂风暴雨狂波
--  发布时间：2014/4/24 21:05:00
--  
谢谢大家！我经过测试，我是用以下代码： 

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

得到的结果如图片