摘要:
'编号成生Geovin Du'不夠位數前面加零 塗聚文Function getStringlen(str,lenint) so="" itop=0 slen=Len(str) itop=lenint-slen i=0 if(slen" Next end if getStringlen=so&strEnd Functionsyear=year(now)smonth=Right("0" & Month(Now),2)sday=Right("0" & Day(Now),2)shour=Rig 阅读全文