以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求当月的中文格式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125133)

--  作者：cyrollin --  发布时间：2018/9/20 15:33:00 --  求当月的中文格式 比如想获得 “九月”的数值， dim nd as date = date.today Dim DateStr As String DateStr = CUDate(nd) ...然后用 substring函数吗？

--  作者：有点甜 --  发布时间：2018/9/20 15:37:00 --   Dim nd As Date = Date.today Dim DateStr As String DateStr = CLDate(nd) Dim m = iif(nd.Month >= 10, Datestr.SubString(5,3), Datestr.SubString(5,2)) msgbox(m)

--  作者：cyrollin --  发布时间：2018/9/20 15:41:00 --   哦，我就是再想， 如果是一月和十一月怎么截取， 你用的这种判断方法啊。 谢谢！