第9章 处理字符串和日期时间 Visual Basic 程序设计教程.

Presentation on theme: "第9章 处理字符串和日期时间 Visual Basic 程序设计教程."— Presentation transcript:

1 第9章 处理字符串和日期时间 Visual Basic 程序设计教程

2 本章主要介绍： 字符类型和字符数组 操作字符串 查找和替换字符串 处理日期和时间 使用VB的日历控件MonthView
Visual Basic程序设计教程

3 9.1 概述 ·在大量的应用系统中，文本是表达和交互数 据的基本类型，而文本的计算机内部表示就 是字符数据类型
·学会运用VB提供的内部函数，包括比较字符 串和搜索字符串，以及在字符串和其他数据 类型之间的转换等 9.1 概述 Visual Basic程序设计教程

4 ·往往应用程序中需要有日期和时间的相关信息，这就涉及到程序如何表达以及如何使用
合适的格式表达程序中对日期时间的处理要 求 Visual Basic程序设计教程

5 9.2 一个简单的字符加密处理程序 · 【例9-1】一个简单的示例程序，把给出的字符进行加密，然后再解密，程序界面如图所示:
9.2 一个简单的字符加密处理程序 · 【例9-1】一个简单的示例程序，把给出的字符进行加密，然后再解密，程序界面如图所示: Visual Basic程序设计教程

6 Visual Basic程序设计教程 Dim Str1 As String, Str2 As String
Option Compare Text Private Sub CmdEncrypt_Click() Dim N As Byte, Count As Integer Text2.Text = "" N = Len(Text1.Text) For Count = 1 To N Str1 = Mid(Text1.Text, Count, 1) If (Count Mod 2) = 0 Then Text2.Text = Text2.Text & ChrW(AscW(Str1) + 2) Else Text2.Text = Text2.Text & ChrW(AscW(Str1) + 1) End If Next End Sub Private Sub Form_Load() Label1.Caption = "请输入：" Label2.Caption = "加密后输出：" Label3.Caption = "解密后输出" Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub Visual Basic程序设计教程

7 Private Sub CmdUncoil_Click()
Dim N As Byte, Count As Integer Text3.Text = "" N = Len(Text2.Text) For Count = 1 To N Str1 = Mid(Text2.Text, Count, 1) If Count Mod 2 = 0 Then Text3.Text = Text3.Text & ChrW(AscW(Str1) - 2) Else Text3.Text = Text3.Text & ChrW(AscW(Str1) - 1) End If Next End Sub Visual Basic程序设计教程

8 9.3 字符类型和字符数组 本节在小结前述章节的有关字符数据类型的基础上，进一步介绍有关字符运算、字符数组和实现。
各种字符操作和字符转换、类型转换的VB函数。 9.3 字符类型和字符数组 Visual Basic程序设计教程

9 字符和字符串 1．字符数据类型 ·VB的字符类型数据支持两种格式，一种是定长，另一种是不定长。如： Dim Str1 As String Dim Str2 As String * 长度数值 ·在VB中，变长字符串最多可包含大约20亿(2^31)个字符，而定长字符串可包含1到大约 64K(2^16)个字符。 Visual Basic程序设计教程

10 （1）如果连接运算符的两边都是字符型数据，这两个符号都可以使用。
2．字符连接运算 ·VB使用符号“&” 和“+”连接字符串形成更大的字符串。 （1）如果连接运算符的两边都是字符型数据，这两个符号都可以使用。 （2）如果把不同类型的数据连接为字符串，使用连接符“&”。建议使用“&”连接符，可以避免出现类型不匹配的错误。例： Str1 = “Hell”+ “ World” Str1中的字符为 “Hello World” Str1 =”Hello” + 2 ‘ 运行时产生，类型不匹配错误，应该使用& 代替＋ Visual Basic程序设计教程

11 · 理解一个字符“大于”、“小于”或者“等 于”的含义，是考虑字符在字符表中位置后决 定的。它们按照ASCII码对字符进行排序，然后
比较字符 1．使用比较运算符 · 理解一个字符“大于”、“小于”或者“等 于”的含义，是考虑字符在字符表中位置后决 定的。它们按照ASCII码对字符进行排序，然后 比较它们的代码值的大小决定比较结果。 Visual Basic程序设计教程

