主题：微信数据审批筛选

StatusBar.Message1= "正在从服务器下载数据请稍后:"
StatusBar.ProgressBar.Visible =True
Dim st As New Date(1970,1,1,8,0,0)
Dim t1 As Integer = CInt((Date.Today.AddDays(-30)  - st).TotalSeconds()) '时间戳
Dim t2 As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