再给大家出个小题目 考下大家的技巧哈!
提问:任意给定一天,让你求出本月最后一天和上月最后一天
比如我给定一天:2008-01-27
那求出的本月最后一天是2008-01-31
上月最后一天是2007-12-31
看谁的方法够巧妙!
顺便说一下上次提问的答案
上次的提问是:如何根据错误号得到错误描述
版主用的方法大致是:
[quote][color=Gray]'VB语法高亮(by 永夜的极光) V1.03[/color]
[color=Green]Dim[/color] ErrNumber [color=Green]As Long
Dim[/color] ErrString [color=Green]As String[/color]
Err[color=Magenta].[/color]Raise ErrNumber
ErrString[color=Magenta]=[/color]Err[color=Magenta].[/color]Description[/quote]
其实有更简单的方法就是用Error函数,可以直接返回错误号的错误描述,如ErrString=Error(ErrNumber)
[[it] 本帖最后由 三断笛 于 2008-6-24 03:36 编辑 [/it]] 這個我以前做過讓我想想看 [quote][color=Gray]'VB语法高亮(by 永夜的极光) V1.03[/color]
[color=Green]Dim[/color] d [color=Green]As Date[/color]
d [color=Magenta]=[/color] [color=DarkOliveGreen]"2008-1-27"[/color]
Debug[color=Magenta].[/color]Print [color=DarkOliveGreen]"前月最后一天"[/color]
Debug[color=Magenta].[/color]Print DateSerial[color=Magenta]([/color]Year[color=Magenta]([/color]d[color=Magenta]),[/color] Month[color=Magenta]([/color]d[color=Magenta]), [color=Blue]0[/color])[/color]
Debug[color=Magenta].[/color]Print d [color=Magenta]-[/color] Day[color=Magenta]([/color]d[color=Magenta])[/color]
Debug[color=Magenta].[/color]Print [color=DarkOliveGreen]"本月最后一天"[/color]
Debug[color=Magenta].[/color]Print DateSerial[color=Magenta]([/color]Year[color=Magenta]([/color]d[color=Magenta]),[/color] Month[color=Magenta]([/color]d[color=Magenta]) + [color=Blue]1, 0[/color])[/color]
Debug[color=Magenta].[/color]Print DateAdd[color=Magenta]([color=DarkOliveGreen]"m"[/color],[/color] [color=Blue]1,[/color] d[color=Magenta]) -[/color] Day[color=Magenta]([/color]DateAdd[color=Magenta]([color=DarkOliveGreen]"m"[/color],[/color] [color=Blue]1,[/color] d[color=Magenta]))[/color][/quote]
[em08] 其实我是百度来的....DateSerial这个函数以前还不知道
[[it] 本帖最后由 永夜的极光 于 2008-6-24 08:55 编辑 [/it]] 版主给答案真快,,,还一次就两种方法,呵呵,强啊!
我就是用DateSerial的
不过DateSerial效率不行 但是比DateAdd好几倍 呵呵,百度來的,不算真本事
页:
[1]