最近输入大量数据时用到的随机产生日期的函数，拿来分享下

wz403692767

之前网上搜罗半天没找到相关的，自己动手写了，可能有BUG，自己用没啥问题，现在拿出来分享下，需要的拿去吧
功能就是产生大量随机数据时需要产生的随机日期，在脚本中调用 RandomDate("2010-1-1","2011-8-16") 就可以了

1. '========================================
   
2. ' 函数名：RandomDate
   
3. ' 参数：DateMin, DateMax
   
4. ' 返回范围内的随机日期，输入输出的格式有"2000/1/1","2000-1-1"
   
5. '=========================================
   
6. Function RandomDate(DateMin, DateMax)
   
7.         Dim nYearMin,nMonthMin,nDayMin,nYearMax,nMonthMax,nDayMax
   
8.         Dim nYear,nMonth,nDay
   
9.         Dim DayNum
   
10.          '起始日期
    
11.         nYearMin = Year(DateMin)
    
12.         nMonthMin = Month(DateMin)
    
13.         nDayMin = Day(DateMin)
    
14.         '终止日期
    
15.         nYearMax = Year(DateMax)
    
16.         nMonthMax = Month(DateMax)
    
17.         nDayMax = Day(DateMax)
    
18.         '随机生成一个年份
    
19.         nYear = RandomNumber(nYearMin,nYearMax)
    
20.         '年份在上下限之内
    
21.         If nYear > nYearMin And nYear < nYearMax Then
    
22.                 '随机生成一个月份
    
23.                 nMonth = RandomNumber(1,12)
    
24.                 DayNum = GetDayOfCurrentMonth(nYear,nMonth)
    
25.                 '根据月份随机产生日子
    
26.                 nDay = RandomNumber(1,DayNum)
    
27.         '年份等于下限
    
28.         ElseIf nYear = nYearMin And nYear <> nYearMax Then
    
29.                 '随机生成的月份大于等于下限的月份
    
30.                 nMonth = RandomNumber(nMonthMin,12)
    
31.                 DayNum = GetDayOfCurrentMonth(nYear,nMonth)
    
32.                 '相等
    
33.                 If nMonth = nMonthMin Then
    
34.                         nDay = RandomNumber(nDayMin+1,DayNum)
    
35.                 '大于
    
36.                 ElseIf nMonth > nMonthMin Then
    
37.                         nDay = RandomNumber(1,DayNum)
    
38.                 End If
    
39.         '年份等于上限
    
40.         ElseIf nYear = nYearMax And nYear <> nYearMin Then
    
41.                 '随机生成的月份小于等于上限的月份
    
42.                 nMonth = RandomNumber(1,nMonthMax)
    
43.                 DayNum = GetDayOfCurrentMonth(nYear,nMonth)
    
44.                 '相等
    
45.                 If nMonth = nMonthMax Then
    
46.                         nDay = RandomNumber(1,nDayMax-1)
    
47.                 '大于
    
48.                 ElseIf nMonth < nMonthMax Then
    
49.                         nDay = RandomNumber(1,DayNum)
    
50.                 End If
    
51.         '同年
    
52.         ElseIf nYear = nYearMin And nYear = nYearMax Then
    
53.                 nMonth = RandomNumber(nMonthMin,nMonthMax)
    
54.                 DayNum = GetDayOfCurrentMonth(nYear,nMonth)
    
55.                 '月份上下限之内
    
56.                 If nMonth > nMonthMin And nMonth < nMonthMax Then
    
57.                         nDay = RandomNumber(1,DayNum)
    
58.                 '等于月下限
    
59.                 ElseIf nMonth = nMonthMin And nMonth <> nMonthMax Then
    
60.                         nDay = RandomNumber(nDayMin+1,DayNum)
    
61.                 '等于月上限
    
62.                 ElseIf nMonth = nMonthMax And nMonth <> nMonthMin Then
    
63.                         nDay = RandomNumber(1,nDayMax-1)
    
64.                 '同月
    
65.                 ElseIf nMonth = nMonthMin And nMonth = nMonthMax Then
    
66.                         nDay = RandomNumber(nDayMin,nDayMax)
    
67.                 End If
    
68.         End If
    
69.         '生成结果并处理字符串
    
70.         RandomDate = Cstr(nYear) & "-" & Cstr(nMonth) & "-" & Cstr(nDay)
    
71. End Function
    
72. 
    
73. '============================================
    
74. ' 函数名：IsLeapYear
    
75. ' 参数：nYear
    
76. ' 返回是否是闰年，是为True，否为False
    
77. '============================================
    
78. Function IsLeapYear(nYear)
    
79.         Dim Flag
    
80.         If nYear <> "" Then
    
81.                 If (nYear Mod 4 = 0) And (nYear Mod 100 = 0) Or (nYear) Mod 400 = 0 Then
    
82.                         Flag = True
    
83.                 Else
    
84.                         Flag = False
    
85.                 End If
    
86.         End If
    
87.         IsLeapYear = Flag
    
88. End Function
    
89. 
    
90. '===========================================
    
91. ' 函数名：GetDayOfCurrentMonth
    
92. ' 参数：nYear,nMonth
    
93. ' 返回当年当月的天数
    
94. '===========================================
    
95. Function GetDayOfCurrentMonth(nYear,nMonth)
    
96.         Select Case nMonth
    
97.                 Case 1
    
98.                         GetDayOfCurrentMonth = 31
    
99.                 Case 2
    
100.                         If IsLeapYear(nYear) Then
     
101.                         GetDayOfCurrentMonth = 29
     
102.                         Else
     
103.                                 GetDayOfCurrentMonth = 28
     
104.                         End If
     
105.                 Case 3
     
106.                         GetDayOfCurrentMonth = 31
     
107.                 Case 4
     
108.                         GetDayOfCurrentMonth = 30
     
109.                 Case 5
     
110.                         GetDayOfCurrentMonth = 31
     
111.                 Case 6
     
112.                         GetDayOfCurrentMonth = 30
     
113.                 Case 7
     
114.                         GetDayOfCurrentMonth = 31
     
115.                 Case 8
     
116.                         GetDayOfCurrentMonth = 31
     
117.                 Case 9
     
118.                         GetDayOfCurrentMonth = 30
     
119.                 Case 10
     
120.                         GetDayOfCurrentMonth = 31
     
121.                 Case 11
     
122.                         GetDayOfCurrentMonth = 30
     
123.                 Case 12
     
124.                         GetDayOfCurrentMonth = 31
     
125.         End Select
     
126. End Function

复制代码

阳光下的橙子

楼主，没必要像你写的这么复杂
而且最好加上Randomize来初始化你的随机函数

ermine

1. Function RandomDate(minDate, maxDate)
   
2.         lenDay = DateDiff("d", minDate, maxDate)
   
3.         rndDay = RandomNumber(0, lenDay)
   
4.         RandomDate = DateAdd( "d", rndDay, minDate)
   
5. End Function
   
6. 
   
7. For i = 1 to 10
   
8.         msgbox RandomDate("2010-1-1", "2011-8-13")
   
9. Next

复制代码