LHSP‡        	   <todays_date>   todays_date%Insert current date into any documentImageManagement ıøÿ                    ÿ³' This voice command:
' -- Calls the Windows GetLocalTime function, which gets the current time from the system.
' -- Takes the month, day, and year from the current time and types it into the active application.

' Declare the Windows data type for the system time. You can find this information with the API Viewer in
' Microsoft Visual Studio. Copy it from the API viewer right into this macro.

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

' Declare the Windows function that gets the date and time. You can also find this with the API Viewer.

Public Declare Sub GetLocalTime Lib "kernel32" Alias "GetLocalTime" (lpSystemTime As SYSTEMTIME)

' Declare variables to hold the time, day, month, and year.

Dim CurrentTime As SYSTEMTIME
Dim CurrentDay, CurrentYear, CurrentMonth As String

Sub Main
	'Call the Windows function to get the local time.
	Call GetLocalTime (CurrentTime)

	' Convert the day from integer to string.
	CurrentDay = CurrentTime.wDay

	' Given the number of the month, select its name.
	Select Case CurrentTime.wMonth
	Case 1
		CurrentMonth = "January"
	Case 2
		CurrentMonth = "February"
	Case 3
		CurrentMonth = "March"
	Case 4
		CurrentMonth = "April"
	Case 5
		CurrentMonth = "May"
	Case 6
		CurrentMonth = "June"
	Case 7
		CurrentMonth = "July"
	Case 8
		CurrentMonth = "August"
	Case 9
		CurrentMonth = "September"
	Case 10
		CurrentMonth = "October"
	Case 11
		CurrentMonth = "November"
	Case 12
		CurrentMonth = "December"
	End Select

	' Convert the year from integer to string.
	CurrentYear = CurrentTime.wYear

	' Send the month, day, and year as keystrokes to the active application.
	SendDragonKeys CurrentMonth + " " + CurrentDay + ", " + CurrentYear
End Sub
   todays_date      Insert Todays DateTodays Date