Public Class Form1
十余年的迎江网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。网络营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整迎江建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“迎江网站设计”,“迎江网站推广”以来，每个客户项目都认真落实执行。
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("从" Now1.ToString "到" Now2.ToString "经过了" CStr(CDate((Now2 - Now1).ToString)))
End Sub
实际情况修改下。
End Class
在Timer控件里面编程，interval设为1分钟，判断系统时间为上午10点或者下午5点30分，启动发送邮件的程序，如果系统时间不是上述时间，则退出。
1、时间可以直接比较大小，定义两个时间的变量，直接使用或者即可判断，跟数据大小判断是一样的
2、时间差值，可以使用DateDiff函数进行
3、比如取一个现在的时间now，使用Year、month、day、hour、min、sec函数可以取到now的年份、月、日、小时、分钟和秒
窗体上添加一个
Label1
Timer1
再添加2个窗体
代码如下：
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Now
Select Case Hour(Now)
Case 10
Form2.Show()
Case 11
Form3.Show()
End Select
End Sub
End Class
