在vb中如何把yyyy-mm-dd时间格式转换成多种形式？

来源：百度知道 编辑：UC知道 时间：2024/06/18 22:35:32
请问在vb中如何把yyyy-mm-dd时间格式转换成多种形式？比如把只支持yyyy-mm-dd格式的时间改成都支持yyyy.mm.dd和yyyy-mm-dd以及dd/mm/yyyy格式的形式，想让用户在输入时间的时候界面更友好一点，谢谢啦！

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' 以系统设置的长时间格式返回当前系统时间。
MyStr = Format(Time, "Long Time")

' 以系统设置的长日期格式返回当前系统日期。
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss ampm") ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。
' 如果没有指定格式，则返回字符串。
MyStr = Format(23) ' 返回 "23"。

' 用户自定义的格式。
MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。
MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。
MyStr = Format(5, "0。00%") ' 返回 "500.00%"。
MyStr = Format("hello", "<") ' 返回 "hello"。

支持任何正确格式：
vb