Applet para copiar data e hora atuais como AAAA-MM-DD HH: MM para a área de transferência?

Question

Eu às vezes preciso digitar a data atual + hora no formato MySQL, ie. AAAA-MM-DD HH: MM.

Antes de eu escrever um, alguém sabe de um applet do Windows que faz isso, então eu poderia apenas clicar duas vezes nele e colar a área de transferência em outro lugar?

Obrigado.

Edit: Acontece que foi muito fácil de fazer em Freebasic , embora seja um applet de console em vez de um applet GUI:

#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)

    

Answer 1

Eu rapidamente criei um utilitário HTA para fazer isso chamado GetMySQLDateTime usando o VBScript. Sinta-se à vontade para usar / modificar / redistribuir para qualquer finalidade. Como é um HTA, você pode modificar diretamente o código usando qualquer editor de texto.

Uso:Bastaexecutá-loeastringestaránasuaáreadetransferência.Cliquenobotão"Atualizar" para atualizá-lo.