Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
GetLocalTime возвращает системное время и дату. Различные особенности времени и даты (месяц, день, час, минута, секунда и т.д.) до миллисекунды, сортируются в переменной lpSystemTime! Windows полагает, что "местное время" будет текущим временем системы
' Показываем текущее время в формате месяц-день-год Dim localtime As SYSTEMTIME GetLocalTime localtime ' получаем время и дату у компьютера ' Показываем дату Debug.Print localtime.wMonth; "-"; localtime.wDay; "-"; localtime.wYear