如果DateDiff(月,開始日期,結(jié)束日期)=6
公司主營業(yè)務(wù):成都網(wǎng)站建設(shè)、做網(wǎng)站、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出南昌免費做網(wǎng)站回饋大家。
在檢查開始日期的月份是不是1或者7,如果是在檢查結(jié)束日期的月份是不是6或者12,如果都滿足 就是半年
如果DateDiff(月,開始日期,結(jié)束日期)=2并且 開始日期的月份不能被2整除 就是雙月
VB用Format 函數(shù)即可實現(xiàn)。
Format 函數(shù),返回 Variant (String),其中含有一個表達式,它是根據(jù)格式表達式中的指令來格式化的。
Print Format(3.1415926, "#.##")
*#:表示一個數(shù)字位。#的個數(shù)決定了顯示區(qū)段的長度。如果要顯示的數(shù)值的位數(shù)小于格式字符串指定的區(qū)段長度,則該數(shù)值靠區(qū)段的左端顯示。如果要顯示的數(shù)值的位數(shù)大于指定的區(qū)段長度,則數(shù)值照原樣顯示。 要顯示多位,只需要設(shè)置數(shù)字位數(shù)即可,例如:
Print format(3.14159262654321,”#.#######”)
顯示:3.1415926
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
MessageBox.Show(a)
MessageBox.Show(b)
End Sub
上面是獲取月份以及天數(shù)
'======================
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Short = Date.Now.Month
Dim b As Short = Date.Now.Day
Dim c, d As String
If a 0 AndAlso a 10 Then
c = "1位數(shù)"
Else
c = "2位數(shù)"
End If
If b 0 AndAlso b 10 Then
d = "1位數(shù)"
Else
d = "2位數(shù)"
End If
MessageBox.Show(c)
MessageBox.Show(d)
End Sub
這個是獲取位數(shù)的