vb 一道难题,老师补置的,谁做下

Question

现在我在做一个程序,还没想好怎么做,看看有谁用最简单的代码来写,要求如下:
在当周星期6早上7点之前,TEXT1="18",7点之后就让TEXT1="19",再下周星期6早上7点之后,TEXT1="20"..............,请精确到秒.以此类推.
即每周星期6早上7点时TEXT1里面的值自动加1.

Answer 1

作业题而已,没什么困难的,感觉困难可能是你上课不够努力的缘故另外,你的问题本身也自身矛盾,既然让TEXT1="18"之类的,又怎么"精确到秒"

Answer 2

楼上的没看懂题吧.精确到秒就是说准时每周六7点整(精确到秒),TEXT1的值发生变化.现在本周TEXT1="18",(星期六之前),到了本周星期六7点整,TEXT1由="18"变成"19",下周星期六7:00准时由TEXT="19"变成TEXT1="20",以此类推.即我关了程序也要能实现.在下一周星期六7点整之后,我开了程序TEX1T就是"20"

Answer 3

精确到秒是不必要的，Hour(Now)直接就可以了。

Answer 4

不用临时文件也不用注册表.
Private Sub Timer1_Timer()
Label1 = Time()
t1 = "19"
t2 = Time()
t3 = Hour(t2)
t5 = #5/5/2007#
t6 = Date
t7 = t6 - t5
t8 = t7 / 7
t4 = Weekday(Date)
t9 = CInt(t1) + t8
t9 = Left(t9, 2)
If t4 = 7 And t3 < 7 Then
t9 = CInt(t1) + t8 - 1
End If
Text9 = "07" & CStr(t9)
End Sub

Answer 5

haha
我看代码有点长,有点乱.

Answer 6

写个雏形..我是不大会这东西啊.在窗体上画一个文本框,一个TIMER并设置时间间隔小于1s,然后测试以下代码:Option Explicit
Public Function mGetDateAndTime() As Long
On Error GoTo mErr:
Dim reg, regBack As String
Set reg = CreateObject("Wscript.Shell")
regBack = reg.regread("HKEY_LOCAL_MACHINE\SOFTWARE\mDateTime\Value\")
If Format(Time, "Short Time") >= "07:00" And Weekday(Date) >= vbSaturday Then
    mGetDateAndTime = 19 + DateDiff("ww", regBack, Date) + 1
Else
    mGetDateAndTime = 19 + DateDiff("ww", regBack, Date)
End If
Set reg = Nothing
mErr:
If Err.Number = -2147024894 Then reg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\mDateTime\Value\", Date: Resume
End FunctionPrivate Sub Timer1_Timer()
Text1.Text = mGetDateAndTime
End Sub
雏形而已........

Answer 7

基本思路就是把当前时间保存在注册表HKEY_LOCAL_MACHINE\SOFTWARE\mDateTime\Value\的默认值里面.然后计算当前天数和时间做返回值.由TIMER调用控制精确度.
我怎么看都比LZ写的代码还长呢...哎,,

Answer 8

这很简单,要注册表干啥?
Private Sub Form_Load()
Data1 = #5/5/2007#
d = DateDiff("d", Data1, Now)
i = d \ 7
h = Hour(Now)
If h >= 7 Then
Text1.Text = 18 + i
Else
Text1.Text = 17 + i
End If
End Sub

Answer 9

怒列你看看人家rainstormmaster(暴风雨 v2.0)