包含vb点虐 时间大小的词条
怎样在vb中比较两个日期大小
日期比较其实直接比较2个字符串就行了
创新互联长期为近千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为掇刀企业提供专业的网站设计制作、成都网站制作，掇刀网站改版等技术服务。拥有十载丰富建站经验和众多成功案例,为您定制开发。
dim a as string
dim b as string
a="日期1"
b="日期2"
if ab then
msgbox("过期")
else
msgbox("没过期")
end if
VB点虐 窗体程序的time控件，可以识别到的最小时间差是多少纳秒 ?
VB有现成的函数：
DateDiff(格式,日期1,日期2)
如今天到2010-5-1 8:00:00的时间差，代码：
DateDiff("yyyy",Now,#2010-5-1 8:00:00#) '还有几(整)年
DateDiff("q",Now,#2010-5-1 8:00:00#) '还有几(整)季度
DateDiff("m",Now,#2010-5-1 8:00:00#) '还有几(整)月
DateDiff("d",Now,#2010-5-1 8:00:00#) '还有几(整)天
DateDiff("ww",Now,#2010-5-1 8:00:00#) '还有几(整)周
DateDiff("h",Now,#2010-5-1 8:00:00#) '还有几(整)小时
DateDiff("n",Now,#2010-5-1 8:00:00#) '还有几(整)分钟
DateDiff("s",Now,#2010-5-1 8:00:00#) '还有几(整)秒
vbnet中怎样把时间设为24时制
将时间转换为指定的字符串格式用：Now.ToString("yyyyMMddHHmmss")就Ok了。
例如：年份用小写yyyy(大写不识别)，大写MM识别为月份，小写mm识别为分钟，日期天为大写DD(小写不识别)，
小时大写HH识别为24小时制，小写hh识别为12小时制，秒用小写ss(大写不识别)
补充：Visual Basic.NET是基于微软.NET Framework之上的面向对象的编程语言。
其在调试时是以解释型语言方式运作,而输出为EXE程序是是以编译型语言方式运作。
可以看作是Visual Basic在.Net Framework平台上的升级版本，增强了对面向对象的支持。大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment).SharpDevelop是另一种可用的开源的IDE。
VB.Net需要在.Net Framework平台上才能执行。
VB.NET 如何将秒转化为小时，分钟，秒的形式
Public Class Form1
Private Function ZToFSAll(ByVal ZT As Long) As String
'全存样式
'从天，时，分，秒整合为秒
Dim T， S， F， M As Integer '天，时，分，秒
Dim T1， S1 As Integer '天，时，分，秒
Dim M1 As String
T = ZT \ 86400
T1 = ZT Mod 86400
S = T1 \ 3600
S1 = T1 Mod 3600
F = S1 \ 60
M = S1 Mod 60
If M 10 Then
M1 = "0" M
Else
M1 = M
End If
ZToFSAll = T "天" S "小时" F "分钟" M1 "秒"
End Function
Private Function ZToFSQS(ByVal ZT As Long) As String
'缺损样式
'从秒分解为天，时，分，秒
Dim T， S， F， M As Integer '天，时，分，秒
Dim T1， S1 As Integer '天，时，分，秒
Dim T2， S2， F2， M2 As String '天，时，分，秒
T = ZT \ 86400
T1 = ZT Mod 86400
S = T1 \ 3600
S1 = T1 Mod 3600
F = S1 \ 60
M = S1 Mod 60
If T = 0 Then
T2 = ""
Else
T2 = T "天"
End If
If S = 0 Then
S2 = ""
Else
S2 = S "小时"
End If
If F = 0 Then
F2 = ""
Else
F2 = F "分钟"
End If
M2 = M "秒"
ZToFSQS = T2 S2 F2 M2
End Function
Private Function FSoZT(ByVal T As Integer， ByVal S As Int16， ByVal F As Int16， ByVal M As Int16) As Long
'从天，时，分，秒分解为秒
'T， S， F， M分别为天，时，分，秒
FSoZT = T * 86400 + S * 3600 + F * 60 + M
End Function
Private Sub Button1_Click(ByVal sender As System.Object， ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ZToFSQS(520354) '值为:6天32分钟34
TextBox1.Text = ZToFSAll(520354) '值为:6天0小时32分钟34秒
TextBox1.Text = FSoZT(6， 0， 32， 34) '值为:520354
End Sub。
标题名称：包含vb点虐 时间大小的词条
分享网址：http://myzitong.com/article/ddsgogi.html