ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð±Ð Format(Date, "yyyyMMDD") µLªk¿ë§O¤é´Á

[µo°Ý] ½Ð±Ð Format(Date, "yyyyMMDD") µLªk¿ë§O¤é´Á

D = Format(Date, "yyyyMMDD")
°²¦p¤µ¤é¬O20180101  
d-1 Åܦ¨ 20180100  À³¸Ó¬O 20171231 ¦A-1  20180099   ???
yyyymmdd §Ú¥²¶·¥Î³o®æ¦¡

¦^´_ 1# t8899

d = Date - 1
MsgBox Format(d, "yyyymmdd")
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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. sDate = DateAdd("d", -30, iDate)                '¤é´Á-30¤Ñ¡A ¤é´Á
  12. d = DateAdd("d", -30, iDate)                    '¤é´Á - 30 ¤Ñ,¦r¦ê
  13. Debug.Print sDate, d

  14. a = Val(DateAdd("d", -30, iDate))               '¤é´Á - 30¤Ñ, "2017/12/6" ¥u¦³ "/"«eªº "2017"Âର¼Æ¦r
  15. aa = Val(iDate)                                                 '¤é´ÁÂà¼Æ¦r¡A"2018/1/5" ¥u¦³ "/"«eªº "2018"Âର¼Æ¦r
  16. Debug.Print a, aa

  17. End Sub
½Æ»s¥N½X

TOP

¦^´_  t8899


    ¤é´Á¡A¦r¦ê¡A¼Æ¦r Âà´«´ú¸Õ
Scott090 µoªí©ó 2018-1-5 09:17

·PÁ«ü¾É

TOP

­Y·Q 20180101 - 1 ª½±µÂର 20171231
ff = Format(DateValue(Format(20180101, "0-00-00")) - 1, "yyyymmdd")

TOP

®æ¦¡¤Æ¬°¤å¦r®æ¦¡µLªk§@¥[´î¡A­n¥ý¥|«h¹Bºâ«á¡A¤~¯à®M¥Î®æ¦¡¡C
Rogersg

TOP

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD