' This command converts the current computer time to the ' Military Date Time Group (DTG) format Option Explicit Dim NowTime As String Dim NowMonth As String Dim NowYear As String Sub Main NowMonth = Format(Now,"MMM") NowMonth = UCase$(NowMonth) NowYear = Format(Now,"YY") NowTime = Format(Now,"ddHHmmR") '<---TIME CODE LETTER SendKeys NowTime + NowMonth + NowYear + " " End Sub ' ' Military Date Time Group is traditionally formated As DDHHMM(Z)MONYY ' Example is 630pm On January 6th 2012 in Washington DC (Eastern time "R" zone) ' ' 061830RJAN12 ' ' (06 = Day, 1830 = Time, R = Time Zone, JAN = Month, 12 = Year) ' ' DAY - TIME - TIME CODE LETTER - MONTH - YEAR (without '-' & spaces) ' DD-Day of the Month (e.g. January 6th=06) ' HHMM- Time In 24 hr Format +military Time zone (e.g. 6:30pm = 1830). ' Z- Military Time Zone identifier (see list below script) ' MON- 3 digit Month code, (e.g. January= JAN) ' YY- 2 Digit Year, (e.g. 2012= 12) ' ' Change the Military Time Code (Time Zone) Letter Reference in "ddHHmmR" ' to match your location - see list below. ' ' Military Time Code (Time Zone) Letter Reference: ' UTC-12: Y- (e.g. Fiji) ' UTC-11: X (American Samoa) ' UTC-10: W (Honolulu, HI) ' UTC-9: V (Juneau, AK) ' UTC-8: U (PST, Los Angeles, CA) ' UTC-7: T (MST, Denver, CO) ' UTC-6: S (CST, Dallas, TX) ' UTC-5: R (EST, New York, NY) ' UTC-4: Q (Halifax, Nova Scotia ' UTC-3: P (Buenos Aires, Argentina) ' UTC-2: O (Godthab, Greenland) ' UTC-1: N (Azores) ' UTC+-0: Z (Zulu time) ' UTC+1: A (France) ' UTC+2: B (Athens, Greece) ' UTC+3: C (Arab Standard Time, Iraq, Bahrain, Kuwait, Saudi Arabia, Yemen, Qatar) ' ' UTC+4: D (Used for Moscow, Russia and Afghanistan, however Afghanistan is technically +4:30 from UTC) ' ' UTC+5: E (Pakistan, Kazakhstan, Tajikistan, Uzbekistan and Turkmenistan) ' UTC+6: F (Bangladesh) ' UTC+7: G (Thailand) ' UTC+8: H (Beijing, China) ' UTC+9: I (Tokyo, Australia) ' UTC+10: K (Brisbane, Australia) ' UTC+11: L (Sydney, Australia) ' UTC+12: M (Wellington, New Zealand)