將江江江~~~
昨天訂,今天就到貨了。
Red = CLng("&h" & (mid("#123456",2,2)))
Green = CLng("&h" & (mid("#123456",4,2)))
Blue = CLng("&h" & (Right("#123456",2)))
http://www.programmer-club.com.tw/ShowSameTitleN/vb/26403.html
' 取月的最後一天
dim m,y,nextDate,bylastdate
m=mid(month(date()))
y=year(date())
if m=12 then m=1:y=y+1 else m=m+1
nextDate=y & "-" & m & "-" & "1" '下個月的第一天
bylastdate=dateAdd("d",-1,nextDate) '這個月的最後一天
參考: http://hi.baidu.com/lauplay/blog/item/c5654c59d387f3212934f061.html