VB语言中获取本月月份，要求1-9月表示为“09”，10-12月照常。 急求！如果可以，再加5分或更多。谢谢！

Question

我现在做的是Excel中的与宏有关的东西，涉及VB语言的代码，不是很懂，所以希望大侠能伸出援手帮帮忙，谢谢！
说错了，1-9 表示为“01,02，... ,09”

Answer 1

这个非常简单的.

用时间函数,然后用文字转下.就行了.
我现在用的是.NET,不太清楚VB6.0是不是了.

你先用 日期里的Month 把一个时间中的月份取出来 .
再用Format转化下文本格式, 比如用的月份是 mon 那么就是: Format(mon,"00")

这样就行了. "00" 表示的是以两位数字显示,没到两位的以0补.

如果是在EXCEL宏里,那就直接给你写了吧:

Dim Mon1 As String
Dim Mon2 As String
Mon1 = VBA.Month(VBA.Now)
Mon2 = Format(Mon1, "00")

这里的Mon2 就是 你的那个月份.追问

恩，是的。
我的是这种思路，但是开始没有弄好。后来问别人就弄好了。
我的解决办法供你参考吧，呵呵
按你给的变量的定义
1.
Mon1 = Format(Date, "yyyymmdd")
Mon2 = Left(Mon1, 6) - 100
2.
Mon2 = Year(Date) - 1 & Format(Month(Date), "00")
当时我的解决方案是这样的
Mon2 = Year(Date) - 1 & Format(Month(Date), "mm")

这个时候返回值是"201101”，不是我想要的201107