主题：格式化日期和时间

如何把日期2015/4/21格式为21APR2015；时刻19:00格式为1900，谢谢

1  ddMMMMyyyy

2.解决了。

参考一下：不一定最佳

 先把 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)

哦 短格式 

我的代码format(dr("日期"), "ddMMMyyyy") ，显示出来是：21四月2015，求解

是否是在excel使用

不是，在狐表里。

日期列设为字符列，将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

 

用增加行试一试

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)