建站
咨詢
售后
建站咨詢
新聞中心
VB.Net 如何計(jì)算兩個(gè)日期間隔有多少個(gè)雙月，多少個(gè)半年？
如果DateDiff(月，開始日期，結(jié)束日期)=6
成都創(chuàng)新互聯(lián)公司是一家專業(yè)從事成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作的網(wǎng)絡(luò)公司。作為專業(yè)網(wǎng)絡(luò)公司,成都創(chuàng)新互聯(lián)公司依托的技術(shù)實(shí)力、以及多年的網(wǎng)站運(yùn)營經(jīng)驗(yàn),為您提供專業(yè)的成都網(wǎng)站建設(shè)、網(wǎng)絡(luò)營銷推廣及網(wǎng)站設(shè)計(jì)開發(fā)服務(wù)！
在檢查開始日期的月份是不是1或者7，如果是在檢查結(jié)束日期的月份是不是6或者12，如果都滿足 就是半年
如果DateDiff(月，開始日期，結(jié)束日期)=2并且 開始日期的月份不能被2整除 就是雙月
急?。。B.NET按月份數(shù)據(jù)畫統(tǒng)計(jì)圖
用crystal報(bào)表，文件——新建文件——crystal報(bào)表，然后根據(jù)向?qū)Ы?/p>
vb點(diǎn)虐 時(shí)間統(tǒng)計(jì)問題
一樓風(fēng)中的奶牛的做法很棒，建議樓主采納他的回答。
只是其中有一個(gè)Bug，就是“倒數(shù)第二次累計(jì)分鐘數(shù)為59，累計(jì)秒數(shù)達(dá)到60的時(shí)候，會出現(xiàn)**:60:**”。例如{"10:57:35", "2:02:51"}，我這里做了修改，供參考。
另外，AddByInts中不需要進(jìn)行循環(huán)和Select判斷，可以簡化。
同時(shí)，為了說明類和結(jié)構(gòu)的關(guān)系，這里改用類。
也請一樓風(fēng)中的奶牛勿怪罪在下啊！
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim str As String() = {"10:30:35", "2:02:51", "17:00:35", "2:02:51"}
Dim str As String() = {"10:57:35", "2:02:51"}
Dim time As TimeSerial = New TimeSerial
For Each dt As String In str
time.Add(dt)
Next
MsgBox(time.ToString)
End Sub
End Class
Public Class TimeSerial
Public Hour As Integer ' 時(shí)間的小時(shí)部分
Public Minute As Integer ' 時(shí)間的分鐘部分
Public Second As Integer ' 時(shí)間的秒鐘部分
' 合并添加新的時(shí)間值
' param name="value"文本時(shí)間格式(00:00:00)/param
Public Sub Add(ByVal value As String)
Dim arr As String() = Split(value, ":")
Dim dts(arr.Length - 1) As Integer
For i As Integer = 0 To arr.Length - 1
dts(i) = CInt(Val(arr(i)))
Next
AddByInts(dts)
End Sub
' 合并添加新的時(shí)間值
' param name="value"時(shí)間值(僅計(jì)算:時(shí)、分、秒)/param
Public Sub Add(ByVal value As Date)
Dim dts(2) As Integer
dts(0) = value.Hour
dts(1) = value.Minute
dts(2) = value.Second
AddByInts(dts)
End Sub
Private Sub AddByInts(ByVal value As Integer())
Second += value(2)
If Second = 60 Then
Minute += Int(Second / 60)
Second = Second Mod 60
End If
Minute += value(1)
If Minute = 60 Then
Hour += Int(Minute / 60)
Minute = Minute Mod 60
End If
Hour += value(0)
End Sub
' 獲取時(shí)間的文本格式(00:00:00)
Public Overrides Function ToString() As String
Return Hour ":" Minute ":" Second
End Function
End Class
vb點(diǎn)虐 獲取年，月，日，時(shí)，分，秒
不是 有 函數(shù)嘛？
now() 就是 吧
取得 后 再 分離出你所需的，分別賦值 就行了，當(dāng)然 還是 有 函數(shù)的
名稱欄目：vb點(diǎn)虐 分月統(tǒng)計(jì) vb編寫一個(gè)統(tǒng)計(jì)不同分?jǐn)?shù)段得分人數(shù)的程序
轉(zhuǎn)載來于：http://fisionsoft.com.cn/article/ddjgpii.html
