[已解决]取时间相关的字符串中的字符

chmmm

有一个字符串，它的格式可能为5-1、0501、5月1日其中一种，我现在要取月份“5”，请问应该怎么写代码？一开始在函数版问了一下，结果貌似VBA中无法使用TEXT函数。先谢过各位高手了。这就不用附件了吧？

最佳答案

月排行榜 / 总排行榜

上清宫主

2013-7-12 17:23

如果确定月份一定在前边，那么就用val+left就成了
s = "5月1日"
m = Val(Left(s, 2))
Stop
s = "0501"
m = Val(Left(s, 2))
Stop
s = "5-01"
m = Val(Left(s, 2))

跳转到最佳答案楼层

陌小夕

VBA中可以用fromat

甲百

Sub dd()
Dim arr, a, b, c
a = "5-1"
b = "0501"
c = "5月1日"
MsgBox IIf(Val(c) < 12, Val(c), Val(Left(c, Len(b) - 2)))
End Sub

liuguansky

Sub dd()
Dim str$
str = "0501"
MsgBox Month(CDate(str))
str = "5-1"
MsgBox Month(CDate(str))
str = "5月1日"
MsgBox Month(CDate(str))
End Sub

chmmm

liuguansky 发表于 2013-7-12 14:43
Sub dd()
Dim str$
str = "0501"

这个跑出来很对，谢谢。可以帮忙改一下：如果字符串不是日期型的，返回0或者空串吗？拜托您了。

爱疯

Sub test()
    Dim str$
   
    str = "0501"
    MsgBox IIf(IsDate(str), Month(CDate(str)), 0)
   
    str = "5-1"
    MsgBox IIf(IsDate(str), Month(CDate(str)), 0)
   
    str = "5月1日"
    MsgBox IIf(IsDate(str), Month(CDate(str)), 0)
   
End Sub


Month(CDate("0501"))，不可以转换成正确的日期，等于5只是巧合。
CDate("0501")后，转为数字501（=365+31+29+31+30+15），即1901-5-15。再month()时，恰好是5。
后两种，正确。

chmmm

爱疯 发表于 2013-7-12 16:52
Sub test()
    Dim str$
   

版主求助{:30:}

上清宫主

如果确定月份一定在前边，那么就用val+left就成了
s = "5月1日"
m = Val(Left(s, 2))
Stop
s = "0501"
m = Val(Left(s, 2))
Stop
s = "5-01"
m = Val(Left(s, 2))

上清宫主

形如"501"就不行哈，这样得再加东西

chmmm

爱疯 发表于 2013-7-12 16:52
Sub test()
    Dim str$
   

哦，我是想问你“0501”怎么办来着。现在不用了，貌似8楼的方法可行了。谢谢。