(年\月\日\时)如何转变为时间?还请帮助!

[blue23]

客户想只录入年月日时（不录入分和秒），我如何把
（年月日时）转变为时间变量，以便保存入sql中时间字段?
我想让客户以(年-月-日-时)方式录入

[smalle]

dateserial()
好像是这个，你查查吧

[rainstormmaster]

Private Sub Command1_Click()
'没加错误处理,你自己加吧
Dim arrtemp As Variant
arrtemp = Split(Text1.Text, "-")
Dim mydate As Date
mydate = DateSerial(arrtemp(0), arrtemp(1), arrtemp(2)) + TimeSerial(arrtemp(3), 0, 0)
MsgBox Hour(mydate)
MsgBox Day(mydate)
MsgBox Month(mydate)
MsgBox Year(mydate)
End Sub

[hiiiiiijiang]

说详细一点，ok？

[blue23]

比如实际接单时间:2003-02-12 10:30:00
可是客户只要求录入2003-02-12-10因为分和秒对他没有用所以他不要求录入
现在的问题就是我如何把他录入的2003-02-12-10转变为正常的时间变量

[自由之眼]

写一个转换函数
Private Function strREV(dtrDate As String) As String
Dim strStdioDate As String
Dim strTemp As String
Dim iLen As Integer
iLen = InStrRev(dtrDate, "-")
If iLen > 0 Then
strStdioDate = Left(dtrDate, iLen - 1)
strTemp = Right(dtrDate, Len(dtrDate) - iLen)
strTemp = strTemp & ":00:00"
strStdioDate = strStdioDate & " " & strTemp
strREV = strStdioDate
Else
strREV = dtrDate
End If
End Function
测试在win2000下通过

[自由之眼]

调用方式
一个例子
Text1.Text = strREV(Text1.Text)

[gpo2002]

引用部件
Microsoft Masked Edit Control 6.0 (SP3)