日期格式的转换

Question

下面几种日期的写法我想把他们统一转成一种格式,怎么转?
03.05.18
03/05/18 
都转成2003-05-18这种形式,如果月份和日期不足两位前面补0

Answer 1

Format(xxxxxxx, "YYYY-MM-DD")xxxxxx 是你要转换的日期，可以是Date类型的，也可以是String类型的

Answer 2

data2=format(data1,"yyyy-mm-dd")
第二种比较好转，用上面的方法就行，但第一种不是标准格式，所以好像必须拆开来转。

Answer 3

format(replace("03.05.18",".","/"),"yyyy-mm-dd")
format("03/05/18","yyyy-mm-dd")

Answer 4

VB所提供的Format函数并不像DOS的Format有相同的功能，VB的Format函数是把资料包裹成指订的样式输出。
●用法：资料= Format(资料, 格式)
●简单范例。 
Private Sub Command1_Click() 
Print Format(1234, "0#####") 
End Sub
●结果Prt打出："001234" 
　 Private Sub Command1_Click() 
Print Format(1234, "(0#####)") 
End Sub
●结果Prt打出："(001234)" 
　 Private Sub Command1_Click() 
Dim TlPrice As Long 
TlPrice = TtPrice + 430 
TlPrice = TtPrice + 120 
TlPrice = TtPrice + 230 
Print Format(TtPrice, "总价是0#####元") 
End Sub
●结果Prt打出："总价是000780元" 
　 Private Sub Command1_Click() 
Dim TlPrice As Long 
TlPrice = TtPrice + 430 
TlPrice = TtPrice + 120 
TlPrice = TtPrice + 230 
Print Format(TtPrice, "总价是#####0000元") 
End Sub
●结果Prt打出："总价是0780元" 
　 Private Sub Command1_Click() 
Dim MyTime As String 
MyTime ="12:5:6" 
Print Format(MyTime, "hh:mm:ss") 
End Sub
●结果Prt打出："12:05:06" 
　 Private Sub Command1_Click() 
Dim MyTime As String 
MyTime ="12:5:6" 
Print Format(MyTime, "AMPM hh:mm:ss") 
End Sub
●结果Prt打出："PM 12:05:06" 
　 Private Sub Command1_Click() 
Dim MyTime As String 
MyTime ="77/10/18" 
Print Format(MyTime, "倩倩的生日 yyyy/mm/dd") 
End Sub
●结果Prt打出："倩倩的生日 1977/10/18" 
　 格式说明 #  显示数字  
0  在#前未满#的位数都补0、在#后未满0位数都补0  
y  显示年  
m  显示月或分  
d  显示日  
h  显示时  
s  显示秒  
:  时间分隔  
/  日期分隔  
AMPM  显示是上午或下午  

Answer 5

'定义一个日期型变量，用于装日期数据：
Dim dt1 As Date'假设日期被输入在TextBox控件Text1里：
dt1 = Text1.Text
'或者：dt1 = CDate(对象.属性） 将“对象.属性”的数据强制转换成日期型数据'将数据格式转换成yyyy-mm-dd格式
dt1 = Format(dt1,"yyyy-mm-dd")'输出
Text2.Text = dt1---------------------------------------------------------------------
Format函数相关：作用；根据格式表达式中的指令来格式化参数说明：其中expression是必需的任何有效的表达式.format是可选的有效的命名表达式或用户自定义格式表达式.firstdayofweek是可选的常数.firstweekofyear是可选的常数.
firstdayofweek参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbSunday:星期日(缺省)
vbMonday:星期一
vbTuesday:星期二
vbWednesday:星期三
vbThursday:星期四
vbFriday:星期五
vbSaturday:星期六
firstweekofyear参数的设置如下所示:
vbUseSystem:使用NLSAPI设置
vbFirstJan:从包含一月一日的那一周开始(缺省)
vbFirstFourDays:从本年第一周开始,而此周至少有四天在本年中
vbFirstFullWeek:从本年第一周开始,而此周完全在本年中
对于数字,该函数使用预先定义的命名数值格式或创建用户自定义数值格式.
对于日期和时间,该函数使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式
对于日期和时间序数,该函数使用日期和时间格式或数值格式
对于字符串,该函数创建自定义的字符串格式语法：Format(expression[,format[,firstdayofweek[,firstweekofyear]]])