| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教日期的显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45033) |
| -- 作者：seintfei -- 发布时间：2014/1/14 13:03:00 -- 请教日期的显示 “日期列”输入2013-11-1，另外一列“月份”自动填入英文简称“Nov/13”或“Nov-13”，类似excel的自定义格式 |
| -- 作者：Bin -- 发布时间：2014/1/14 14:05:00 -- Dim mlist As new Dictionary(of Integer,String) mlist.Add(1,"Jan") mlist.Add(2,"Feb") mlist.Add(3,"Mar") mlist.Add(4,"Apr") mlist.Add(5,"May") mlist.Add(6,"Jun") Dim d As Date = Date.Today MessageBox.show(mlist(d.Month) & "-" & d.Day)
|