[已解决]爱疯进来解释一下日期转化程序

靓

Sub TEST()
    Dim S As String
    Dim arr

    S = [a1]
    If InStr(S, ".") Then
        arr = Split(S, ".")
    Else
        arr = Split(S, "-")
    End If
    S = Join(arr, "-")
   
    [b2] = "'" & Format(S, "yymmdd")

End Sub

句句都不会，请一句一句解释

爱疯老师进来解释一下，其他老师看到了也麻烦解释一下

[em01]

[此贴子已经被作者于2010-4-11 16:58:45编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2010-4-11 17:13

Sub TEST()
    Dim S As String
    Dim arr

    S = [a1] '把A1的内容赋给字符串变量s
    
    
    If InStr(S, ".") Then '判断s是否包含"."
        arr = Split(S, ".") '将以"."作为分隔符的s,转为1维数组arr
    Else
        arr = Split(S, "-") '将以"-"作为分隔符的s,转为1维数组arr
    End If
    
    
    S = Join(arr, "-") '将1维数组arr，变回字符串
    [b2] = "'" & Format(S, "yymmdd") '输出到B2单元格

End Sub
[em04]

跳转到最佳答案楼层

靓

[em04]怎么没人来的

爱疯

Sub TEST()
    Dim S As String
    Dim arr

    S = [a1] '把A1的内容赋给字符串变量s
    
    
    If InStr(S, ".") Then '判断s是否包含"."
        arr = Split(S, ".") '将以"."作为分隔符的s,转为1维数组arr
    Else
        arr = Split(S, "-") '将以"-"作为分隔符的s,转为1维数组arr
    End If
    
    
    S = Join(arr, "-") '将1维数组arr，变回字符串
    [b2] = "'" & Format(S, "yymmdd") '输出到B2单元格

End Sub
[em04]

一剑惊心

QUOTE:

以下是引用爱疯在2010-4-11 17:13:00的发言：

Sub TEST()
    Dim S As
  String
    Dim arr

    S = [a1] '把A1的内容赋给字符串变量s
    
    
    If InStr(S, ".") Then
  '判断s是否包含"."
        arr = Split(S, ".") '将以"."作为分隔符的s,转为1维数组arr
    Else
        arr = Split(S, "-") '将以"-"作为分隔符的s,转为1维数组arr
    End
  If
    
    
    S = Join(arr, "-") '将1维数组arr，变回字符串
    [b2] = "'" & Format(S, "yymmdd") '输出到B2单元格

End
  Sub
[em04]

学习

靓

QUOTE:

以下是引用爱疯在2010-4-11 17:13:00的发言：

Sub TEST()
    Dim S As
  String
    Dim arr

    S = [a1] '把A1的内容赋给字符串变量s
    
    
    If InStr(S, ".") Then
  '判断s是否包含"."
        arr = Split(S, ".") '将以"."作为分隔符的s,转为1维数组arr
    Else
        arr = Split(S, "-") '将以"-"作为分隔符的s,转为1维数组arr
    End
  If
    
    
    S = Join(arr, "-") '将1维数组arr，变回字符串
    [b2] = "'" & Format(S, "yymmdd") '输出到B2单元格

End
  Sub
[em04]

[em02]谢谢老师

yg509

爱疯是个热心肠的好老师