＜分類：値変換＞ ＜使用例：数字の日付を通常の日付に変換する 20180728 → 2018/07/28＞ ＜プログラム例＞ Sub 使用例() Dim d As String Dim s As String d = "20180728" s = 共通_cov_date_9d(d) If s <> "" Then MsgBox (d & " を " & s & " に変換しま…

＜分類：値変換＞ ＜使用例：日付を数字の羅列に変換する 2018/07/28 → 20180728＞ ＜プログラム例＞ Sub 使用例() Dim d As String Dim s As String d = "2018/07/28" s = 共通_cov_date_d9(d) If s <> "" Then MsgBox (d & "を " & s & " に変換しました")…

＜分類：値取得＞ ＜使用例：IPアドレス別にMACアドレスを調べる＞ ＜プログラム例＞ Sub 共通_MACアドレス調査() Dim objConf, objMACEna, strIP Set objConf = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfig…

＜分類：値取得＞ ＜使用例：ネットワーク内のどのパソコンかを調べる＞ ＜プログラム例＞ Sub 使用例() Dim s As String s = 共通_IP取得() If s <> "" Then MsgBox ("IPｱﾄﾞﾚｽは" & s & "です") End If End Sub Function 共通_IP取得() Dim objConf, objIPE…

＜分類：値変換＞ ＜使用例：ログ解析で使用＞ ＜プログラム例＞ Sub 文字列編集_時間の値からn秒前を計算する() Dim n As Long Dim t1 As Date Dim t2 As Date n = -5 t1 = "00:00:00" t2 = Format(DateAdd("s", n, t1), "HH:NN:SS") MsgBox (t1 & "の" & n…