已解決430363個問題，去搜搜看，總會有你想問的

為什么hour(x) 【求時間中的小時返回結果為整型】不需要cdate之類的函數來轉換呢?

首頁猿問為什么hour(x)...

為什么hour(x) 【求時間中的小時返回結果為整型】不需要cdate之類的函數來轉換呢?

C++

慕桂英4014372 2022-12-22 19:15:28

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

查看完整描述

3 回答

九州編程

TA貢獻1785條經驗獲得超4個贊

語法
Year(date)
必要的 date 參數，可以是任何能夠表示日期的 Variant、數值表達式、字符串表達式或它們的組合。
Do...Loop 語句示例
本示例示范如何使用 Do...Loop 語句。內層的 Do...Loop 語句循環到第 10 次時將標志值設置為 False，并用 Exit Do 語句強制退出內層循環。外層循環則在檢查到標志值為 False 時，馬上退出。

Dim Check, Counter
Check = True: Counter = 0 ' 設置變量初始值。
Do ' 外層循環。
Do While Counter < 20 ' 內層循環。
Counter = Counter + 1 ' 計數器加一。
If Counter = 10 Then ' 如果條件成立。
Check = False ' 將標志值設成 False。
Exit Do ' 退出內層循環。
End If
Loop
Loop Until Check = False ' 退出外層循環。

反對回復 2022-12-25

holdtom

TA貢獻1805條經驗獲得超10個贊

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 Integer
Do While (a <> 10)
a = a + 1
Print a
Loop
End Sub

反對回復 2022-12-25

喵喔喔

TA貢獻1735條經驗獲得超5個贊

你的代碼有誤，第一句應該改成dim a as date，只是因為VB本身有數據轉換功能，所以結果還是對的，同樣，在使用hour函數之前，VB會檢查參數x是否是date日期時間類型，如果不是，會自動轉換：
dim a as date
a = cdate(text1.text)
msgbox "當前年份為：" & hour(a)

循環是很有用的，實際編程中經常用到，舉例：
Dim TextLine
Open "TESTFILE" For Input As #1 ' 打開文件。
Do While Not EOF(1) ' 循環至文件尾。
Line Input #1, TextLine ' 讀入一行數據并將其賦予某變量。
Debug.Print TextLine ' 在調試窗口中顯示數據。
Loop
Close #1 ' 關閉文件。

反對回復 2022-12-25

3 回答
0 關注
113 瀏覽

關注

添加回答

舉報

0/150

提交

取消

亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

熱搜

最近搜索清空

為什么hour(x) 【求時間中的小時返回結果為整型】不需要cdate之類的函數來轉換呢?

為什么hour(x) 【求時間中的小時返回結果為整型】不需要cdate之類的函數來轉換呢?

3 回答

添加回答