如果DateDiff(月，开始日期，结束日期)=6
公司主营业务：成都网站建设、做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出南昌免费做网站回馈大家。
在检查开始日期的月份是不是1或者7，如果是在检查结束日期的月份是不是6或者12，如果都满足 就是半年
如果DateDiff(月，开始日期，结束日期)=2并且 开始日期的月份不能被2整除 就是双月
VB用Format 函数即可实现。
Format 函数，返回 Variant (String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
Print Format(3.1415926, "#.##")
*#：表示一个数字位。#的个数决定了显示区段的长度。如果要显示的数值的位数小于格式字符串指定的区段长度，则该数值靠区段的左端显示。如果要显示的数值的位数大于指定的区段长度，则数值照原样显示。 要显示多位，只需要设置数字位数即可，例如：
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
上面是获取月份以及天数
'======================
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位数"
Else
c = "2位数"
End If
If b 0 AndAlso b 10 Then
d = "1位数"
Else
d = "2位数"
End If
MessageBox.Show(c)
MessageBox.Show(d)
End Sub
这个是获取位数的