12 Visual Basic程序设计教程 Dim Str1 As String, Str2 As String
Str1 = "A": Str2 = "B" Print Str1 = Str ‘ 比较结果为False，因为字符 “A”和“B”不相等 Print Str1 <= Str ‘ 比较结果为True，因为字符 “A”小于“B”成立 Str1 = "abc": Srt2 = "VB6" Print Str1 > Str ‘ 比较结果为True，因为 “abc”>“VB6”成立 Print Str1 < Str ‘ 比较结果为False，因为 “abc”<“VB6”不成立 Visual Basic程序设计教程

13 2．StrComp函数 ·函数StrComp用来比较两个字符串，并返回比较结果。使用格式为：StrComp(String1, String2[, CompareType]) ·比较结果的返回值如下 ： 条件 StrComp 返回值 string1 小于 string2 -1 string1 等于 string2 string1 大于 string2 1 string1 或 string 2为 Null Null Visual Basic程序设计教程

14 CompareType参数意义如下表所示：
常数 值 描述 vbUseCompareOption -1 使用Option Compare语句设置执行一个比较 vbBinaryCompare 执行一个二进制比较。 vbTextCompare 1 执行一个按照原文的比较。 vbDatabaseCompare 2 仅适用于Microsoft Access，执行一个基于数据库信息的比较。 Visual Basic程序设计教程

15 ·使用格式：String(Number, Character)
9.3.3 String函数和Str函数 1．String函数 ·使用格式：String(Number, Character) ·函数执行后按创建长度返回重复字符的字符串，其中，Number给出所创建的字符串长度。参数Character是一个字符（或Ascii码）或字符串表达式，但只使用它的第一个字符创建新的字符串，如果Character包含了Null就返回Null。 Visual Basic程序设计教程

16 ·例：Dim str1 as string, str2 as string ,str3 Str1 = String(5, “*”) ‘ 返回
"*****"。 Str2 = String(5, 42) ' ASCII 码42的字符为*,返回 "*****"。 Str3 = String(10, “ABC” + Null) ‘ 返 回 "Null"。 Visual Basic程序设计教程

17 ·函数Str把一个数值转换为Variant (String)类型。它的使用格式为：Str(Number) ·例：
Str1 = Str$(123.5) Str2 = Str(-123.5) Print Str1,Str2 ‘ 输出 123.5， 注意字符串前有一个空格和符号位 Visual Basic程序设计教程

18 字符数组就是数组中的元素都是字符串的数组，使用String定义字符数组。有关字符串数组操作的三个函数如下：
字符数组 字符数组就是数组中的元素都是字符串的数组，使用String定义字符数组。有关字符串数组操作的三个函数如下： 1．Join函数 ·Join函数连接某个数组中的多个子字符串而创建一个新的字符串。函数格式为： Join(List[, Delimiter]) Visual Basic程序设计教程

19 其中参数List指出被连接的字符数组Delimiter是可选参数，在返回字符串中用于分隔子字符串的字符。默认使用空格" "来分隔子字符串。如果Delimiter是零长度字符串""，所有元素项都连接在一起，中间没有分隔符。 Visual Basic程序设计教程

20 Dim StrA(2) As String, Str1 As String StrA(0) = "欢迎来到"
·例如： Dim StrA(2) As String, Str1 As String StrA(0) = "欢迎来到" StrA(1) = "Visual " StrA(2) = "Basic 6" Str1 = Join(StrA) ‘连接字符数组StrA中三个字符串 Visual Basic程序设计教程

21 ·2．Split函数 ·给定一个字符串，可以使用Split函数创建一个一维数组，它包含指定数目的子字符串。函数格式为：Split( StringExpress[, Delimiter[, Count[, CompareType]]]) StringExpress 必需参数，字符串表达式。如果表达式的长度为零即为””，Split返回一个空数组，即没有元素和数据的数组 Delimiter 可选参数，标识子字符串边界字符。默认空格字符" "为分隔符。如果该参数是空字符“”，则返回数组仅包含一个元素，即StringExpress字符串 Count 可选参数，指定返回的子字符串数，–1表示返回所有的子字符串 CompareType 可选参数，用数字值表示判别子字符串时使用的比较方式。意义同表9.1 Visual Basic程序设计教程

