真的很急！ 大家帮帮忙

[slxn]

现用 dim lpdataBuf(10) as byte 来存储系统时间
在lpdataBuf中想用BCD码如下存储
例如： 2003-8-13 Wednesday 8:50:49
lpDataBuf[0] = 03H //year
lpDataBuf[1] = 8H //month
lpDataBuf[2] = 13H //date
lpDataBuf[3] = 03H //week lpDataBuf[4] = 8H //hour lpDataBuf[5] = 50H //min
lpDataBuf[6] = 49H //second

现在通过 year(now),month(now)... 获得系统时间后 该如何处理啊

请各位大哥帮忙 小弟刚学vb

[二师兄的老公]

首先要懂，什么是BCD码。
比如月份10的BCD码是：10H。
可以这样来看其BCD码：月份数字字符串加上十六进制符号H。
在VB中可以这样实现：

strMonth = "&H" & "10"
bytMonth = CByte(strMonth)

[slxn]

strMonth = "&H " & "10 "
bytMonth = CByte(strMonth)

显示 bytMonth =16

[slxn]

大家再帮看看！！

[slsamy]

!

[NoReady]

显示出来当然是16了，因为"&H" & "10" 对应的值为十进制16.
首先你得自己算出10进帛与16的数据了：

如： 2003-8-13 Wednesday 8:50:49
lpdataBuf(0) = "&H" & Right(Year(Now), 2) 'year