string类的left函数是如何使用的
3 回答
森栏
TA贡献1810条经验 获得超5个赞
是不是这样?
Private Sub Form_Load()
Dim dtp1 As String, dtm1 As String
Form1.AutoRedraw = True
Form1.FontSize = 20
Form1.ForeColor = &H7700FF
'Form1.BorderStyle = 1
dtp1 = "2003-1-10"
dtm1 = "8:30:00"
Print Left(dtp1, 4) & Right(Left(dtp1, 7), 2) & Right(dtp1, 2) & Left(dtm1, 2); Left(Right(dtm1, 5), 2)
End Sub
添加回答
举报
0/150
提交
取消