Question

VB程序代码求指教

我想设计一个程序块，可以预先设置一个时间点，然后在这个时间点之前输入信息，显示在设置时间点之前的信息，在这个时间点之后输入信息，显示过了设置时间点的信息，该怎么处理啊，谢谢啦

Answer 1

我说说思路：
一，解决输入并保存信息的功能：
因为，要有输入信息的功能，所以要解决输入并保存信息的功能，有两种方法；
1，采用VBA，在WORD或者EXCEL里。
2，你自己编写文本编辑器。
二，按照你的要求：
1，程序要有设置时间的功能。
2，每次输入信息完毕，进行文件保存。
3，文件格式分为上下两大块，中间用设置的时间突出显示作为分隔；
4，保存的时候，首先判断当天是否已经有保存的文件，如果有就打开现有文件，如果没有，保存为当日新文件。
如果已经有文件，打开文件，并判断时间，按照你说的时间节点，如果时间在规定时间前，那么新的内容输入在原内容后；如果过了规定时间，那么打开文件后，自动在文件结束处，增加一行用规定的时间作为内容的分隔行，并另起一行，编辑输入新的数据。

追问

可能是我没有说清楚，举个例子，比如设置一个时间点，输入一个姓名信息，如果输入时间在设置的时间点之前，就显示一个提示，如果晚于这个时间点，就显示另一个提示，这样怎么做啊

追答

这样啊？你复制下面代码就可以用
Dim T1 As Date
T1 = #8:00:00# '这里我设置的是上午8点
If Format(Now, "HH:MM:SS") > T1 Then
MsgBox "现在是：" & Format(Now, "HH:MM:SS") & vbCrLf & _
"超过规定时间！你迟到了！"
Else
MsgBox "现在是：" & Format(Now, "HH:MM:SS") & vbCrLf & _
"没到规定时间！你很守时！"
End If

Answer 2

我谈谈想法：
首先，解决了输入和保存信息功能：
输入信息，从而解决了输入，并保存信息的功能，有两种方式;
1，使用VBA，WORD或EXCEL年。
2，你写你自己的文本编辑器。
二，按照您的要求：
1，程序设定的时间。
2，每次完成输入的信息，该文件被保存。
3，文件格式分为两大块，中间设置强调了作为分隔符;
保存，首先要确定的那一天是否已保存的文件，如果有，现在如果没有，它作为一个新的文件的日子文件。
如果你有一个文件，打开该文件，并确定时间，时间在规定的时间前，新的输入后，原来的内容;如果在指定的时间，然后打开该文件按照时间你说的节点，自动的增加与内容分离线在规定的时间，并在一个单独的行中的文件，并编辑输入新的数据。