英语翻译Private Function iDYTS(yue1 As Integer) As IntegerIf yue

来源：学生作业帮编辑：作业帮分类：数学作业时间：2024/05/16 14:26:37

英语翻译
Private Function iDYTS(yue1 As Integer) As Integer
If yue1 12 Then
iDYTS = CDate("1999/" & yue1 + 1 & "/1") - CDate("1999/" & yue1 & "/1")
Else
iDYTS = 31
End If
End Function
主要是 CDate("1999/" & yue1 + 1 & "/1") - CDate("1999/" & yue1 & "/1") 这句怎么理解?

Private Function iDYTS(yue1 As Integer) As Integer '函数定义,参数为月份数,整型
If yue1 12 Then '如果月份不等12
iDYTS = CDate("1999/" & yue1 + 1 & "/1") - CDate("1999/" & yue1 & "/1") '月天数的计算,就是根据这个月份数先算出下一个月的第一天CDate("1999/" & yue1 + 1 & "/1")
'再减去这个月的第一天,CDate("1999/" & yue1 & "/1"),两个日期之差就是天数
Else '否则就为31天
iDYTS = 31
End If
End Function '函数据结束
这是算1999年任意月份天数的函数

Private Function p1(x As Integer,y As Integer,z As Integer) Function fun(a As Integer,n As Integer) As Integer 英语翻译Private Sub 主体_Print(Cancel As Integer,PrintCount As Int Private Sub Form_Click() Dim a As Integer,b As Integer,k As 英语翻译Private Sub Form_Click()Dim a(1 To 10) As Integer,i%,max Private Sub Command1_Click() Dim i As Integer,s As Integer,n Function hw(m As Long) As Boolean Dim a As Integer,b As Inte 麻烦解释这个程序Private Sub pl(x As Integer,ByVal y As Integer)x = 4 Private Sub Command1_Click() Dim i,j As Integer For i = 3 To 帮忙VB试题我怎么想都算不对Private Sub Command1_Click()Dim a As Integer,b 9^n+2是不是质数vb编程如下Private Sub Command1_Click()Dim a As Integer Dim a(9) As Integer,x As Integer,k As Integer,I As Integer R