Advertisement
Rich4rd

Date Time Locales With Menu

May 19th, 2019
699
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #SingleInstance Force
  2. ;Date Time with Language Locales
  3. F6::
  4. :C*:TD::
  5. ;Menu,MenuName,Add,Language Date Time Locale,Function
  6. Menu,Date,Add,English Date Time L1033,USA
  7. Menu,Date,Add,Hebrew Date Time L1037,Israel
  8. Menu,Date,Add,Greek Date Time L1032,Greece
  9. Menu,Date,Add,Arabic Date Time L1025,Arabic
  10. Menu,Date,Add,German Date Time L1031,Germany
  11. Menu,Date,Add,French Date Time L1036,France
  12. Menu,Date,Add,Italian Date Time L1040,Italy
  13. Menu,Date,Add,Spanish Date Time L1034,Spain
  14. Menu,Date,Add,Japanese Date Time L1041,Japan
  15. Menu,Date,Add,Armenian Date Time L1067,Armenia
  16. Menu,Date,Add,Russian Date Time L1049,Russia
  17. Menu,Date,Add,
  18. Menu,Date,Add,After 5 days,after5days
  19. Menu,Date,Add,After 7 days,after7days
  20. Menu,Date,Add,After 105 days,after105days
  21. Menu,Date,Add,After 365 days,after365days
  22. Menu,Date,Show
  23. return
  24. Function(Item,Index,Menu){
  25.     MsgBox,You Clicked: %Item% Under: %Menu%
  26. }
  27. return
  28.  
  29. ;English(United States) Date Time Locale
  30. USA:
  31. Time := A_Now
  32. FormatTime,USA,%time% L1033, H:mmmm:ssss dddd d MMMM yyyy
  33. SendInput, %USA%
  34. return
  35.  
  36. ;Hebrew Date Time Locale
  37. Israel:
  38. Time := A_Now
  39. FormatTime,Israel,%time% L1037, H:mmmm:ssss dddd d MMMM yyyy
  40. SendInput, %Israel%
  41. return
  42.  
  43. ;Greek Date Time Locale
  44. Greece:
  45. Time := A_Now
  46. FormatTime,Greece,%time% L1032, H:mmmm:ssss dddd d MMMM yyyy
  47. SendInput, %Greece%
  48. return
  49.  
  50. ;Arabic(Saudi Arabia) Date Time Locale
  51. Arabic:
  52. Time := A_Now
  53. FormatTime,Arabic,%time% L1025, H:mmmm:ssss dddd d MMMM yyyy
  54. SendInput, %Arabic%
  55. return
  56.  
  57. ;German Date Time Locale
  58. Germany:
  59. Time := A_Now
  60. FormatTime,Germany,%time% L1031, H:mmmm:ssss dddd d MMMM yyyy
  61. SendInput, %Germany%
  62. return
  63.  
  64. ;French Date Time Locale
  65. France:
  66. Time := A_Now
  67. FormatTime,France,%time% L1036, H:mmmm:ssss dddd d MMMM yyyy
  68. SendInput, %France%
  69. return
  70.  
  71. ;Italian Date Time Locale
  72. Italy:
  73. Time := A_Now
  74. FormatTime,Italy,%time% L1040, H:mmmm:ssss dddd d MMMM yyyy
  75. SendInput, %Italy%
  76. return
  77.  
  78. ;Spanish Date Time Locale
  79. Spain:
  80. Time := A_Now
  81. FormatTime,Spain,%time% L1034, H:mmmm:ssss dddd d MMMM yyyy
  82. SendInput, %Spain%
  83. return
  84.  
  85. ;Japanese Date Time Locale
  86. Japan:
  87. Time := A_Now
  88. FormatTime,Japan,%time% L1041, H:mmmm:ssss dddd d MMMM yyyy
  89. SendInput, %Japan%
  90. return
  91.  
  92. ;Armenian Date Time Locale
  93. Armenia:
  94. Time := A_Now
  95. FormatTime,Armenia,%time% L1067, H:mmmm:ssss dddd d MMMM yyyy
  96. SendInput, %Armenia%
  97. return
  98.  
  99. ;Russian Date Time Locale
  100. Russia:
  101. Time := A_Now
  102. FormatTime,Russia,%time% L1049, H:mmmm:ssss dddd d MMMM yyyy
  103. SendInput, %Russia%
  104. return
  105.  
  106. ;After days
  107. after5days:
  108. Tomorrowdate =
  109. Tomorrowdate += 5, Days
  110. FormatTime, Tomorrowdate, % Tomorrowdate,HH:mm, dddd MMMM d, yyyy
  111. SendInput %TomorrowDate%
  112. return
  113.  
  114. after7days:
  115. Tomorrowdate =
  116. Tomorrowdate += 7, Days
  117. FormatTime, Tomorrowdate, % Tomorrowdate,HH:mm, dddd MMMM d, yyyy
  118. SendInput %TomorrowDate%
  119. return
  120.  
  121. after105days:
  122. Tomorrowdate =
  123. Tomorrowdate += 105, Days
  124. FormatTime, Tomorrowdate, % Tomorrowdate,HH:mm, dddd MMMM d, yyyy
  125. SendInput %TomorrowDate%
  126. return
  127.  
  128. after365days:
  129. Tomorrowdate =
  130. Tomorrowdate += 365, Days
  131. FormatTime, Tomorrowdate, % Tomorrowdate,HH:mm, dddd MMMM d, yyyy
  132. SendInput %TomorrowDate%
  133. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement