|
6
|
DonationCoder.com Software / Post New Requests Here / Insert future or past date as text
|
on: June 14, 2008, 03:23:28 PM
|
|
Hi
My request follows on from the previous one.
I have adapted some programming (I think Kartal put it forward) so that I can put today's date in yymmdd format as the first part of name of a new file.
:*:yz:: FormatTime, CurrentDateTime,, yyMMdd SendInput %CurrentDateTime% return
It sits as part of my universal autocorrect file, so is there for me to us, by pressing "yz"
In Word, I have used a great macro that lets you enter future or past dates, by entering the number of days ahead, or past you want to have a date for - "7" or "-7", for example - in a dialog box that comes up when you call up the macro
******************************** Sub InsertFutureDate() ' Written by Graham Mayor and posted on the word.docmanagement newsgroup in ' March 2000 ' Inserts a future date in a document - note that this is not a field ' Some style revisions and error handler by Charles Kenyon ' Dim Message As String Dim Mask As String Dim Title As String Dim Default As String Dim Date1 As String Dim MyValue As Variant Dim MyText As String Dim Var1 As String Dim Var2 As String Dim Var3 As String Dim Var4 As String Dim Var5 As String Dim Var6 As String Dim Var7 As String Dim Var8 As String '
'Date mask below includes non-breaking spaces (Chr(160)) Mask = "d" & Chr(160) & "MMMM" & Chr(160) & "yyyy" ' Set Date format Default = "14" ' Set default. Title = "Plus or minus date starting with " & Format(Date, Mask) Date1 = Format(Date, Mask) Var1 = "Enter number of days by which to vary above date. " _ & "The number entered will be added to " Var2 = Format(Date + Default, Mask) ' Today plus default (14) Var3 = Format(Date - Default, Mask) ' Today minus default (14) Var4 = ". The default (" Var5 = ") will produce the date " Var6 = ". Minus (-" Var7 = ". Entering '0' (zero) will insert " Var8 = " (today). Click cancel to quit." MyText = Var1 & Date1 & Var4 & Default & Var5 & Var2 & Var6 _ & Default & Var5 & Var3 & Var7 & Date1 & Var8 ' ' Display InputBox and get number of days GetInput: MyValue = InputBox(MyText, Title, Default) ' If MyValue = "" Then End 'quit subroutine End If ' On Error GoTo Oops 'just in case Selection.InsertBefore Format((Date + MyValue), Mask) Selection.Collapse (wdCollapseEnd) End 'End subroutine ' Oops: ' error handler in case user types something other than a number ' MsgBox Prompt:="Sorry, only a number will work, please try again.", _ Buttons:=vbExclamation, _ Title:="A number is needed here." GoTo GetInput End Sub *******************************
It would be great if there could be something like it in AHK
Will
|
|
|
|
|
8
|
DonationCoder.com Software / Skrommel's Software / Re: Clipstep & Clipseek
|
on: December 31, 2007, 11:22:00 AM
|
|
Hi,
I was just looking at skrommel's TimeStamp program which you have been enhancing.
I'd like to have to hand two sorts of dates
1. year-month-day, as the first part of what I name files. e.g. 071231 let autoinsurer (that is, yyMMdd - 6 keystrokes)
2. day of the week, then day month and year, to put the date (I'm not N. American) into letters. e.g. Monday 31 December 2007 (that is, Dddd d Mmmm yyyy - 23 keystrokes for that date, inc spacebar hits)
Quick thoughts a. If all I need is to copy a few keystrokes, each day, I suppose I do not need TimeStamp. Alls I need do is write them out once and copy them to Clipstep b. ...but might it be possible to add this feature to Clipstep? You have added a feast of features (which I have yet to absorb, I admit) and I just wonder if I could add these, as clip 1 and clip 2, there each day for me, c. I notice that TimeStamp does as it should in letting you click on the date you want, in the app, then right mouse click and use paste to insert the date. What it will not do is get Clipstep to recognise the copy-to-clipboard command that TimeStamp did so that you can paste by using the control-v command, which is what I would do whereever possible. Is this an oversight in the way Clipstep is written
|
|
|
|
|
12
|
DonationCoder.com Software / Post New Requests Here / IDEA holding down key to give Capital Letter
|
on: October 17, 2007, 10:50:46 AM
|
|
Hi,
Love this site!
It's rather nice on the Blackberry to be able to get a capital letter just by holding a key down for a little longer than usual. And since I nnnnnnnnnnever nnnnnnnnneed to be able to get multiples of a letter, which is what holding a key down gets me at the moment, might be fun to have it on a PC, too.
Regards Will
|
|
|
|
|