七郎's JavaBlog

          草木竹石皆可為劒。至人之用人若鏡,不將不迎,應而不藏,故能勝物而不傷。
          posts - 60, comments - 14, trackbacks - 0, articles - 0

          又一個格式化時間日期函數

          Posted on 2007-04-16 15:36 七郎歸來 閱讀(154) 評論(0)  編輯  收藏
          我們有時候遇到的日期格式可能是2004-1-12 ,系統自動將月份中的0去掉了,但是有時候我們需要完整的日期格式 ,如:2004-01-12 那么怎么辦呢?下面的幾個函數可以輕松搞定。
          '將一個一位的數字前面加零

          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



          只有注冊用戶登錄后才能發表評論。


          網站導航:
           
          主站蜘蛛池模板: 综艺| 赣榆县| 全南县| 巨野县| 富顺县| 汨罗市| 呼图壁县| 乳山市| 太和县| 平顶山市| 阜新市| 分宜县| 金溪县| 丹江口市| 玉门市| 洛南县| 苗栗市| 澎湖县| 库伦旗| 扬中市| 丰镇市| 阿图什市| 九龙坡区| 大埔县| 莱州市| 西贡区| 天长市| 波密县| 青阳县| 科技| 安乡县| 黄陵县| 德兴市| 巴塘县| 颍上县| 靖安县| 菏泽市| 原阳县| 上杭县| 蚌埠市| 平顶山市|