22 【例9-2】使用Split函数。程序执行后的显示如图所示。程序代码如下：
Private Sub Form_Load() Dim x() As String Dim y As String, n As Integer Show y = "Welcome To Visual Basic 6 !" x = Split(y) For n = LBound(x) To UBound(x) Print " " & x(n) Next End Sub Visual Basic程序设计教程

23 从一个已知数组中搜索指定的字符串，可以使用Filter函数 ，ilter函数的格式为：
Filter(StringsArray, Value[, Include[, CompareType]]) StringsArray 必需参数，被执行搜索的一维字符串数组 Value 必需参数，要搜索的字符串 Include 可选参数，Boolean值。True返回的是包含 Value子字符串的数组子集。False则返回的是 不包含Value子字符串的数组子集 CompareType 可选的数字值，表示所使用的比较类型，意 义同表9.1 Visual Basic程序设计教程

24 【例9-3】请从数组A中选出包 括“VB” 和不包括 “VB” 的元 素。 程序执行后的显示如图所示。 Visual Basic程序设计教程

25 Visual Basic程序设计教程 Private Sub Form_Load() Show
Dim A(6) As String, B() As String, C() As String A(0) = "C": A(1) = "VB6": A(2) = "C++" A(3) = "Jave": A(4) = "VB5": A(5) = "MS.Net" Print "数组 A 中所有的字符串元素有：" Call Prt(A) B() = Filter(A, "VB") Print "数组A中包含有VB字符的元素有：" Call Prt(B) C() = Filter(A, "VB", False) Print "数组A中不包含VB字符的元素有：" Call Prt(C) End Sub Private Sub Prt(m() As String) For n = 0 To UBound(m) Print " " & m(n) Next Print End Sub Visual Basic程序设计教程

26 9.4 操作字符串 本节给出VB处理字符串的常用操作，如取单个字符、取其中指定的字符、去除字符串中的空格和转换函数。
9.4 操作字符串 Visual Basic程序设计教程

27 9.4.1 Like运算符 Visual Basic程序设计教程
· 比较运算符Like用于比较字符串。Like返回一个逻辑值：True表示被比较的两个字符串相匹配，False表示不匹配。使用格式为：Result = String1 Like Pattern · VB根据模式匹配可以使用通配符来匹配字符串。也就是说使用Windows中的?、*和＃三个匹配符：？表示任何单一字符，*表示零个或多个字 Visual Basic程序设计教程

28 *表示零个或多个字符，#表示任何一个数字 (0–9)。例如有Str1= “Hello World”，则表达式
Str1 Like “Hello World” Str1 Like “Hello* ” Str1 Like “Hello?????? ” 返回的结果为都为True。 Visual Basic程序设计教程

29 9.4.2 使用Mid操作字符串中的字符 1．Mid函数
操作字符串中的单个或者多个字符，一般情况下使用Mid函数或者Mid语句。关键字Mid在VB中既是函数也是语句 。 1．Mid函数 Mid函数的格式如下：Mid(String1, Start[, Length]) 参数String1是被操作的字符串，Start为一个数字，指示从String1中的字符起始位置，Length是可选参数，指示要返回的字符数，如果不指定则从Start开始往后的所有字符。例如： Mid(“Hello”, 2,1) 返回字符e Visual Basic程序设计教程

30 2．Mid语句 Mid是作为语句使用，Mid出现在赋值号的左边，格式
为：Mid（String1，Start[ , Length]）= String2 用String2字符串代替String1从Start位置开始的字 符，可选参数Length为替换的长度。注意，字符串 String2的长度总是小于等于Length。假设我们已经定 义了MyStr = "Visual Basic"，则： Mid(Str1, 8) = "C++ " 执行的结果使得Str1中的字符串为“Visual C++ ”(包括后面的两个空格)。 Visual Basic程序设计教程

31 9.4.3 使用Left、Right和InStr操作字符串
例如： Str1 = “Visual Basic” Str2 = Left(Str1,6) 2．Right函数 使用Right函数选择字符串的右边部分。例如： Str1 = “Visual Basic” Str2 = Rightt(Str1,5) Visual Basic程序设计教程

32 3．InStr函数 使用格式为：InStr([Start, ]String1, String2)
可选参数Start为开始进行搜索的位置，默认为1表示从头开始。String1为基字符串，String2为搜索字符串，InStr在String1中搜索是否包含String2字符串。返回结果为数字,0表示没有找到,非0表示返回String2在String1中出现的第一个起始位置 假设Str1=”Visual Basic”，Str2=”Basic”，则执行语句： InStr（Str1，Str2） 返回的结果为8，表示“Basic”在“Visual Basic”中的位置为8。 Visual Basic程序设计教程

33 例:·Dim MyString, TrimString
删除多余的空格 使用LTrim、RTrim与Trim函数得到一个字符串的拷贝，删除前导空格 (LTrim)、删除尾随空格 (RTrim)。Trim函数将两头空格全部去除，但不删除中间的空格。 例:·Dim MyString, TrimString ·MyString = " VB6 " ·TrimString = LTrim(MyString) ' TrimString = "VB6 " ·TrimString = RTrim(MyString) ' TrimString = " VB6" ·TrimString = Trim(MyString) ' TrimString = "VB6" Visual Basic程序设计教程

34 函数Asc是取一个字符的ASCII码的函数; Asc函数对单个的字符计算，如果给出的字符多于一个，它计算第一个字符的ASCII值。
转换函数 1．Asc和Chr 函数Asc是取一个字符的ASCII码的函数; Asc函数对单个的字符计算，如果给出的字符多于一个，它计算第一个字符的ASCII值。 例如：Asc（”a”） ‘得到的值为97 Chr是Asc的逆函数，它将一个数值转换为对应的字符，例如 Chr(97)返回的就是字母a。Chr(13)和Chr(10)就分别代表回车 和换行。 Visual Basic程序设计教程

35 函数UCase和LCase分别将字符串的字母转换为大写或小写。它们的使用方法比较简单： UCase(StringExpress)
2．转换大小写 函数UCase和LCase分别将字符串的字母转换为大写或小写。它们的使用方法比较简单： UCase(StringExpress) LCase(StringExpress) 其中，StringExpress可以是字符串或者是字符串表达式。例如Str1 = "Visual Basic 6"，则： StrResult = UCase(Str1) ‘ StrResult = ”VISUAL BASIC 6” StrResult = LCase(Str1) ‘ StrResult = “visual basic 6” Visual Basic程序设计教程

36 3．IsNumberic和Val IsNumeric判断一个字符串是否可以被完整地转换为数字，例如：
Print IsNumeric(“ ”) ‘执行后输出为True， Print IsNumeric("123A.456") ‘执行后的输出则为False。 其他的判断类型的函数还有IsStrIsArray判断变量是否为一个数组，IsEmpty 函数判断变量是否已经初始化，IsError函数判断表达式是否为一个错误值。IsNull函数判断表达式是否不包含任何有效数据 (Null)，IsObject函数判断标示符是否表示对象变量等，它们返回的都是布尔值。 Visual Basic程序设计教程

37 Val的函数的使用格式为： Val(StringExpress) 把字符串表达式StringExpress转换为数字，按以 下规则：
数点），则返回一个转换的数字值。 （2）如果StringExpress中的数符含有空格，忽 略空格。 Visual Basic程序设计教程

38 （3）如果StringExpress含有数字和字母等其他符号，只转换最前 面的数字部分。
例：MyValue = Val(“2457”) ‘ 返回 2457。 MyValue = Val(“ ”)‘ 返回 2457。 MyValue = Val("24 and 57") ' 返回 24。 Visual Basic程序设计教程

39 Hex和Oct是将一个数值型或字符型表达式转换为十六进制和八进制数。例如： Print Hex(123) Print Oct("123")
分别输出十六进制数7B和八进制数173 Visual Basic程序设计教程

