求教一个弱弱的问题
如何实现下列目标:如果日期为1月,then 目标值为200;如果日期为2月,then 目标值为300
回复 楼主 龙龙来了
if Month( xxx)=1 then target =100elseif month (xxx)= 2 then target = 2000
.....
end if
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
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
[此贴子已经被作者于2016-1-14 22:49编辑过]