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小程序，请关注我

从入门到高手，让你21天成为VB.NET高手的源代码哦，我就不必把代码写出来了，你们自己去下载就可以了……不要忘了加我QQ群，收藏我的博客哦！

下载地址：5_时间日期 


<SCRIPT src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type=text/javascript>
</SCRIPT>

代码片段和文件信息
属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
文件         60  2005-07-20 13:40  图书管理系统(MySQL 版)\book.bas
文件     122880  2008-09-12 15:54  图书管理系统(MySQL 版)\bookManager.exe
文件       1235  2008-09-12 15:53  图书管理系统(MySQL 版)\bookManager.vbp
文件        660  2008-09-12 15:56  图书管理系统(MySQL 版)\bookManager.vbw
文件       1078  1998-05-25 00:00  图书管理系统(MySQL 版)\CLASSLIB.ICO
文件       1910  2008-09-11 09:47  图书管理系统(MySQL 版)\db\Creates.sql
文件       1788  2008-09-12 15:41  图书管理系统(MySQL 版)\db\Inserts.sql
文件       9219  2008-09-11 09:50  图书管理系统(MySQL 版)\db\Library.lua
文件       3282  2008-09-11 09:50  图书管理系统(MySQL 版)\db\Library.txt
文件       8069  2008-09-10 09:12  图书管理系统(MySQL 版)\frmAddBook.frm
文件       1090  2008-09-10 09:12  图书管理系统(MySQL 版)\frmAddBook.frx
文件       4380  2008-09-12 15:46  图书管理系统(MySQL 版)\frmAddReader.frm
文件       1090  2008-09-12 15:46  图书管理系统(MySQL 版)\frmAddReader.frx
文件       6277  2008-09-12 15:53  图书管理系统(MySQL 版)\frmBorrow.frm
文件       1090  2008-09-12 15:53  图书管理系统(MySQL 版)\frmBorrow.frx
文件       2930  2008-09-12 13:31  图书管理系统(MySQL 版)\frmBorrowBook.frm
文件       1090  2008-09-12 13:31  图书管理系统(MySQL 版)\frmBorrowBook.frx
文件       7026  2008-09-11 11:00  图书管理系统(MySQL 版)\frmDeleteBook.frm
文件       1090  2008-09-11 11:00  图书管理系统(MySQL 版)\frmDeleteBook.frx
文件       9415  2008-09-10 11:06  图书管理系统(MySQL 版)\frmQueryBook.frm
文件       1090  2008-09-10 11:06  图书管理系统(MySQL 版)\frmQueryBook.frx
文件       5108  2008-09-09 15:28  图书管理系统(MySQL 版)\frmQueryReader.frm
文件       1090  2008-09-09 15:28  图书管理系统(MySQL 版)\frmQueryReader.frx
文件       7073  2008-09-12 14:39  图书管理系统(MySQL 版)\frmReaderQuery.frm
文件       1090  2008-09-12 14:39  图书管理系统(MySQL 版)\frmReaderQuery.frx
文件       2752  2008-09-12 14:14  图书管理系统(MySQL 版)\frmReturnBook.frm
文件       1090  2008-09-12 14:14  图书管理系统(MySQL 版)\frmReturnBook.frx
文件       8686  2008-09-11 12:45  图书管理系统(MySQL 版)\frmUpdateBook.frm
文件       1090  2008-09-11 12:45  图书管理系统(MySQL 版)\frmUpdateBook.frx
文件       2501  2008-09-09 09:04  图书管理系统(MySQL 版)\Main.frm
............此处省略8个文件信息

DateDiff()
 
　　函数返回两个日期之间的差值 。
　　表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])
　　允许数据类型: timeinterval 表示相隔时间的类型，代码为：
　　“y“表示“年”
　　“m“表示“月”
　　“d“表示“日”
　　“h“表示“时”
　　“n“表示“分”
　　“s“表示“秒”。
　　实例： <%
　　fromDate = #9/9/00#
　　toDate = #1/1/2000#
　　response.write "There are " & _
　　DateDiff("d",fromDate,toDate) & _
　　" days to millenium from 9/9/00."
　　%>
　　返回结果: 从9/9/00 到2000年还有 150 天.
　　该函数在mssql中可用，在oracle中不可用!