Location:
Search - datediff
Search list
Description: VB日期比较函数,你可以用做通用函数,因为日期也是大家常用的-VB date comparison function, you can do common functions, but also because we used the date of
Platform: |
Size: 59928 |
Author: mrx |
Hits:
Description: 用DateAdd,DateDiff,between实现指定日期范围内的查询
Platform: |
Size: 5400 |
Author: zkm |
Hits:
Description: VB日期比较函数,你可以用做通用函数,因为日期也是大家常用的-VB date comparison function, you can do common functions, but also because we used the date of
Platform: |
Size: 59392 |
Author: |
Hits:
Description: PB下不错的datawindow汇出excel文件控件2.06版-PB DataWindow under good control export excel file version 2.06
Platform: |
Size: 422912 |
Author: Leon Lee |
Hits:
Description: 用DateAdd,DateDiff,between实现指定日期范围内的查询-Use DateAdd, DateDiff, between the achievement of a specified date within the scope of inquiry
Platform: |
Size: 5120 |
Author: zkm |
Hits:
Description: 用MaskEdBox控件,比较两个日期的大小-ussing MaskEdBox, function:DateDiff
Platform: |
Size: 5120 |
Author: 木易 |
Hits:
Description: this scroll using java swing.-this is scroll using java swing.....
Platform: |
Size: 1024 |
Author: aaru |
Hits:
Description: To demonstrate the two functions DateDiff and DateAdd very basic examples for beginners. well commented for a better understanding hopefully.
Platform: |
Size: 4096 |
Author: chilesat |
Hits:
Description: Private Sub Command3_Click()
打开短信初始化端口
Dim Temp As String
Dim Aa As String
Aa = Now
Label6.Caption = "打开始打端口..."
Temp = SzhtoSms1.YhOpenModem(Text4.Text, Text8, Text9)
If InStr(Temp, "-1") = 0 Then Text3 = Temp
Label6.Caption = "打开:" + IIf(InStr(Temp, "-1") > 0, Temp, "成功")
Debug.Print DateDiff("s", Aa, Now)
End Sub
Private Sub Command1_Click()
发送短信
Label6.Caption = "开始发送短信..."
Command1.Enabled = False
Text10 = ""
If SzhtoSms1.smsStatus <> "" Then Exit Sub
Dim I As Long
For I = 0 To List1.ListCount - 1
Text10 = Text10 + "状态:" + SzhtoSms1.YhSendSms(Text3.Text, List1.List(I), Text1.Text, IIf(Check2.Value = 1, 9, IIf(Check3.Value = 1, 1, 0))) + " 手号:" + List1.List(I) + Chr$(13) + Chr$(10)
Next I
Command1.Enabled = True
Label6.Caption = "结束发送"
End Sub
-Private Sub Command3_Click()
打开短信初始化端口
Dim Temp As String
Dim Aa As String
Aa = Now
Label6.Caption = "打开始打端口..."
Temp = SzhtoSms1.YhOpenModem(Text4.Text, Text8, Text9)
If InStr(Temp, "-1") = 0 Then Text3 = Temp
Label6.Caption = "打开:"+ IIf(InStr(Temp, "-1") > 0, Temp, "成功")
Debug.Print DateDiff("s", Aa, Now)
End Sub
Private Sub Command1_Click()
发送短信
Label6.Caption = "开始发送短信..."
Command1.Enabled = False
Text10 = ""
If SzhtoSms1.smsStatus <> "" Then Exit Sub
Dim I As Long
For I = 0 To List1.ListCount- 1
Text10 = Text10+ "状态:"+ SzhtoSms1.YhSendSms(Text3.Text, List1.List(I), Text1.Text, IIf(Check2.Value = 1, 9, IIf(Check3.Value = 1, 1, 0)))+ " 手号:"+ List1.List(I)+ Chr$(13)+ Chr$(10)
Next I
Command1.Enabled = True
Label6.Caption = "结束发送"
End Sub
Platform: |
Size: 287744 |
Author: ds |
Hits:
Description: VB计算时间加减,天数计算,VB计算时间加减,天数计算-ghjhj jjj ghhhh jjjkl fhgfhgh
Platform: |
Size: 2048 |
Author: 的姓 |
Hits:
Description: 一种简单的画圆方法(用DATEDIFF函数实现)-An easy way to establish concentric circles.
Platform: |
Size: 2048 |
Author: |
Hits: