text与command的使用问题

Question

在text1输入一个数字，按一下command1,在text2输出另一个数字。
如时间输入24小时，变成12小时。
请把代码写出来，最好详细一点！谢谢！

Answer 1

如时间输入24小时，变成12小时你的这句让别人没法理解啊
输入24小时，变成12小时, 要是输入abc 难道要变成 ABC?

Answer 2

Private Sub Command1_Click()
    Text2.Text = CLng(Text1.Text) - (CLng(Text1.Text) \ 13) * 12
End Sub

Answer 3

我的理解:
24小时=13:00
12小时=1:00 pm1 用户在text1中输入"13"
2 用户点击command1
3 程序在text2中输出"1"不知道对否?

Answer 4

...Command1_Click 里面写代码控制.就是不知道要如何变

Answer 5

Private Sub Command1_Click()
    Text2 = Text1 +20
End SubPrivate Sub Form_Load()
    Text1 = ""
    Text2 = ""
End Sub

Answer 6

由于时间格式的限制，所以文本1中只能是0-24的数字，这里如果要严谨的话必须要限制数字大小。
另外不需要太麻烦，对于初学来讲代码的简练不如详细的流程来的实在。
第一步要做的是限制时间格式，如果时间是1-12那么正常显示，如果是13-24那么就自动转换格式：
方法1：if a >= 12 then a=a-12；a就是转换后的结果。
方法2：a=a mod 12;这里用的是求余数的函数，a就是结果希望对你有帮助

Answer 7

Private Sub Command1_Click()
If Text1.Text > 12 Then
   Text2.Text = Text1.Text - 12
   ElseIf Text1 <= 12 Then
   Text2.Text = Text1.Text
   End If
End SubPrivate Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub