- 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=67767)
-- 发布时间：2015/5/1 17:26:00
-- 格式化日期和时间
如何把日期2015/4/21格式为21APR2015；时刻19:00格式为1900，谢谢
-- 发布时间：2015/5/1 17:49:00
--
1 ddMMMMyyyy
-- 发布时间：2015/5/1 21:49:00
--
2.解决了。
-- 发布时间：2015/5/1 23:00:00
--
参考一下：不一定最佳
先把 2015/4/21 转换为 4/21/2015
再
Dim s As String = Format(#04/21/2015#,"MM")
\'Dim nms() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"} \'定义12个月
Dim ics() As String = {"M","F","W","APR","F","S","SE","AP","N","T","J","TW"} \'定义12个月对应英文
Dim str As String
str=ics(s-1)
\'Output.Show(str)
Dim s1 As String =Format(#4/21/2015#,"ddMMyyyy")
Dim s2 As String
s2 = s1.Replace(s,str) \'将123替换为789
OutPut.Show(s2)
-- 发布时间：2015/5/2 4:14:00
--
哦 短格式
此主题相关图片如下：搜狗截图20150502041254.png
-- 发布时间：2015/5/2 19:15:00
--
我的代码format(dr("日期"), "ddMMMyyyy") ，显示出来是：21四月2015，求解
-- 发布时间：2015/5/2 19:41:00
--
是否是在excel使用
-- 发布时间：2015/5/2 20:09:00
--
不是，在狐表里。
-- 发布时间：2015/5/2 20:47:00
--
日期列设为字符列，将DataRowAdding事件的代码设置为：
e.
DataRow("日期") = Date.Today()
在DataColChanged事件中设置如下代码即可：
Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim d As Integer = Date.Today.day
Dim StartDate As Date
StartDate = New Date(y,m,d)
Dim s As String = Format(StartDate,"MM")
Dim ics() As String = {"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"} \'定义12个月对应英文
Dim str As String
str=ics(s-1)
Dim ss As String =Format(StartDate,"ddMMyyyy")
ss = ss.Replace(s,str)
e.DataRow("日期") = ss
用增加行试一试
-- 发布时间：2015/5/3 21:19:00
--
Dim d As Date = #04/21/2015#
Dim ics() As String = {"M","F","W","APR","F","S","SE","AP","N","T","J","TW"} \'定义12个月对应英文
Dim s As String = Format(#4/21/2015#,"dd@yyyy")
s = s.Replace("@", ics(d.Month-1))
msgbox(s)