Похожие вопросы

Условное форматирование Excel для выделения всей строки, если одна дата не равна другой дате в этой строке
Как добавить дату в часы панели задач без изменения ее размера?
Можно ли настроить отображение часов на компьютере на 24-часовой формат? [дубликат]
Автоматически вставлять время / дату последнего изменения в notepad++
Как изменить формат даты с ДД-ММ-гггг на ДД-ММ-гг в строке формул MS-EXCEL?
Excel 2003: преобразование числовой ячейки во время вычислений
Как использовать условное форматирование для выделения конкретных дней недели и временных периодов?
Не удается синхронизировать время, Windows 7
Как показать будний день в Windows 10 часы в панели задач?
Принудительная синхронизация даты/времени/часов
Преобразование пятизначного числа в формат даты в Excel?
Как сделать дату гггг-ММ-ДД (ISO-8601) по умолчанию в Excel?
Настройка формата даты и времени в Windows
Объединение 2 именованных диапазонов в одну линейную диаграмму серии в Excel 2010
Как вставить время и дату, и каталог в Notepad++?

Апплет для копирования текущей даты+времени как гггг-ММ-ДД чч: мм в буфер обмена?

Мне иногда нужно ввести текущую дату + время в формате MySQL, т. е. ГГГГ-ММ-ДД ЧЧ:ММ

прежде чем я напишу сам, кто-нибудь знает о апплете Windows, который это делает, поэтому я мог бы просто дважды щелкнуть по нему и вставить буфер обмена в другое место?

спасибо.


Edit: оказывается, это было довольно легко сделать в Freebasic, хотя это апплет консоли вместо графического апплета:

#include "vbcompat.bi"
#include "windows.bi"

Sub ClearClipboard(hwnd As HWND = NULL)
    OpenClipboard(hWnd)
    EmptyClipboard()
    CloseClipboard()
End Sub

Sub WriteClipboard(Text As String, CPFormat As Integer = CF_TEXT, hWnd As HWND = NULL)        
    Var hGlobalClip = GlobalAlloc(GMEM_MOVEABLE Or GMEM_SHARE, Len(Text)+1)        
    OpenClipboard(hWnd)
    EmptyClipboard()
    Var lpMem = GlobalLock(hGlobalClip)
    CopyMemory(lpMem, StrPtr(Text), Len(text))
    GlobalUnlock(lpMem)
    SetClipboardData(CPFormat, hGlobalClip)
    CloseClipboard()
End Sub        

Dim a As Double = Now()
Dim CurrentDateTime as String

ClearClipboard()
CurrentDateTime = Format(a, "yyyy-mm-dd hh:mm")
WriteClipboard(CurrentDateTime)
5
задан OverTheRainbow
источник

1 ответов

Я быстро сделал утилиту HTA для этого с именем GetMySQLDateTime использование VBScript. Не стесняйтесь использовать/изменять/распространять его для любых целей. Поскольку это HTA, вы можете напрямую изменять код с помощью любого текстового редактора.

Screenshot

использование: просто запустите его и текст будет в буфере обмена. Нажмите кнопку "Обновить", чтобы обновить его.

0
отвечен Scott Rhee 2014-03-27 01:19:52
источник

Другие вопросы date-time mysql windows