|
|
| 昵 称 |
留言内容 |
icecool
|
|
fengyun007
|
该留言发表于:2005-6-14
上午 10:48:20 北京时间

我在编程的时候遇到这样一个问题:
在VB6.0中每一笔业务都有唯一一个业务编号,这个业务编号要作为流水号以条码的形式在打印机上打印出来,我是这样处理的,以系统时间作为该业务编号我用的是now()函数,但是在将时间转换成为数字时出了问题,VB中有没有专门转换数字的函数,并且在处理时间时还要去掉时间间隔中的"-"字符.
站长回复:
VB中好像(注意是“好像”)没有这类函数。不过,我们可以自己写一个简单的转换函数。
Private Sub Command1_Click()
MsgBox TimetoNum(Now)
End Sub
Function TimetoNum(ShiJian As Date) As String
Dim strShijian As String
strShijian = Format(ShiJian, "yyyy-mm-ddhh:mm:ss")
'先转换成标准的时间格式,便于下面的进一步转换
strShijian = Replace(strShijian, "-",
"") '去掉-
TimetoNum = Replace(strShijian, ":",
"") '去掉:
End Function
2005-6-15
|
|
feifeiwua
|
|
太空
|
|
hello
|
|
蜜蜡
|
|
阿左
|
|
jianghua5876
|
该留言发表于:2005-6-4
上午 09:42:36 北京时间

我的QQ是19562534,请跟我联系啊 |
|
jianghua5876
|
该留言发表于:2005-6-4
上午 09:41:58 北京时间

站长,我想找个用VB+SQL做的机房登记管理系统,不知道你那有什么资料吗?
站长回复:
抱歉,我没有机房管理方面的源码,麻烦你再搜索一下。QQ我也很少用。谢谢:)
2005-6-6
|
|
玥玥
|
|
|