vbscript格式化日期格式中的月份和日期為兩位元字

今天改一個產生id的函數，要求以yyyymmdd的形式產生id，但是vbscript中產生的日期格式可能會成為yyyymd的形式，也就是去掉了高位上的0，尋找了vbscript的日期和時間函數，沒找到合適的函數。

以前曾經做過類似的東西，大概是判斷數字是否小於10，然後追加前置0。（剛看了點演算法的東西，順便用一下，咱也來寫個虛擬碼:P）

 

//date()為獲得當前日期的函數，預設格式yyyy-mm-dd   mm和dd可能只有個位元字

//year(),month(),day()是從日期中抽取相應的數字

//strID就是要得到的結果了

strID=year(date())&formatStr(month(date()))&formatStr(day(date()))

formatStr(m)

//m為要格式化的數字

if cInt(m)<10

  m=0&cInt(m)

return m

哈哈，這就是一個演算法的虛擬碼了

這樣實現很直接，下面有更直接的，直接提取十位元字跟個位元字，然後拼起來就行了。

虛擬碼：

formatChar(m)

  m=fix(m/10)&(m-fix(m/10)*10)

return m

其實差不多，只是下面這個可以不用寫函數，直接寫在一行裡面就行了。

strid=year(date())&fix(month(date())/10)&(month(date())-fix(month(date())/10)*10)&fix(day(date())/10)&(day(date())-fix(day(date())/10)*10)