为什么hour(x) 【求时间中的小时返回结果为整型】不需要cdate之类的函数来转换呢?

Question

VB中的cdate的函数的作用是 将文本框中的数据转换成日期型数据，于是就有了：year(x)　返回日期字符串中的年份（结果为整型） 
private sub command1_click() dim a as string a = cdate(text1.text) msgbox "当前年份为：" & year(a) 

do while ....loop的循环语句还是有些模糊，感觉不太好理解....因为里面的等量的代换有点多，所以do while loop以后编程的时候可以用到哪些实际的问题中，举些代码的例子好吗????
菜鸟入门，谢谢 
T.T

Answer 1

语法Year(date)必要的 date 参数，可以是任何能够表示日期的 Variant、数值表达式、字符串表达式或它们的组合。Do...Loop 语句示例本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。Dim Check, CounterCheck = True: Counter = 0 ' 设置变量初始值。Do ' 外层循环。Do While Counter < 20 ' 内层循环。Counter = Counter + 1 ' 计数器加一。If Counter = 10 Then ' 如果条件成立。Check = False ' 将标志值设成 False。Exit Do ' 退出内层循环。End IfLoopLoop Until Check = False ' 退出外层循环。&nbsp;

Answer 2

1、因为year（x）、month（x）等函数中的x要求为日期型数据，所以在使用以上函数时，需要使用cdate将数据转换成日期型。而hour（x）、minute（x）等函数中的x要求为时间型数据，故使用这类函数时，需要使用ctime将数据转换成时间型数据。2、do while ……loop是指：“当……时，一直继续做……”。比如当a不等于10的时候，窗口一直输出a+1后的值。Private Sub Command1_Click()Dim a As IntegerDo While (a <> 10)a = a + 1Print aLoopEnd Sub

Answer 3

你的代码有误，第一句应该改成dim a as date，只是因为VB本身有数据转换功能，所以结果还是对的，同样，在使用hour函数之前，VB会检查参数x是否是date日期时间类型，如果不是，会自动转换：dim a as datea = cdate(text1.text)msgbox "当前年份为：" & hour(a)&nbsp;循环是很有用的，实际编程中经常用到，举例：Dim TextLine&nbsp;Open "TESTFILE" For Input As #1 ' 打开文件。&nbsp;Do While Not EOF(1) ' 循环至文件尾。&nbsp;Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。&nbsp;Debug.Print TextLine ' 在调试窗口中显示数据。&nbsp;Loop&nbsp;Close #1 ' 关闭文件。&nbsp;