XL 2021 VBA - Process Start Time

Private Declare PtrSafe Function GetProcessTimes Lib "kernel32" (ByVal hProcess As LongPtr, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long
Private Declare PtrSafe Function GetCurrentProcess Lib "kernel32" () As LongPtr
Private Declare PtrSafe Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare PtrSafe Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long

Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type


Private Sub CommandButton1_Click()
Dim d As FILETIME, st As FILETIME
Dim H As LongPtr, ret As SYSTEMTIME
   H = GetCurrentProcess
   GetProcessTimes H, st, d, d, d
   FileTimeToLocalFileTime st, d
   FileTimeToSystemTime d, ret
   Debug.Print ret.wHour; ret.wMinute; ret.wMilliseconds
End Sub

Option Explicit
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Sub a()
    Dim wmi As Object, res As Object, dtmCreationDate As Object, readableDate As Date
    Set dtmCreationDate = CreateObject("WbemScripting.SWbemDateTime")
    Set wmi = GetObject("winmgmts:root\CIMV2")
    Set res = wmi.ExecQuery("Select * from Win32_Process Where ProcessId = " & _
                 CStr(GetCurrentProcessId()))
        If res.Count = 1 Then
              dtmCreationDate = res.ItemIndex(0).CreationDate
              readableDate = dtmCreationDate.GetVarDate
              Debug.Print readableDate
        End If
End Sub

'--------------------------------------------
'Get Process creation date from its ProcessId
'--------------------------------------------
Private Function GetProcessCreationDateByProcessId(ProcessId As Long) As Date
    Dim Res As Object
    Dim dtmCreationDate As Object
    
    Set dtmCreationDate = CreateObject("WbemScripting.SWbemDateTime")
    Set Res = GetObject("winmgmts:").ExecQuery("Select * from Win32_Process Where ProcessId = " & CStr(ProcessId))
    
    If Res.Count = 1 Then
        dtmCreationDate = Res.ItemIndex(0).CreationDate
        
        'Return value
        GetProcessCreationDateByProcessId = dtmCreationDate.GetVarDate
    End If
End Function

Private Declare PtrSafe Function GetProcessTimes Lib "kernel32" (ByVal hProcess As LongPtr, lpCreationTime As FILETIME, lpExitTime As FILETIME, lpKernelTime As FILETIME, lpUserTime As FILETIME) As Long
Private Declare PtrSafe Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare PtrSafe Function FileTimeToLocalFileTime Lib "kernel32" (lpFileTime As FILETIME, lpLocalFileTime As FILETIME) As Long
Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPtr
Private Declare PtrSafe Sub CloseHandle Lib "kernel32" (ByVal aObj As LongPtr)

Private Type FILETIME
        dwLowDateTime As Long
        dwHighDateTime As Long
End Type

Private Type SYSTEMTIME
        wYear As Integer
        wMonth As Integer
        wDayOfWeek As Integer
        wDay As Integer
        wHour As Integer
        wMinute As Integer
        wSecond As Integer
        wMilliseconds As Integer
End Type
Private Function ProcessStartTime(ByVal Pid As Long) As Date
Const PROCESS_QUERY_LIMITED_INFORMATION = &H1000
Dim D As FILETIME, st As FILETIME
Dim h As LongPtr, r As SYSTEMTIME
   h = OpenProcess(PROCESS_QUERY_LIMITED_INFORMATION, 0, Pid)
   If h <> 0 Then
      GetProcessTimes h, st, D, D, D
      CloseHandle h
      FileTimeToLocalFileTime st, D
      FileTimeToSystemTime D, r
      ProcessStartTime = DateSerial(r.wYear, r.wMonth, r.wDay) + TimeSerial(r.wHour, r.wMinute, r.wSecond)
   End If
End Function