怎样将数字 月份 转成对应的 英文 月份， 有没有函数可以做到。

Question

怎样将数字 月份  转成对应的 英文 月份， 有没有函数可以做到。

Answer 1

用case语句写个函数不就行了吗

Answer 2

自己用select case写一个不是很方便么

Answer 3

自己写个函数Function ConvMonth(ByVal iMonth as Integer) as String
  Select Case iMonth
    Case 1
      ConvMonth = "Jun"
    Case 2
      ConvMonth = "Feb"
    .
    .
    .
    Case 12
      ConvMonth = "..."
End Function不好意思,英文不好,英文的月份不会写了,见谅

Answer 4

Private Sub Command1_Click()
Dim Month As Byte
Month = 2
MsgBox Format(DateAdd("m", Month, #12/31/1899#), "mmm")
End Sub

Answer 5

呵呵， 谢谢各位。仔细看看format的用法， 功能真强，
还是format好。

Answer 6

发现一个问题。 用format 好像不能显示 出这样的效果： 对应 月份的 完整 单词。就用 case 算了。