[求助] 格式转换

xibeiakang

GNyBTtTl.rar (1.43 KB, 下载次数: 12)

2008-6-17 09:29 上传

点击文件名下载附件
[求助] 格式转换

看看如何转换，最好是那种一步到位型的。呵呵

山菊花

QUOTE:

Public Function zh(Optional sDate As Date = 0) As String
If sDate = 0 Then sDate = Date
zh = StrReverse(Format(sDate, "yyyymd"))
End Function

r5T1fypG.zip (6.04 KB, 下载次数: 8)

2008-6-17 09:51 上传

点击文件名下载附件
[求助] 格式转换

xibeiakang

QUOTE:

以下是引用lenghonghai在2008-6-17 9:44:44的发言：
Private Sub CommandButton1_Click()
Dim s$, arr, i%, arr1$, arr2$
s = Range("a4").Value
arr = Split(s, "-")
For i = 0 To UBound(arr)
arr1 = arr1 & arr(i)
Next i
For i = Len(arr1) To 1 Step -1
arr2 = arr2 & Mid(arr1, i, 1)
Next i
Range("d4") = arr2
End Sub

谢谢，请教s$中的$是什么意思呢。

xibeiakang

QUOTE:

以下是引用山菊花在2008-6-17 9:51:55的发言：

QUOTE:

Public Function zh(Optional sDate As Date = 0) As String
If sDate = 0 Then sDate = Date
zh = StrReverse(Format(sDate, "yyyymd"))
End Function

菊花版主，你真酷！！！

lenghonghai

Private Sub CommandButton1_Click()
Dim s$, arr, i%, arr1$, arr2$
s = Range("a4").Value
arr = Split(s, "-")
For i = 0 To UBound(arr)
arr1 = arr1 & arr(i)
Next i
For i = Len(arr1) To 1 Step -1
arr2 = arr2 & Mid(arr1, i, 1)
Next i
Range("d4") = arr2
End Sub