vb脚本实现按月份区分标识

今天突然接到用户的要求，说是客户标签的流水号要求比较特殊，当前功能无法设置满足客户标签的要求。看有什么办法解决。

通话以后，大概了解标签的流水号规则，问题的主要原因是同于客户标签的流水号只有3位，每次最高999后又会从1开始，这样的话，有可能会出现流水号重复。

其实流水号是4位，但是流水号要区分为内包与外箱，而区分方法就是外箱流水号第一位固定为“F”，只剩下3位流水号。内包是4位纯数字的流水号，这样的话，内包与外箱标签的流水号就能区分出来。

经沟通后，有一办法可以解决此问题，就是使用bartender的vb脚本功能，将原先外箱的第一位的固位“F”，通过VB脚本，判断当前月份，然后赋予不同的字母，这样一年下来就不会重复。

然后花了几分钟写了个按月份给出对应的一个字母功能：

if  Month(Now) = 1 then
Value = “G”
elseif Month(Now) = 2 then
Value = “H”
elseif Month(Now) = 3 then
Value = “J”
elseif Month(Now) = 4 then
Value = “K”
elseif Month(Now) = 5 then
Value = “L”
elseif Month(Now) = 6 then
Value = “M”
elseif Month(Now) = 7 then
Value = “N”
elseif Month(Now) = 8 then
Value = “P”
elseif Month(Now) = 9 then
Value = “Q”
elseif Month(Now) = 10 then
Value = “R”
elseif Month(Now) = 11 then
Value = “S”
else
Value = “T”
end if

花几分钟写好脚本，发给用户测试，用户测试后，可以满足这个客户标签的特殊需要，此事算告一段落了。