前言：
当前朋友们对“vb中日期型数据怎么表示”大致比较注重，咱们都需要知道一些“vb中日期型数据怎么表示”的相关文章。那么小编也在网上收集了一些有关“vb中日期型数据怎么表示””的相关资讯，希望你们能喜欢，姐妹们一起来了解一下吧！VB小程序，关注我有更多的有趣的VB小程序
实现功能：在文本框Text1中输入当天对应的星期，文本框Text2中输入天数，单击“推算”按钮Command1，推算出相应天数后的星期情况，并在标签Label3中输出结果。
控件：三两个Label标签，两个TextBox文本框，一个Command命令按钮
界面：
代码：
Private Sub Command1_Click()
Dim x As String, xq As String, num As Integer, r%
Dim i As Integer, h As Integer
x = "一二三四五六日"
xq = Text1.Text: i = 1
num = Text2.Text
For i = 1 To Len(x)
If xq = Mid(x, i, 1) Then h = i: Exit For
Next i
r = (h + num) Mod 7
If r = 0 Then
Label1.Caption = "星期日"
Else
Label1.Caption = "星期 " + Mid(x, r, 1)
End If
End Sub
想得到更多的VB小程序，请关注我
版权声明：
本站文章均来自互联网搜集，如有侵犯您的权益，请联系我们删除，谢谢。
标签： #vb中日期型数据怎么表示
