隨筆-3 
評論-26 
文章-41 
trackbacks-0

          
	

          

          
	
					


          
	
	
          '將一個一位的數字前面加零
          
          function FillZero(str)
          
   ttt          =str
          
             if len(str)=1 then
          
      ttt          ="0" & str
          
             end if
          
   FillZero          =ttt
          
          end function
          

          
          '轉化日期，將 一位補上零  2003-1-2  -->  2003-01-02
          
          function ConvertDate(tDate)
          
   ttt          =tDate
          
             if isdate(tDate) then
          
      ttt          =year(tDate) & "-" & FillZero(month(tDate)) & "-" & FillZero(day(tDate))
          
             end if
          
   ConvertDate          =ttt
          
          end function
          

          
          '輸入一個日期時間串，轉換成年四位，其他兩位的新的日期時間串
          
          function ConvertDateTime(tDateTime)
          
   ttt          =tDateTime
          
             if isdate(tDateTime) then
          
      ttt          =year(tDateTime) & "-" & FillZero(month(tDateTime)) & "-" & FillZero(day(tDateTime)) & " " & FillZero(cstr(hour(tDateTime))) & ":" & FillZero(cstr(minute(tDateTime))) & ":" & FillZero(cstr(second(tDateTime)))
          
             end if
          
   ConvertDateTime          =ttt
          
          end function
          

          

	
          posted on 2007-11-21 22:14 百年 閱讀(259) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
昭苏县|
南华县|
胶州市|
武穴市|
泰安市|
博湖县|
芦溪县|
青海省|
柘荣县|
宁津县|
梁山县|
龙川县|
百色市|
鱼台县|
闵行区|
宜黄县|
宁安市|
巴马|
福贡县|
宿松县|
葫芦岛市|
南京市|
佛坪县|
象山县|
普安县|
黔南|
高淳县|
东源县|
乌兰县|
吉安县|
库尔勒市|
萝北县|
嫩江县|
汤阴县|
紫金县|
新田县|
台东县|
合江县|
纳雍县|
桂东县|
章丘市|