[µo°Ý] ½Ð±Ð¤@­Ó¦Û¼gªº¤é´ÁÂ૬³B²z

c_c_lai

½Ð±Ð¤@­Ó¦Û¼gªº¤é´ÁÂ૬³B²z¡C
»¡©ú¡G   °²³]   
1).   Date ¨ç¼Æªº¨ú¦^­È¬°  "2012/3/8"¡A«h¤U¦C DateToStr ¨ç¼Æ·|¦Û°Ê±N¥¦Âন "20120308"
2).   Date ¨ç¼Æªº¨ú¦^­È¬°  "2012/3/18"¡A«h¤U¦C DateToStr ¨ç¼Æ·|¦Û°Ê±N¥¦Âন "20120318"
3).   Date ¨ç¼Æªº¨ú¦^­È¬°  "2012/10/8"¡A«h¤U¦C DateToStr ¨ç¼Æ·|¦Û°Ê±N¥¦Âন "20121008"
4).   Date ¨ç¼Æªº¨ú¦^­È¬°  "2012/10/10"¡A«h¤U¦C DateToStr ¨ç¼Æ·|¦Û°Ê±N¥¦Âন "20121010"

°£¤F¥H¤U§Ú¦Û¼gªº Function ¥~¡A ½Ð°ÝÁÙ¦³¨S¦³§ó¦nªº Function ªí¹F¤è¦¡¤Î¼gªk¡H
ÁÂÁ¦U¦ì¥ý¶i«ü¾É¡I

1. Sub Test()
   
2.     Dim today As String
   
3. 
   
4.     today = DateToStr(Date, "/")
   
5.     Cells(1, 1).Value = today
   
6. End Sub
   
7. 
   
8. Function DateToStr(cvDate, delimeter)
   
9.     Dim yr, mm, dd, i, k
   
10.    
    
11.     If (Len(cvDate) < 8 Or Mid(cvDate, 5, 1) <> delimeter) Then
    
12.         DateToStr = ""
    
13.         Exit Function
    
14.     End If
    
15.    
    
16.     yr = Mid(cvDate, 1, 4)
    
17.     mm = Mid(cvDate, 6, 2)
    
18.     If (Mid(mm, 2, 1) = delimeter) Then mm = "0" + Mid(mm, 1, 1): dd = Mid(cvDate, 8) Else dd = Mid(cvDate, 9)
    
19.     If (Len(dd) = 1) Then dd = "0" + dd
    
20.    
    
21.     DateToStr = yr + mm + dd
    
22. 
    
23.     k = 0
    
24.     If (Len(DateToStr) > 0) Then
    
25.         For i = 1 To Len(DateToStr)
    
26.             If (Mid(DateToStr, i, 1) < "0" Or Mid(DateToStr, i, 1) > "9") Then k = 1
    
27.         Next i
    
28.     End If
    
29.    
    
30.     If (k = 1) Then DateToStr = ""
    
31. End Function

½Æ»s¥N½X

c_c_lai

¦^´_ 5# eggdd
¦hÁ§iª¾¡A §Ú¬OÀ³¥Î¦bµ{¦¡¤º¡A ©Ò¥H«á§ï¥Î¤F Format(Date, "yyyymmdd") ªº³B²z¡C
ÁÂÁ±z¡I

eggdd

ª½±µ¦bÀx¦s®æ®æ¦¡¦Û­q¦¨
yyyymmdd

chen_cook

Àx¦s®æ®æ¦¡¦Û­q­×§ï¤]¬O¥i¥Hªº

c_c_lai

¦^´_ 2# oobird

­ì¨Ó³o»ò²³æ°Õ¡I
¤£ÁA¸Ñ VBA ¥Îªkªº¤H´N¬O¥u·|¤gªk·Ò¿û¡A
·PÁ±zªº«ü¾É¡I

oobird

Sub Test()
   [a1] = Format(Date, "yyyymmdd")
End Sub