隨筆-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 百年 閱讀(262) 評論(0)  編輯  收藏  所屬分類: Asp Article 
          

          







          
	    
    




          








          

				

          







    







          
        
	




主站蜘蛛池模板：
金沙县|
沙湾县|
锦州市|
灵川县|
古浪县|
闸北区|
威信县|
长海县|
化州市|
丘北县|
九龙坡区|
水富县|
綦江县|
会理县|
得荣县|
绥江县|
正宁县|
慈利县|
昆明市|
宁远县|
锡林郭勒盟|
漳平市|
赣州市|
永济市|
石柱|
永德县|
绍兴市|
甘孜|
彭泽县|
海晏县|
河津市|
乐昌市|
千阳县|
达拉特旗|
宁南县|
民勤县|
合水县|
榕江县|
黄陵县|
六枝特区|
甘孜县|