Scott090

¦^´_ 1# t8899


    ¤é´Á¡A¦r¦ê¡A¼Æ¦r Âà´«´ú¸Õ

1. option explicit
   
2. Sub test()
   
3. Dim a&, aa&, b&, d$, sDate As Date, iDate As Date
   
4. sDate = Format(#1/5/2018#, "yyyy/mm/dd")
   
5. iDate = sDate
   
6. d = Format(iDate, "yyyymmdd")           '¦r¦ê
   
7. a = Format(iDate, "yyyymmdd")          'ªø¾ã¼Æ
   
8. b = d - 30                                                       '¦r¦ê´î¼Æ¦r¡A¦Û°ÊÂ૬
   
9. Debug.Print a, a - 30
   
10. Debug.Print d, b
    
11. 
    
12. sDate = DateAdd("d", -30, iDate)                '¤é´Á-30¤Ñ¡A ¤é´Á
    
13. d = DateAdd("d", -30, iDate)                    '¤é´Á - 30 ¤Ñ,¦r¦ê
    
14. Debug.Print sDate, d
    
15. 
    
16. a = Val(DateAdd("d", -30, iDate))               '¤é´Á - 30¤Ñ, "2017/12/6" ¥u¦³ "/"«eªº "2017"Âର¼Æ¦r
    
17. aa = Val(iDate)                                                 '¤é´ÁÂà¼Æ¦r¡A"2018/1/5" ¥u¦³ "/"«eªº "2018"Âର¼Æ¦r
    
18. Debug.Print a, aa
    
19. 
    
20. End Sub

½Æ»s¥N½X