40 9.4.6 其它类型转换函数 Visual Basic程序设计教程 函数 返回类型 Expression 参数范围 CBool
其它类型转换函数 函数 返回类型 Expression 参数范围 CBool Boolean 任何有效的字符串或数值表达式。 CByte Byte 0 至 255。 CCur Currency -922,337,203,685, 至922,337,203,685, 。 CDate Date 任何有效的日期表达式，如# #。 CDbl Double 负数从 E308至 E-324；正数从 E-324至 E308。 CDec Decimal 零变比数值，即无小数位的数值为: +/-79,228,162,514,264,337,593,543,950,335。 对于 28 位小数的数值，范围则为：+/ ； 最小的可能非零值是 。 CInt Integer -32,768 至 32,767，小数部分四舍五入。 CLng Long -2,147,483,648 至 2,147,483,647，小数部分四舍五入。 CSng Single 负数为 E38 至 E-45； 正数为 E-45 至 E38。 CStr String 依据 Expression 参数返回 Cstr。 CVar Variant 若为数值，则范围与Double相同；若为非数值则范围与String 相同。 Visual Basic程序设计教程

41 Format(Expression[, format])
其中，表达式Expression可以为任何有效表达式，而可选参数Format为指定的格式表达式。格式可以是VB预先定义的，也可以是用户定义的。可使用VB预定义名字来指定这些格式，如表9.3所示。数字格式可以由用户指定，如表9.4所示。格式名总是用双引号""括起来。 Visual Basic程序设计教程

