| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 803 人关注过本帖
标题:不同格式的時間.如何對比?
只看楼主 加入收藏
xingehappy
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-4-14
收藏
 问题点数:0 回复次数:3 
不同格式的時間.如何對比?

一種時間格式為:200406 (年月)

另一種格式為:2004-8-16 (年-月-日)

我現在要將兩個時間進行對比.要怎么樣轉換才行呢?

要求能做到下面的對比:

dim A as date1

dim B as date2

if A=B then

msgbox"時間相同!"

end if

搜索更多相关主题的帖子: 格式 
2004-08-28 15:35
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 

Option Explicit

Private Sub Command1_Click() Dim a As String Dim b As String

a = "200206" b = "2004-8-16"

a = Left(a, 4) & "-" & Right(a, 2)

MsgBox CDate(a) > CDate(b)

End Sub

在不含-号的日期字符中间加上减号


天津网站建设 http://www./
2004-08-28 23:02
xingehappy
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-4-14
收藏
得分:0 
高.這就是邏輯思維吧!

我又回頭去飛,去追.就算我追到最后只剩冰雪.天都為我傷悲.冷的愛快枯萎.任漫天風雪覆蓋我的心碎........
2004-08-30 09:26
longgen
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2004-10-9
收藏
得分:0 

Option Explicit Dim 日期1 As String Dim 日期2 As String Dim 年 As String Dim 月 As String

Private Sub Form_Load() 日期1 = Now 日期2 = "2008年8月8日" '中国奥运举办时间 日期1 = Format(日期1, "YYYYMM") 日期2 = Format(日期2, "YYYYMM") If 日期1 = 日期2 Then MsgBox "今天中国举办奥运" '如果时间是2008/08/08 就提示 Else 年 = Mid(日期2, 1, 4) - Mid(日期1, 1, 4) 月 = Mid(日期2, 5, 2) - Mid(日期1, 5, 2) MsgBox "中国举办奥运还有" & 年 & "年" & 月 & "个月" End If Me.Hide '隐藏本窗体---只是为了好看 ^____^ End Sub

2004-10-09 20:58
快速回复:不同格式的時間.如何對比?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.030936 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved