«
»

今度は、HHMMDDを取得します。
引数も同様に、1以上の場合は”HH:MM:SS”を、0の場合は”HHMMSS”です。


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/02 at 23:37 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.

32 Comments

  1. http://51.68.186.130/ says:

    … [Trackback]

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

    2021/08/02, 12:20

  2. Energy Rates says:

    … [Trackback]

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

    2021/08/24, 07:58

  3. pic 5678 says:

    … [Trackback]

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

    2021/09/20, 07:36

  4. Earning money auto pilot says:

    … [Trackback]

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

    2021/11/28, 05:35

  5. Amazon.com says:

    … [Trackback]

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

    2021/11/28, 07:36

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

    … [Trackback]

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

    2021/12/08, 09:09

  7. 1trumpeter says:

    2commissioners

    2022/01/13, 08:57

  25. Legal Gun Sites says:

    … [Trackback]

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

    2022/02/06, 10:15

  26. relx says:

    … [Trackback]

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

    2022/02/08, 11:07

  32. wow slot says:

    … [Trackback]

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

    2022/03/03, 23:10

Leave a Reply