«
»

以前は、UTCタイムフォーマットから”YYYYMMDDHHMMSS”に変換するスクリプトでした。

今度は、逆です。YYYYMMDDやHHMMSSを取得するスクリプトの使用しています。

Option Explicit
  Dim STR_Computer
  Dim OBJ_SWbemServices
  Dim OBJ_TimeZone
  Dim COL_TimeZone
  Dim STR_Bias
  Dim DTMCurrentDate
  Dim DTMTargetDate
  Dim DTMMonth
  Dim DTMDay

  STR_Computer = "."
  Set OBJ_SWbemServices = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STR_Computer & "\root\cimv2")
  Set COL_TimeZone = OBJ_SWbemServices.ExecQuery("SELECT * FROM Win32_TimeZone")

  For Each OBJ_TimeZone In COL_TimeZone

    STR_Bias = OBJ_TimeZone.Bias

  Next

  DTMTargetDate = Get_YYYYMMDD(0) & Get_HHMMSS(0)
  DTMTargetDate = DTMTargetDate & ".000000"
  DTMTargetDate = DTMTargetDate & CStr(STR_Bias)

  WScript.Echo DTMTargetDate
Private Function Get_YYYYMMDD(ByVal STR_Flag)
  Dim STR_Temp
  Dim STR_YYYYMMDD

  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
  If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If
  STR_YYYYMMDD = STR_Temp

  STR_Temp = Month(Now())
  If Len(STR_Temp) = 1 Then STR_Temp = "0" & STR_Temp End If
  If STR_Flag >= 1 Then STR_Temp = STR_Temp & "/" End If
  STR_YYYYMMDD = STR_YYYYMMDD & STR_Temp

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

  GET_YYYYMMDD = STR_YYYYMMDD
End Function

 
Private Function GET_HHMMSS(ByVal STR_Flag)
  Dim STR_Temp
  Dim STR_HHMMSS

  If Not IsNumeric(STR_Flag) Then Exit Function End If

  STR_Temp = Hour(Now())
  If Len(Hour(Now())) = 1 Then STR_Temp = "0" & Hour(Now())
  If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If
  STR_HHMMSS = STR_Temp

  STR_Temp = Minute(Now())
  If Len(Minute(Now())) = 1 Then STR_Temp = "0" & Minute(Now())
  If STR_Flag >= 1 Then STR_Temp = STR_Temp & ":" End If
  STR_HHMMSS = STR_HHMMSS & STR_Temp

  STR_Temp = Second(Now())
  If Len(Second(Now())) = 1 Then STR_Temp = "0" & Second(Now())
  STR_HHMMSS = STR_HHMMSS & STR_Temp

  GET_HHMMSS = STR_HHMMSS
End Function

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

This entry was posted by admin on 2008/11/03 at 14:50 under Windows, WSH. Tagged , , . You can leave a response, or trackback from your own site. Follow any responses to this entry through the RSS 2.0 feed.

27 Comments

  1. kurumsal sunucu yapılandırma says:

    … [Trackback]

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

    2021/07/07, 08:23

  2. 토토사이트,토토커뮤니티 says:

    … [Trackback]

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

    2021/07/16, 11:10

  9. World Market URL says:

    … [Trackback]

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

    2021/07/29, 08:41

  10. dark0de market says:

    … [Trackback]

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

    2021/08/31, 19:32

  11. online sleepaway euthanasia solution says:

    … [Trackback]

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

    2021/09/19, 08:29

  12. Microsoft office 2016 clave says:

    … [Trackback]

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

    2021/10/30, 00:53

  13. สล็อตเว็บตรง says:

    … [Trackback]

    […] Here you will find 83040 more Information to that Topic: dragon-ark.com/archives/80 […]

    2021/11/12, 23:24

  14. relx says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/80 […]

    2021/11/27, 10:33

  15. คาสิโนออนไลน์เว็บตรง says:

    … [Trackback]

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

    2021/12/19, 09:08

  16. hemp seed oil uses says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/80 […]

    2021/12/28, 10:01

  17. car dealership surveillance says:

    … [Trackback]

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

    2022/01/04, 10:17

  18. 15042 plumbers says:

    … [Trackback]

    […] Info to that Topic: dragon-ark.com/archives/80 […]

    2022/02/15, 08:44

  19. Quality replica watchesknockoff Bulgari Imitations Watches702 replica watches says:

    … [Trackback]

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

    2022/03/19, 00:09

  20. darkfox market url says:

    … [Trackback]

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

    2022/03/27, 02:11

  21. 匿名 says:

    … [Trackback]

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

    2022/03/29, 01:46

  22. kardinal stick says:

    … [Trackback]

    […] There you can find 81578 additional Information on that Topic: dragon-ark.com/archives/80 […]

    2022/04/02, 07:55

  23. good track 1/2 shop says:

    … [Trackback]

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

    2022/04/07, 06:20

  24. beer777 says:

    … [Trackback]

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

    2022/05/01, 07:50

  25. departamentos la paz says:

    … [Trackback]

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

    2022/05/21, 00:48

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

    … [Trackback]

    […] Here you can find 17930 more Info on that Topic: dragon-ark.com/archives/80 […]

    2022/05/22, 09:06

  27. 강남셔츠룸 says:

    … [Trackback]

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

    2022/05/24, 13:30

Leave a Reply