nanzfff

Untitled

Dec 14th, 2019
459
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' 使用 Choose() 將星期(Integer)轉為對應文字 Choose跟兩個Function意思
  2. Function getWk2(ByVal w As Integer) As String
  3.     If (w > 7) Or (w < 1) Then
  4.         getWk2 = ""
  5.     Else
  6.         getWk2 = Choose(w, "週日", "週一", "週二", "週三", "週四", "週五", "週六")
  7.     End If
  8. End Function
  9.  
  10. Function getDateTime1() As String
  11.     getDateTime1 = Format(Now(), "yyyy-MM-dd-aaa, hh:mm:ss")
  12. End Function
  13.  
  14. Function getDateTime2() As String
  15.     ' Year(), Month(), Day(), Hour(), Minute(), Second() 回傳值為 Integer
  16.    Dim y: y = Year(Now())
  17.     Dim m: m = Month(Now())
  18.     Dim d: d = Day(Now())
  19.     Dim h: h = Hour(Now())
  20.     Dim mn: mn = Minute(Now())
  21.     Dim s: s = Second(Now())
  22.     Dim w: w = Weekday(Now())
  23.    
  24.     ' 根據數值大小判斷是否要補零
  25.    '     小於指定值時補零. 字串(String)與整數(Integer)做字串合併(&)時,Integer 會轉為 String
  26.    '     大於等於指定值時將 Integer 轉為 String
  27.    y = IIf(y < 1000, "0" & y, CStr(y))
  28.     m = IIf(m < 10, "0" & m, CStr(m))
  29.     d = IIf(d < 10, "0" & d, CStr(d))
  30.     h = IIf(h < 10, "0" & h, CStr(h))
  31.     mn = IIf(mn < 10, "0" & mn, CStr(mn))'"0"這幹嘛用?
  32.    s = IIf(s < 10, "0" & s, CStr(s))
  33.     w = getWk2(w)
  34.    
  35.     getDateTime2 = y & "-" & m & "-" & d & "-" & w & ", " & h & ":" & mn & ":" & s'這段是甚麼意思?
  36. End Function
  37.  
  38. Function getDateTime3() As String
  39.     ' Year(), Month(), Day(), Hour(), Minute(), Second() 回傳值為 Integer
  40.    ' 預先將 Integer 轉為 String
  41.    Dim y: y = CStr(Year(Now()))
  42.     Dim m: m = CStr(Month(Now()))
  43.     Dim d: d = CStr(Day(Now()))
  44.     Dim h: h = CStr(Hour(Now()))
  45.     Dim mn: mn = CStr(Minute(Now()))
  46.     Dim s: s = CStr(Second(Now()))
  47.     Dim w: w = getWk1(Weekday(Now()))
  48.    
  49.     ' String() 為產生重複文字的函數 (Strings 模組)
  50.    y = String(4 - Len(y), "0") + y
  51.     m = String(2 - Len(m), "0") + m
  52.     d = String(2 - Len(d), "0") + d
  53.     h = String(2 - Len(h), "0") + h
  54.     mn = String(2 - Len(mn), "0") + mn'怎麼判斷?-?補0?
  55.    s = String(2 - Len(s), "0") + s
  56.    
  57.     getDateTime3 = y & "-" & m & "-" & d & "-" & w & ", " & h & ":" & mn & ":" & s
  58. End Function
RAW Paste Data