[已解决]时间判断

cyj153

时间大小判断（窗体）.rar (15.08 KB, 下载次数: 7)

2014-11-8 13:27 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-8 15:25

1. Private Sub UserForm_Activate()
   
2.     Dim reg As Object, str As String, str1 As String
   
3.     str = Label1.Caption
   
4.     str1 = Label2.Caption
   
5.     Set reg = CreateObject("VBSCRIPT.REGEXP")
   
6.     With reg
   
7.         .Global = True
   
8.         .Pattern = "\D"
   
9.         If .Replace(str, "") > .Replace(str1, "") Then Label3.Caption = "大"
   
10.     End With
    
11. End Sub

复制代码

楼主试试

跳转到最佳答案楼层

木牙水

1. Private Sub UserForm_Activate()
   
2. If Label1.Caption > Label2.Caption Then Label3.Caption = "大"
   
3. End Sub
   

复制代码

这样行不

suye1010

1. T1 = Split(Label1.Caption, "'")(0) * 60 * 100 + Val(Split(Label1.Caption, "'")(1)) * 100 + Split(Label1.Caption, """")(1)

复制代码

用个变量把时间转换成数值再进行比较

suye1010

1. T1 = Val(Replace(Replace(Label1.Caption, "'", ""), """", "."))

复制代码

这样处理更简单一些

qh8600

1. Private Sub UserForm_Activate()
   
2.     Dim reg As Object, str As String, str1 As String
   
3.     str = Label1.Caption
   
4.     str1 = Label2.Caption
   
5.     Set reg = CreateObject("VBSCRIPT.REGEXP")
   
6.     With reg
   
7.         .Global = True
   
8.         .Pattern = "\D"
   
9.         If .Replace(str, "") > .Replace(str1, "") Then Label3.Caption = "大"
   
10.     End With
    
11. End Sub

复制代码

楼主试试