DateTime存储问题::数据重载

Question

我在数据库表中定义了一个字段来存储时间。该字段的默认长度为8.我正在显示TimeDay的时间，该时间显示在下午12:44:10 这会使数据超载。如何将此数据存储到我的DateTime字段？

谢谢

Answer 1

你可以试试这个：

Dim CurrentTime As String
CurrentTime = TimeOfDay.ToLongTimeString.ToString.Replace(":", "")
CurrentTime = CurrentTime.Replace(" ", "")
If CurrentTime.Length = 7 Then
    CurrentTime = "0" & CurrentTime
End If
MsgBox(CurrentTime, MsgBoxStyle.OkOnly)

这将返回TimeOfDay，如下所示：

输入：下午12:44:10 输出：124410PM

然后，您可以在显示时使用某些代码将其恢复为默认格式。

编辑1：

甚至更好，你可以使用24小时...这将显示12:44:10 PM为12:44:10（8 Chars）或4:30:45 PM 16:30:45。