再给大家出个小题目考下大家的技巧哈! - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → 再给大家出个小题目考下大家的技巧哈!

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 664 人关注过本帖

标题：再给大家出个小题目考下大家的技巧哈!

只看楼主加入收藏

三断笛

等　级：贵宾
威　望：31
帖　子：1621
专家分：1617
注　册：2007-5-24
结帖率：37.5%

楼主

问题点数：0 回复次数：4

再给大家出个小题目考下大家的技巧哈!

提问:
任意给定一天,让你求出本月最后一天和上月最后一天
比如我给定一天:2008-01-27
那求出的本月最后一天是2008-01-31
上月最后一天是2007-12-31

看谁的方法够巧妙!

顺便说一下上次提问的答案
上次的提问是:如何根据错误号得到错误描述
版主用的方法大致是:

'VB语法高亮(by 永夜的极光) V1.03
Dim ErrNumber As Long
Dim ErrString As String
Err.Raise ErrNumber
ErrString=Err.Description

其实有更简单的方法就是用Error函数,可以直接返回错误号的错误描述,如ErrString=Error(ErrNumber)

[[it] 本帖最后由三断笛于 2008-6-24 03:36 编辑 [/it]]

搜索更多相关主题的帖子: 技巧　 brgt　fontgt　Dimlt　

2008-06-24 03:28

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21

第 2 楼

得分:0

這個我以前做過讓我想想看

烈焰照耀世界,斌凍凍千萬裏

2008-06-24 08:09

永夜的极光

等　级：贵宾
威　望：27
帖　子：2721
专家分：1
注　册：2007-10-9

第 3 楼

得分:0

'VB语法高亮(by 永夜的极光) V1.03
  Dim d As Date
  d = "2008-1-27"
  Debug.Print "前月最后一天"
  Debug.Print DateSerial(Year(d), Month(d), [color=Blue]0)[/color]
  Debug.Print d - Day(d)
  Debug.Print "本月最后一天"
  Debug.Print DateSerial(Year(d), Month(d) + [color=Blue]1, 0)[/color]
  Debug.Print DateAdd([color=DarkOliveGreen]"m",[/color] 1, d) - Day(DateAdd([color=DarkOliveGreen]"m",[/color] 1, d))