VB程序代码求指教

我想设计一个程序块,可以预先设置一个时间点,然后在这个时间点之前输入信息,显示在设置时间点之前的信息,在这个时间点之后输入信息,显示过了设置时间点的信息,该怎么处理啊,谢... 我想设计一个程序块,可以预先设置一个时间点,然后在这个时间点之前输入信息,显示在设置时间点之前的信息,在这个时间点之后输入信息,显示过了设置时间点的信息,该怎么处理啊,谢谢啦 展开
 我来答
syx54
2013-02-11 · TA获得超过7378个赞
知道大有可为答主
回答量:6567
采纳率:83%
帮助的人:2729万
展开全部
我说说思路:
一,解决输入并保存信息的功能:
因为,要有输入信息的功能,所以要解决输入并保存信息的功能,有两种方法;
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
hpj68721
2013-02-14 · TA获得超过5581个赞
知道大有可为答主
回答量:2.2万
采纳率:0%
帮助的人:4904万
展开全部
我谈谈想法:
首先,解决了输入和保存信息功能:
输入信息,从而解决了输入,并保存信息的功能,有两种方式;
1,使用VBA,WORD或EXCEL年。
2,你写你自己的文本编辑器。
二,按照您的要求:
1,程序设定的时间。
2,每次完成输入的信息,该文件被保存。
3,文件格式分为两大块,中间设置强调了作为分隔符;
保存,首先要确定的那一天是否已保存的文件,如果有,现在如果没有,它作为一个新的文件的日子文件。
如果你有一个文件,打开该文件,并确定时间,时间在规定的时间前,新的输入后,原来的内容;如果在指定的时间,然后打开该文件按照时间你说的节点,自动的增加与内容分离线在规定的时间,并在一个单独的行中的文件,并编辑输入新的数据。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式