July 17, 2009

VB3.InputBox & MsgBox

喔!這個我想超久的ˊˋ我是過很多語法但是都行不通

一直出現怪怪的年份XD

最後以三行:這個程式是輸入你的年齡求出你出生的年份

Private Sub Command1_Click()

Dim a As Date                                            宣告A 的資料型態是date

a = InputBox("請輸入你的年紀")               用輸入視窗輸入a

 MsgBox "您生於" & DateDiff("y", CDate(a), Year(Now)) & "年"       

                                                              注意:"y"是取該年的年份!不能用"yyyy"喔!!

我用訊息方塊的原因是習題要求的= = ㄏㄏ自己可以改成print也ok!!

搞定了︿︿很煩阿!想了一天一夜了= =

我剩至試過把DATEdILL改成DATEPART以及DATEADD哈哈ˊˋ不過當然都失敗~

今天晚上中於是成功了︿︿開心

0推薦此文章
Today's Visitors: 0 Total Visitors: 2
Personal Category: Uncategorized Articles Topic: learning / education / certification
歷史上的今天:

誰來收藏
Loading ...
unlog_NVPO 0