Проблемы с форматами дат VBA-Excel

У меня есть инструмент Excel, который преобразует текущее время и дату в UTC, а затем сохраняет это время и дату в базе данных (которая также является файлом Excel). Проблема в том, что, когда кто-то в Мексике пытается использовать этот инструмент, формат даты отличается (DD-MM-YY вместо MM-DD-YY), и он сохраняется неправильно в базе данных , Вот код, который преобразует текущее время и дату в UTC:

Option Explicit Public Declare Function SystemTimeToFileTime Lib _ "kernel32" (lpSystemTime As SYSTEMTIME, _ lpFileTime As FILETIME) As Long Public Declare Function LocalFileTimeToFileTime Lib _ "kernel32" (lpLocalFileTime As FILETIME, _ lpFileTime As FILETIME) As Long Public Declare Function FileTimeToSystemTime Lib _ "kernel32" (lpFileTime As FILETIME, lpSystemTime _ As SYSTEMTIME) As Long Public Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Public 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 Public Function LocalTimeToUTC(dteTime As Date) As Date Dim dteLocalFileTime As FILETIME Dim dteFileTime As FILETIME Dim dteLocalSystemTime As SYSTEMTIME Dim dteSystemTime As SYSTEMTIME dteLocalSystemTime.wYear = CInt(Year(dteTime)) dteLocalSystemTime.wMonth = CInt(Month(dteTime)) dteLocalSystemTime.wDay = CInt(Day(dteTime)) dteLocalSystemTime.wHour = CInt(Hour(dteTime)) dteLocalSystemTime.wMinute = CInt(Minute(dteTime)) dteLocalSystemTime.wSecond = CInt(Second(dteTime)) Call SystemTimeToFileTime(dteLocalSystemTime, _ dteLocalFileTime) Call LocalFileTimeToFileTime(dteLocalFileTime, _ dteFileTime) Call FileTimeToSystemTime(dteFileTime, dteSystemTime) LocalTimeToUTC = CDate(dteSystemTime.wMonth & "/" & _ dteSystemTime.wDay & "/" & _ dteSystemTime.wYear & " " & _ dteSystemTime.wHour & ":" & _ dteSystemTime.wMinute & ":" & _ dteSystemTime.wSecond) End Function 

А вот вот формула, которая записывает дату и время: localtimetoutc(NOW())

Затем я просто сохраняю значение этой ячейки в переменной в VBA (переменная варианта), а затем вставляю значение этой переменной в базу данных. Он отлично подходит для пользователей в США, но иногда он не работает для неамериканских пользователей. Как я могу убедиться, что это не подведет? То есть, как я могу заставить VBA использовать нужный мне формат?

С Уважением,

Пытаться:

 Public Function LocalTimeToUTC(dteTime As Date) As Date Dim dteLocalFileTime As FILETIME Dim dteFileTime As FILETIME Dim dteLocalSystemTime As SYSTEMTIME Dim dteSystemTime As SYSTEMTIME dteLocalSystemTime.wYear = CInt(Year(dteTime)) dteLocalSystemTime.wMonth = CInt(Month(dteTime)) dteLocalSystemTime.wDay = CInt(Day(dteTime)) dteLocalSystemTime.wHour = CInt(Hour(dteTime)) dteLocalSystemTime.wMinute = CInt(Minute(dteTime)) dteLocalSystemTime.wSecond = CInt(Second(dteTime)) Call SystemTimeToFileTime(dteLocalSystemTime, _ dteLocalFileTime) Call LocalFileTimeToFileTime(dteLocalFileTime, _ dteFileTime) Call FileTimeToSystemTime(dteFileTime, dteSystemTime) LocalTimeToUTC = DateSerial(dteSystemTime.wYear, dteSystemTime.wMonth, dteSystemTime.wDay) + TimeSerial(dteSystemTime.wHour, dteSystemTime.wMinute, dteSystemTime.wSecond) End Function 
  • Преобразование времени (текста) в формат Excel
  • Закрыть Word UserForm
  • JExcelApi: несколько разных форматов для частей ячейки?
  • excel может выводить форматированный текст VBA UDF?
  • Как указать относительный адрес ячейки в условном формате в Excel?
  • Сохранение ячейки Форматирование текста после применения функции
  • Вопрос о формате даты для Excel
  • Как динамически установить символ валюты в пользовательском формате Excel?
  • Поместите код внутри цикла, чтобы выйти из цикла после щелчка мышью
  • vbTrue не правда
  • Назначение горячих клавиш кнопкам на формах, созданных для excel vba
  • Interesting Posts

    Excel – отображать только столбцы с определенным месяцем и годом

    Как рассчитать процент посещаемости в листе Google для класса

    Условное форматирование на основе значения смежных ячеек

    запись формулы excel с несколькими параметрами для одного параметра

    конвертировать столбец excel из json в запись с использованием powerview

    Есть ли способ получить количество экземпляров, где критерии выполняются в сводной таблице в Excel 2016

    Использование VLOOKUP или INDEX / MATCH для запуска лотереи

    Сохранять ведущий нуль при сохранении в .CSV с включенным I / O

    Ошибка в поиске точного соответствия

    Кодирование макроса для автоматического обновления диапазонов данных диаграммы, сохранение ошибки Runtime 1004

    Чтение и запись в одном файле excel с рубином

    Отображение столбца текста в сводной таблице Excel в виде значений

    Добавить собственный макет слайдов в PowerPoint с помощью Excel VBA?

    Excel копирует данные из нескольких листов

    Excel IQY-файл – вопрос об использовании

    Давайте будем гением компьютера.