提供一个处理日期的函数-VBScript的

javaleo

QTP是用VBScript的，而VBScript里面关于日期格式的过程很少，这里有一个过程，可以得到各种日期格式

1. function formatDate(format, intTimeStamp)
   
2. Dim monthname()
   
3. Redim monthname(12)
   
4. monthname(1) = "January"
   
5. monthname(2) = "February"
   
6. monthname(3) = "March"
   
7. monthname(4) = "April"
   
8. monthname(5) = "May"
   
9. monthname(6) = "June"
   
10. monthname(7) = "July"
    
11. monthname(8) = "August"
    
12. monthname(9) = "September"
    
13. monthname(10) = "October"
    
14. monthname(11) = "November"
    
15. monthname(12) = "December"
    
16. 
    
17. dim unUDate, A
    
18. 
    
19. dim OriginalLocale
    
20. dim res
    
21. OriginalLocale = GetLocale
    
22. res = SetLocale("en-gb")
    
23. 
    
24. ' Test to see if intTimeStamp looks valid. If not, they have passed a normal date
    
25. if not (isnumeric(intTimeStamp)) then
    
26. if isdate(intTimeStamp) then
    
27. intTimeStamp = DateDiff("S", "01/01/1970 00:00:00", intTimeStamp)
    
28. else
    
29. response.write "Date Invalid"
    
30. exit function
    
31. end if
    
32. end if
    
33. 
    
34. if (intTimeStamp=0) then
    
35. unUDate = now()
    
36. else
    
37. unUDate = DateAdd("s", intTimeStamp, "01/01/1970 00:00:00")
    
38. end if
    
39. 
    
40. unUDate = trim(unUDate)
    
41. 
    
42. 'bug fix for midnight problems
    
43. If (Len(unUDate) <= 11) Then unUDate = Trim(unUDate) & " 00:00:00"
    
44. 
    
45. dim startM : startM = 1
    
46. dim startD : startD = InStr(startM, unUDate, "/")+1
    
47. dim startY : startY = InStr(startD, unUDate, "/")+1
    
48. dim startHour : startHour = InStr(startY, unUDate, " ")+1
    
49. dim startMin : startMin = InStr(startHour, unUDate, ":")+1
    
50. dim startSec : startSec = InStr(startMin+1, unUDate, ":")+1
    
51. dim dateMonth : dateMonth = mid(unUDate, startD, ((startY - 1) - startD))
    
52. dim dateDay : dateDay = mid(unUDate, 1, ((startD - 1) - 1))
    
53. dim dateYear : dateYear = Year(unUDate)
    
54. dim dateHour : dateHour = mid(unUDate, startHour, ((startMin - startHour) - 1))
    
55. dim dateMinute : dateMinute = mid(unUDate, startMin, 2)
    
56. dim dateSecond : dateSecond = mid(unUDate, InStr(startMin, unUDate, ":") + 1, 2)
    
57. 
    
58. format = replace(format, "%Y", right(dateYear, 4))
    
59. format = replace(format, "%y", right(dateYear, 2))
    
60. format = replace(format, "%m", dateMonth)
    
61. format = replace(format, "%n", cint(dateMonth))
    
62. 
    
63. ' Response.Write CStr(cint(dateMonth))
    
64. ' Response.Flush
    
65. 
    
66. format = replace(format, "%F", monthname(cint(dateMonth)))
    
67. format = replace(format, "%M", left(monthname(cint(dateMonth)), 3))
    
68. format = replace(format, "%d", dateDay)
    
69. format = replace(format, "%j", cint(dateDay))
    
70. format = replace(format, "%h", mid(unUDate, startHour, 2))
    
71. format = replace(format, "%g", cint(mid(unUDate, startHour, 2)))
    
72. 
    
73. if (cint(dateHour) > 12) then
    
74. A = "PM"
    
75. else
    
76. A = "AM"
    
77. end if
    
78. format = replace(format, "%A", A)
    
79. format = replace(format, "%a", lcase(A))
    
80. 
    
81. if (A = "PM") then format = replace(format, "%H", Right("00" & dateHour - 12, 2))
    
