VB函数中如何返回值？

[沉于]

想自定义一个VB函数，函数根据 整数型月份 返回对应的英文简写...
如：func（1）返回 “Jan”

而VB中不能使用return来返回一个值，那么应该怎么做呢？

[贝隆]

简单啊，那就使用Select来返回嘛

private function func(byval intM as integer) as string
select case intM
case 1
func="Jan"
case 2
func="Feb"
case 3
.
.
.
case 12
func="Dec"
end select
end function

[沉于]

果然，找了很久的类似于return语句的方法。。。

原来是直接使用函数名赋值返回的~

另外，顺便请问下VB中可有类似于C中 “\” 这样的换行编辑符号？

[noah_ma]

呵呵。原来是学C的改换VB了。好玩，好玩。学VB的在C里，光有if也找不到then，呵呵。

[clear_zero]

chr(13)就是 \

vbctrl 也成

[chinaboyzyq]

[Quote=引用 2 楼 jorbe_1944 的回复:]

果然，找了很久的类似于return语句的方法。。。

原来是直接使用函数名赋值返回的~

另外，顺便请问下VB中可有类似于C中 “\” 这样的换行编辑符号？
[/Quote]
\n=vblf
\r=vbcr
\r\n=vbcrlf

[沉于]

[Quote=引用 3 楼 noah_ma 的回复:]
呵呵。原来是学C的改换VB了。好玩，好玩。学VB的在C里，光有if也找不到then，呵呵。
[/Quote]

也不是改换，就是玩玩而已~
仅仅是为了将想要的VBA代码从word中独立出来...

[沉于]

[Quote=引用 4 楼 clear_zero 的回复:]
chr(13)就是 \

vbctrl 也成
[/Quote]

其实，是我未描述清楚...
如：
FileObject.writeline("## Hangzhou, China, " & func1(Now.DayOfWeek) & " " & func2(Now.Month) & " " & Format(Now, "d HH:mm:ss ""GMT"" yyyy"))
这一行代码太长，我想要分两行编辑~
这在C中直接换行，或者引入“\”均可.
就是想问，在Visual Basic中是否支持类似的编辑方式...

[沉于]

[Quote=引用 5 楼 chinaboyzyq 的回复:]
引用 2 楼 jorbe_1944 的回复:

果然，找了很久的类似于return语句的方法。。。

原来是直接使用函数名赋值返回的~

另外，顺便请问下VB中可有类似于C中 “\” 这样的换行编辑符号？

\n=vblf
\r=vbcr
\r\n=vbcrlf
[/Quote]


其实，是我未描述清楚...
如：
FileObject.writeline("## Hangzhou, China, " & func1(Now.DayOfWeek) & " " & func2(Now.Month) & " " & Format(Now, "d HH:mm:ss ""GMT"" yyyy"))
这一行代码太长，我想要分两行编辑~
这在C中直接换行，或者引入“\”均可.
就是想问，在Visual Basic中是否支持类似的编辑方式...

[chinaboyzyq]

[Quote=引用 8 楼 jorbe_1944 的回复:]
其实，是我未描述清楚...
如：
FileObject.writeline("## Hangzhou, China, " & func1(Now.DayOfWeek) & " " & func2(Now.Month) & " " & Format(Now, "d HH:mm:ss ""GMT"" yyyy"))
这一行代码太长，我想要分两行编辑~
这在C中直接换行，或者引入“\”均可.
就是想问，在Visual Basic中是否支持类似的编辑方式...
[/Quote]

FileObject.writeline ("## Hangzhou, China, " & func1(Now.DayOfWeek) & " " & _
     func2(Now.Month) & " " & Format(Now, "d HH:mm:ss ""GMT"" yyyy"))

[沉于]

[Quote=引用 9 楼 chinaboyzyq 的回复:]
引用 8 楼 jorbe_1944 的回复:
其实，是我未描述清楚...
如：
FileObject.writeline("## Hangzhou, China, " & func1(Now.DayOfWeek) & " " & func2(Now.Month) & " " & Format(Now, "d HH:mm:ss ""GMT"" yyyy"……
[/Quote]


果然是VB达人...
~灰常感谢~