Question

有关VB日历编程的问题

Private Sub cboChineseDateType_Click()
'设置农历日期显示的类型
'0：字符类型
' 此类型农历日期以字符形式返回，如：正月十五
'1：数字类型
' 此类型农历日期以数字形式返回，如：115（个位及十位共同表示天，后面的表示月）
Calendar.ChineseDateType = cboChineseDateType.ListIndex
End Sub

Private Sub cmdExit_Click()
Unload Me
End
End Sub

Private Sub cmdOK_Click()
Dim sMsgChineseDate As String
Dim sMsgChineseGanZhi As String
Dim sMsgChineseAnimal As String
Dim sMsgChineseSolarTerm As String
If IsDate(txtDateNow) Then
'注意：此农历控件只支持 1920 到 2019 年间 100 年的阳历转换
If CDate(txtDateNow) < CDate("1920-1-1") Or CDate(txtDateNow) > CDate("2019-12-31") Then
MsgBox "此农历控件只支持 1920 到 2019 年间 100 年的阳历转换", vbCritical
Else
'设置待转换的阳历日期
Calendar.DateNow = CDate(txtDateNow)
'获得农历日期
sMsgChineseDate = Calendar.ChineseDate
'获得农历干支年份表示
sMsgChineseGanZhi = Calendar.ChineseGanZhi
'获得农历属相
sMsgChineseAnimal = Calendar.ChineseAnimal
'获得农历气节
sMsgChineseSolarTerm = Calendar.ChineseSolarTerm

MsgBox "阳历的 " & CDate(txtDateNow) & " 对应农历的 " & sMsgChineseGanZhi & _
"（" & sMsgChineseAnimal & "）" & sMsgChineseDate & " " & sMsgChineseSolarTerm, vbInformation
End If
Else
MsgBox "请输入合法的日期。", vbExclamation
txtDateNow.SetFocus
End If
End Sub

Private Sub Form_Load()
With cboChineseDateType
.AddItem "字符类型"
.AddItem "数字类型"
.ListIndex = 0
End With
End Sub

谁知道这代码中的CDate(txtDateNow)是什么意思啊？

Answer 1

CDate是一个转换函数,CDate(txtDateNow)是把文本框中的内容转换成日期格式.