显示日期格式的几个函数

最新推荐文章于 2025-08-25 18:57:59 发布

原创最新推荐文章于 2025-08-25 18:57:59 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#function

博客给出了三个月份转换函数。MonthToCH函数将月份转换为中文表述，MonthToLongEN函数将月份转换为长英文表述，MonthToShortEN函数将月份转换为短英文表述。函数会判断输入是否为数字，再进行相应转换。

'月份转换到中文
Function MonthToCH(TheMonth)
Dim mm
mm=split("一,二,三,四,五,六,七,八,九,十,十一,十二",",")
If IsNumeric(TheMonth) Then
MonthToCH = mm(TheMonth-1) & "月份"
Else
MonthToCH = " 月份"
End If
End Function

'月份转换到长英文
Function MonthToLongEN(TheMonth)
Dim mm
mm=split("January,February,March,April,May,June,July,August,September,October,November,December",",")
If IsNumeric(TheMonth) Then
MonthToLongEN = mm(TheMonth-1)
Else
MonthToLongEN = " "
End If
End Function

'月份转换到短英文
Function MonthToShortEN(TheMonth)
Dim mm
mm=split("Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec",",")
If IsNumeric(TheMonth) Then
MonthToShortEN = mm(TheMonth-1)
Else
MonthToShortEN = " "
End If
End Function