82. format = replace(format, "%H", dateHour)
    
83. if (A = "PM") then format = replace(format, "%G", left("0" & cint(dateHour) - 12, 2))
    
84. format = replace(format, "%G", cint(dateHour))
    
85. 
    
86. format = replace(format, "%i", dateMinute)
    
87. format = replace(format, "%I", cint(dateMinute))
    
88. format = replace(format, "%s", dateSecond)
    
89. format = replace(format, "%S", cint(dateSecond))
    
90. format = replace(format, "%L", WeekDay(unUDate))
    
91. format = replace(format, "%D", left(WeekDayName(WeekDay(unUDate)), 3))
    
92. format = replace(format, "%l", WeekDayName(WeekDay(unUDate)))
    
93. format = replace(format, "%U", intTimeStamp)
    
94. format = replace(format, "11%O", "11th")
    
95. format = replace(format, "1%O", "1st")
    
96. format = replace(format, "12%O", "12th")
    
97. format = replace(format, "2%O", "2nd")
    
98. format = replace(format, "13%O", "13th")
    
99. format = replace(format, "3%O", "3rd")
    
100. format = replace(format, "%O", "th")
     
101. 
     
102. formatDate = format
     
103. res = SetLocale(OriginalLocale)
     
104. 
     
105. end function
     

复制代码

用法

1. eg: strDateTime = formatDate("%g:%i%a, %l %j%O %F, %Y", UDate(Now()))
   
2. 
   
3. %A - AM or PM
   
4. 
   
5. %a - am or pm
   
6. 
   
7. %m - Month with leading zeroes (01 - 12)
   
8. 
   
9. %n - Month without leading zeroes (1 - 12)
   
10. 
    
11. %F - Month name (January - December)
    
12. 
    
13. %M - Three letter month name (Jan - Dec)
    
14. 
    
15. $d - Day with leading zeroes (01 - 31)
    
16. 
    
17. %j - Day without leading zeroes (1 - 31)
    
18. 
    
19. %H - Hour with leading zeroes (12 hour)
    
20. 
    
21. %h - Hour with leading zeroes (24 hour)
    
22. 
    
23. %G - Hour without leading zeroes (12 hour)
    
24. 
    
25. %g - Hour without leading zeroes (24 hour)
    
26. 
    
27. %i - Minute with leading zeroes (01 to 60)
    
28. 
    
29. %I - Minute without leading zeroes (1 to 60)
    
30. 
    
31. %s - Second with leading zeroes (01 to 60)
    
32. 
    
33. %S - Second without leading zeroes (1 to 60)
    
34. 
    
35. %L - Number of day of week (1 to 7)
    
36. 
    
37. %l - Name of day of week (Sunday to Saturday)
    
38. 
    
39. %D - Three letter name of day of week (Sun to Sat)
    
40. 
    
41. %O - Ordinal suffix (st, nd rd, th)
    
42. 
    
43. %U - UNIX Timestamp
    
44. 
    
45. %Y - Four digit year (2003)
    
46. 
    
47. %y - Two digit year (03)

复制代码

walker1020

谢谢楼主的无私奉献！这下对日期处理 轻松多了

yuandjing

好东西啊，怎么没人顶

brianq

谢谢

fengle

好东西，顶了！！

walker1020

不错，值得学习，偶就把它放在 [QTP精华区] 了。

kxllr

还不会用，不过看上去很有价值，先保存了，我一定学会用，呵呵sdlkfj2

lantianwei

非常感谢LZ的无私奉献！

gggwavj

感谢楼主无私奉献

lilysun0411

先下载了,学习中,3Q!

span

感谢楼主无私奉献

language_fw

不错，支持lz，以后继续努力。。。

machao514

lz写的非常全面，常用的日期格式都有；
收藏了，谢谢搂主的无私奉献

Mix

收藏了，多谢楼主分享！

fangfangcuky

完全不懂啊

wslf

恩，看不太懂，要是有些注释就更好了哦

zhengyh1980

先看先  3ks

helius

太高深了
  完全看不懂

运行下 提示类型不匹配：‘Udate’

lzl88

Linda0721

收藏