[VB.Net] การสุ่มวันที่แบบเดินหน้าและถอยหลัง

thongkorn

เก็บตกโค้ดเล็กๆน้อยๆ กับการสุ่มวันที่แบบเดินหน้า และถอยหลัง (ติดเครื่องหมายลบ)

1. Dim RandomClass As New Random()
   
2.     '// Random past date 365 days.
   
3.     Console.WriteLine(Now.AddDays(-RandomClass.Next(365)))
   
4.     '// Random next date 365 days.
   
5.     Console.WriteLine(DateTime.Today.AddDays(RandomClass.Next(365)))
   
6.     Console.WriteLine(Now.AddDays(-RandomClass.Next(7)))
   
7.     Console.ReadLine()

คัดลอกไปที่คลิปบอร์ด

Sample output ...
06/12/2559 21:21:05
20/11/2560 00:00:00
13/10/2560 21:21:05