昨日の日付を表示するVBスクリプトです。

現在の日付を求めるために別の関数を呼んでいます。


Option Explicit

  Dim STR_Yesterday
  Dim STR_Temp

  STR_Temp = Get_YYYYMMDD(1)
  STR_Yesterday = DateAdd("d",-1,STR_Temp)

  WScript.Echo STR_Yesterday
Private Function Get_YYYYMMDD(ByVal STR_Flag)
  Dim STR_Temp
  Dim STR_YYYY
  Dim STR_MM
  Dim STR_DD

  If Not IsNumeric(STR_Flag) Then Exit Function End If

  STR_Temp = Year(Now)
  If Len(STR_Temp) = 2 Then STR_Temp = "20" & STR_Temp End If
  STR_YYYY = STR_Temp

  STR_Temp = Month(Now())
  If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
  STR_MM = STR_Temp

  STR_Temp = Day(Now())
  If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
  STR_DD = STR_Temp

  Select Case STR_Flag

    Case 0

      GET_YYYYMMDD = STR_YYYY & STR_MM & STR_DD

    Case 1

      GET_YYYYMMDD = STR_YYYY & "/" &  STR_MM & "/" & STR_DD    

    Case 2

      GET_YYYYMMDD = "#" & STR_DD & "/" & STR_MM & "/" & STR_YYYY & "#"

  End Select

End Function

Scriptのダウンロードは こちら です。

45 Comments

  1. gửi hàng đi mỹ says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/120 […]

  2. W88casino says:

    … [Trackback]

    […] There you will find 58828 more Info to that Topic: dragon-ark.com/archives/120 […]

  3. Darknet Links says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/120 […]

  4. exchange online plan 2 says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/120 […]

  5. adsl teknik servis says:

    … [Trackback]

    […] Find More on that Topic: dragon-ark.com/archives/120 […]

  6. it danışmanlık ücretleri says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/120 […]

  7. Sunucu Teknik Servis says:

    … [Trackback]

    […] Read More on to that Topic: dragon-ark.com/archives/120 […]

  8. HP Server Teknik Destek says:

    … [Trackback]

    […] Information on that Topic: dragon-ark.com/archives/120 […]

  9. 쿠쿠티비 says:

    … [Trackback]

    […] Read More here on that Topic: dragon-ark.com/archives/120 […]

  10. Guns For Sale says:

    … [Trackback]

    […] Find More Information here on that Topic: dragon-ark.com/archives/120 […]

  11. Will they be Windows 11? says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/120 […]

  12. Online casino says:

    … [Trackback]

    […] Find More here to that Topic: dragon-ark.com/archives/120 […]

  13. buy mushroom online says:

    … [Trackback]

    […] Read More Info here on that Topic: dragon-ark.com/archives/120 […]

  14. relx says:

    … [Trackback]

    […] There you can find 87795 additional Info on that Topic: dragon-ark.com/archives/120 […]

  15. เช่าเรือกรุงเทพ says:

    … [Trackback]

    […] Here you will find 86798 more Information on that Topic: dragon-ark.com/archives/120 […]

  16. productmens rolex yacht master 116621 black replica watch says:

    … [Trackback]

    […] Info on that Topic: dragon-ark.com/archives/120 […]

  17. ip booter says:

    … [Trackback]

    […] Read More Information here to that Topic: dragon-ark.com/archives/120 […]

  18. สล็อตวอเลท ไม่มีขั้นต่ำ says:

    … [Trackback]

    […] Read More Information here to that Topic: dragon-ark.com/archives/120 […]

  19. jetsadabet says:

    … [Trackback]

    […] Read More on that Topic: dragon-ark.com/archives/120 […]

  20. beer777 says:

    … [Trackback]

    […] Information on that Topic: dragon-ark.com/archives/120 […]

  21. 350 Legend Rifle Ar says:

    … [Trackback]

    […] Information to that Topic: dragon-ark.com/archives/120 […]

  22. Mature Parrots For Sale says:

    … [Trackback]

    […] Find More Information here on that Topic: dragon-ark.com/archives/120 […]

  23. ขายเฟสบุ๊คยิงแอด says:

    … [Trackback]

    […] Read More Info here on that Topic: dragon-ark.com/archives/120 […]

  24. Sig Sauer P320 Xcompact Spectre says:

    … [Trackback]

    […] Read More on to that Topic: dragon-ark.com/archives/120 […]

  25. Buy Trophy Copper 308 Win says:

    … [Trackback]

    […] Find More on on that Topic: dragon-ark.com/archives/120 […]

  26. สล็อตวอเลท ไม่มีขั้นต่ำ says:

    … [Trackback]

    […] Read More to that Topic: dragon-ark.com/archives/120 […]

  27. check it out says:

    … [Trackback]

    […] Find More Info here on that Topic: dragon-ark.com/archives/120 […]

  28. sbo says:

    … [Trackback]

    […] Read More Information here to that Topic: dragon-ark.com/archives/120 […]

  29. penis envy mushroom, says:

    … [Trackback]

    […] Find More on to that Topic: dragon-ark.com/archives/120 […]

  30. Darknet Anleitungen says:

    … [Trackback]

    […] Read More on on that Topic: dragon-ark.com/archives/120 […]

  31. Alphabay Market says:

    … [Trackback]

    […] Find More Information here on that Topic: dragon-ark.com/archives/120 […]

  32. Buy ketamine online Melbourne says:

    … [Trackback]

    […] Information to that Topic: dragon-ark.com/archives/120 […]

  33. Buy mushroom microdose online Melbourne says:

    … [Trackback]

    […] Find More to that Topic: dragon-ark.com/archives/120 […]

  34. 3perambulator says:

    3languages

  35. totally free gay phone chat says:

    gay black chat – live gay black men https://gaychatspots.com/

  36. how to get 4000 watch hours on youtube says:

    … [Trackback]

    […] Here you will find 39977 additional Info to that Topic: dragon-ark.com/archives/120 […]

Leave a Reply