left(dtp1,4)&right(left(dtp1,7)2)&right(dtp1,2)&left(dtm1,2)left(right(dtm1,5)2)運行2003-1-10，8:30:00的值
2 回答
喵喵時光機
TA貢獻1846條經驗 獲得超7個贊
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
答案是：“20031-108:30”
鴻蒙傳說
TA貢獻1865條經驗 獲得超7個贊
Left 函數，返回 Variant
(String)，其中包含字符串中從左邊算起指定數量的字符。
Left 函數示例
本示例使用 Left 函數來得到某字符串最左邊的幾個字符。
| 12345 | Dim AnyString, MyStrAnyString = "Hello World" ' 定義字符串。MyStr = Left(AnyString, 1) ' 返回 "H"。MyStr = Left(AnyString, 7) ' 返回 "Hello W"。MyStr = Left(AnyString, 20) ' 返回 "Hello World"。 |
- 2 回答
- 0 關注
- 798 瀏覽
添加回答
舉報
0/150
提交
取消