求助：如何在不同情况下在同一文本框设定不同的默认值？

ferockpan

我在窗体中的一个文本框要输入班次“1班”、“2班”或“3班”，我想通过系统时间来设置默认值。

00：00~08：00 为“1班”；
08：00~16：00为“2班”；
16：00~00：00为“3班”

如当系统时间为“09：10”时，文本框默认为“2班”；当系统时间为“17：10”时，文本框默认为“3班”；

这样可以操作吗？谢谢！

kangking

    Dim st As Integer
    st = Format(Time(), "hhmm")

    Select Case st
    Case 0 To 759
        Text0 = "1班"
    Case 800 To 1559
        Text0 = "2班"
    Case 1600 To 2359
        Text0 = "3班"
    End Select

Henry D. Sy

1. Private Sub Form_Load()
   
2.     Dim t, dv
   
3.     t = Format(Now, "hhmm")
   
4.     Select Case t
   
5.     Case Is <= 800
   
6.         dv = """1班"""
   
7.     Case Is <= 1600
   
8.         dv = """2班"""
   
9.     Case Is <= 2400
   
10.         dv = """3班"""
    
11.     End Select
    
12.     Me.Text0.DefaultValue = dv
    
13. End Sub
    
14. 
    

复制代码

ferockpan

Henry D. Sy 发表于 2012-5-7 08:59

多谢版主的帮忙,谢谢!