如何实现下列目标：如果日期为1月，then 目标值为200；如果日期为2月，then 目标值为300

if Month( xxx)=1 then target =100
elseif month (xxx)= 2 then target = 2000

.....
end if

如果你要12个月select的话，我的建议是有两种
1.

Dim a as integer
a=month(now)
select case a 
case 1
taeget=100
case 2
taeget=200
case 3 
taeget=300
case 4
taeget=400
...
end select

中间请自行脑补
2.
这一段代码比较自动化，免除了手动打代码的麻烦（曾经复制黏贴一段代码一点点改参数改到我崩溃为止）,前提是你的对应数值要规律

dim i as integer
dim a as integer
for i = 0 to 12
if month(now)= i then goto sss
a= a + 每次有规律数值的值
next i
exit sub
sss:
target=a
end sub

PS:一个月没碰VB了，这是我一个月后第一次再碰，代码可能有BUG或者是过于复杂的地方，我只是给个思路

[此贴子已经被作者于2016-1-14 22:49编辑过]

为什么不直接(month(date)+1)*100?

额似乎也可以啊
还是WMF2014的代码比较好