42 例： Num1 = Print Format(Num1, “Currency”) ‘显示 ￥123,456,789.35 Print Format(0.154, "Percent") '显示15.4% Print Format(1, "On/Off") '显示 On Format(8315.4, “ ”) '显示 Format(8315.4, “#####.##”) '显示8315.4 Format(8315.4,“##,##0.00”) '显示8,315.40 Format(315.4,“$##0.00”) '显示 $315.40 Visual Basic程序设计教程

43 函数执行后返回一个Long型值，指示字符串内字符的数目，或是存储一变量所需的字节数。使用格式为：Len(string | varname)
Len函数和Space函数 1．Len函数 函数执行后返回一个Long型值，指示字符串内字符的数目，或是存储一变量所需的字节数。使用格式为：Len(string | varname) 例： dim x as string x=“abcd” print len(x) ‘显示4 dim x as integer x=12345 print len(x) ‘显示2 Visual Basic程序设计教程

44 执行Space函数返回特定数目空格。使用格式为： Space(number)
其中所必须的number参数为字符串中想要的空格数。例如： Dim MyString MyString = Space(10) ' 返回 10 个空格的字符串。 MyString = "Hello" & Space(10) & "World" ' 将 10 个空格插入两个字符串中间。 Visual Basic程序设计教程

45 字处理器中，字符的查找和替换是基本功能。运用前面介绍过的一些字符处理函数，可以实现对字符串中的指定的子字符串进行查找和替换操作,例如使用InStr，使用Mid函数和Mid语句等。VB还提供了一个函数Replace实现这个功能。 ·Replace函数返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也可以指定。使用格式为： 9.5 查找和替换字符串 Visual Basic程序设计教程

46 Replace(Expression, Find, Replacewith[, Start[, Count]])
·函数参数Expression为字符串表达式，其中包含要被替换的子字符串。Find是指定要搜索的子字符串，Replacewith用来替换的子字符串。Start确定在Express子字符串搜索的开始位置，默认从1开始。Count为进行替换的次数，默认是–1，它表明进行所有可能的替换。可以根据Replace函数的返回值判断查找和替换操作的结果。返回值如表9.5所示。 Visual Basic程序设计教程

47 【例9-4】用一个文本框作为简单的字编辑器，在其中输入一段有关电 脑编程的文字，然后用 查找替换的方法，将文 本框中的“电脑”全部
替换为“计算机”。 程序界面如图所示 Visual Basic程序设计教程

48 9.6 处理日期和时间 【例9-5】使用VB的函数处理日期和时间的示例。 Visual Basic程序设计教程
9.6 处理日期和时间 【例9-5】使用VB的函数处理日期和时间的示例。 Private Sub Form_Load() Label1.Caption = “VB的日期和时间格式” List1.Additem "当前的日期和时间:" & Now List1.Additem "今天是：" & Date List1.Additem "今天是：" & Day(Date) & "号" List1.Additem "今天是：一周的第" & Weekday(Date) & "天" List1.Additem "今天是：" & Weekdayname(Weekday((Date))) List1.Additem "本月是：" & Monthname(Month((Date))) List1.Additem "今年是：" & Year(Date) End Sub Visual Basic程序设计教程

49 Dim Mydate As Date‘ 定义MyDate为日期型变量 Mydate = #2005-11-14# ‘ 给MyDate赋值
VB使用IsDate 函数指出一个表达式是否可以转换 成日期。使用格式为： IsDate(Expression) Visual Basic程序设计教程

50 参数Expression可以是一个日期表达式或字符串表达式。函数返回True表示可以实现转换，False表示不能转换。例如：
IsDate(#1:01:01 AM#) ‘返回True IsDate（1) ’返回False Visual Basic程序设计教程

51 Date函数。返回包含系统日期的Date型数据。 Day () 函数。返回一个月中的某一日。
2．取当前日期信息 Now函数。返回系统当前的日期与时间。 Date函数。返回包含系统日期的Date型数据。 Day () 函数。返回一个月中的某一日。 Weekday()函数。返回一个整数，代表某个日期是一周中的第几天。 Weekdayname()函数。返回一个字符串，表示一星期中的某天。 Month()函数。返回一年中1到12之间的某一月。 Year()函数。返回包含表示年份的整数。 Visual Basic程序设计教程

52 赋值号的右边NewData为新设置的日期数据。 例如： Mydate = #2005-11-14#， Date = Mydate
3．设置系统日期 使用date语句，格式为： Date = NewDate 赋值号的右边NewData为新设置的日期数据。 例如： Mydate = # #， Date = Mydate Visual Basic程序设计教程

53 执行DateSerial函数将返回包含指定的年、 月、日的日期数据。使用格式为： DateSerial(Year, Month, Day)
5．DateValue 函数 执行Datavalue函数将返回一个日期值，使用 格式为： DateValue(Date) 其中参数Date通常是字符串表达式或其他表达式。 Visual Basic程序设计教程

54 取当前时间使用Time函数，使用格式为：Time
时间数据 1．取当前时间 取当前时间使用Time函数，使用格式为：Time 例如： Print Time ‘ 输出当前时间到窗体上与时间相关的函数还有Hour(小时)、Minute（分）、Second（秒）等。例如要得到当前的时间的小时数，使用如下语句： Print Hour(Time) Visual Basic程序设计教程

55 同样我们也可以对机器的时间进行设置，这时 Time关键字位于赋值号的左边。例如直接给时 间赋值： Time = #12:0:0#
2．设置时间 同样我们也可以对机器的时间进行设置，这时 Time关键字位于赋值号的左边。例如直接给时 间赋值： Time = #12:0:0# 也可以使用变量给系统时间赋值： Mytime = #4:35:17 PM# ' 指定一个时间 Time = Mytime Visual Basic程序设计教程

56 使用格式为：TimeSerial(Hour, Minute, Second)
函数执行后，返回一个Date型的数据。其中参数Hour、Minute、Second分别为时、分、秒，正常取值范围分别为 0 (12:00 AM. )～23 (11:00 PM)、0～59、0～59，或者为任何可以被接受的表达式。 例如：TimeSerial(12 - 6, -15, 0) Visual Basic程序设计教程

57 TimeValue函数返回一个包含时间的数据(Date类型)，使用格式为：TimeValue(Time)
其中Time 参数通常是一个字符串表达式或其他表达式，表示 0:00:00 (12:00:00 A.M.) 到 23:59:59 (11:59:59 P.M.) 之间的时刻。如果 Time 包含 Null，则返回 Null。 Visual Basic程序设计教程

58 ·日期的计算最直接的方法是通过算术表达式进行计算。例如下列程序代码给出了当前日前前1天是哪一天：
日期的计算 ·日期的计算最直接的方法是通过算术表达式进行计算。例如下列程序代码给出了当前日前前1天是哪一天： Dim Date1 As Date Date1 = Date - 100 Print Date1 ·除了使用算术表达式，VB提供了进行日期计算三个函数DateAdd、DateDiff和DatePart。 Visual Basic程序设计教程

59 函数FormatDateTime将返回一个日期或时间格式的表达式。使用格式为：
格式化日期和时间 1．FormatDateTime函数 函数FormatDateTime将返回一个日期或时间格式的表达式。使用格式为： FormatDateTime(Date[,NamedFormat]) 其中参数Date是必需的，它给出要被格式化的日期表达式。NamedFormat是可选的，使用数字值表示日期/时间所使用的格式。 Visual Basic程序设计教程

60 Visual Basic程序设计教程 常数 值 描述 vbGeneralDate
显示日期和/或时间。日期部分用短日期格式显示，时间部分用长时间格式显示。如果两部分都有，两部分都显示 vbLongDate 1 用计算机区域设置值中指定的长日期格式显示日期 vbShortDate 2 用计算机区域设置值中指定的短日期格式显示日期 vbLongTime 3 用计算机区域设置值中指定的时间格式显示时间 vbShortTime 4 用24小时格式（hh：mm）显示时间即短时间格式 Visual Basic程序设计教程

61 【例9-7】使用FormatDateTime函数给出日期和时间的不同格式。程序代码如下。
Private Sub Form_Load() Dim MyDate As Date Show MyDate = FormatDateTime(Now, vbGeneralDate) Print Print " 默认的日期时间格式： " & MyDate Print " 长 日 期 格 式： " & FormatDateTime(Now,vbLongDate) Print " 短 日 期 格 式： " & FormatDateTime(Now, vbShortDate) Print " 长 时 间 格 式： " & FormatDateTime(Now, vbLongTime) Print " 短 时 间 格 式： " & FormatDateTime(Now, vbShortTime) End Sub Visual Basic程序设计教程

62 Format( Express，FormatType)
其中，Express可以是Date型的数据或表达式，FormatType使用表9.9中的设置值，例如yyyy代表4位年份，mm代表两位的月份，m使用一位的月份（如果超过一位，如11月12月，按实际输入），使用d表示日，dddd表示星期， hh表示时，nn表示分，ss表示秒等。也可以使用VB预定义的格式名（如表9.6所示）。 Visual Basic程序设计教程

63 【例9-8】使用Format函数格式化日期和时间的例子。执行程序后的显示如图9.8所示。程序代码如下。
Private Sub Form_Load() Dim MyDate As Date Show MyDate = Format(#1/1/2005#, " mm/dd/yyyy") Print " " & MyDate Print Format(#1/1/2005#, " m/d/yy") Print Format(#1/1/2005#, " mmmm d,yy") Print Format(#1/1/2005#, " dd") Print Format(#1/1/2005#, " dddd") Print " 当前日期" & Format(Now, " dddddd") Print " 当前日期为本月的第" & Format(Now, " w") & "周" Print Format(Now, " hh:nn:ss") Print Format(Now, " hh:nn AM/PM") Print Format(#11:59:59 AM#, " hh::ss AM/PM") Print Format(#12:00:01 AM#, " hh::ss AM/PM") End Sub Visual Basic程序设计教程

64 9.7 使用VB的日历控件MonthView VB提供了几个日历控件，本节通过一个例子演示日历控件的使用。
Visual Basic程序设计教程

65 设计一个简易定时器，界面如图所示。图中文本框Text1用来显示开始时间和定时的时间间隔，用单选按钮“时间”和“间隔（分）”确定文本框中的输入数据是定时的
开始时间和定时间隔。使用命令按钮“开始”进入定时过程，“重置”按钮使得定时设置重新开始。 9.8 程序举例 Visual Basic程序设计教程

66 进入定时过程，在窗体的标题栏上以秒为单位进行倒计时，计时归零后通过机器的内部扬声器发出声音。
Visual Basic程序设计教程