Re: quicken dates
I'll email it to you off-list On Mon, Oct 16, 2017 at 4:45 PM, Bob Sneidar via use-livecode < use-livecode@lists.runrev.com> wrote: > Thanks Mike! I have something similar but limited in scope, where I can > type in yesterday or tomorrow ot today and get the respective date. I will > incorporate your method for all my date fields! Unfortunately there are a > TON of line wrapping errors introduced by your pasted code. I'll have to > sus it all out. > > Bob S > > > > On Oct 16, 2017, at 11:16 , Mike Kerner via use-livecode < > use-livecode@lists.runrev.com> wrote: > > > > Way back in the day, Quicken allowed all kinds of shenanigans with dates > > It allowed a variety of delimiters > > It allowed pseudo-dates: > > 20 -- 20th of the current month > > 10/20 -- 10/20/current year > > + -- tomorrow > > m -- first of this month > > h -- last of this month > > etc. > > > > I really like this, because it makes it much easier than trying to look > at > > a calendar all the time, so I wrote my own version, that expands on the > > idea: > > > > function quickenDate what > > /* > > Returns current date if sent an empty string > > Returns empty if can't figure out what "what" is supposed to be > > > > Delimiter can be ".", "/", ";", or comma > > Date can be in m/d/y, m/d, or just d format > > Also accepts (upper or lower case) > > T - (T)oday > > M - First day of (M)onth > > H - Last day of mont(H) > > W - First day of (W)eek > > K - Last day of wee(K) > > Y - First day of (Y)ear > > R - Last day of yea(R) > > + - tomorrow > > +x, where x is an integer, x days from today > > - - yesterday > > -x where x is an integer, x days before today > > */ > > > > if what is empty then return the short date # you got a better idea? > > > > put the short date into currentDateInDateItems > > convert currentDateInDateItems to dateItems #y,m,d,h(24 > > format),m,s,daynum (0 sun, 6 sat) > > put item 1 of currentDateInDateItems into currentYear > > put item 2 of currentDateInDateItems into currentMonth > > > > if what="T" then #today > > put the short date into what > > else if what="Y" then #first day of year > > put "01/01/"¤tYear into what > > else if what="R" then #last day of year > > put "12/31/"¤tYear into what > > else if what="M" then # first of month > > put currentMonth&slash&"01"&slash¤tYear into what > > else if what="H" then # last day of month > > if currentMonth is 12 then > > put "12/31/"¤tYear into what > > else #not 12, # the easiest way to do this math is to get midnight > on > > the first day of the following month and then move back a second and let > LC > > do the math on what the date is > > # since otherwise we have to figure out the 30 days > > have september, blah, blah, blah, and leap years, blah, blah, blah. > > add 1 to item 2 of currentDateInDateItems #next month > > put "0" into item 3 of currentDateInDateItems #I love dateItems. > > How to figure out the last day of this month? Go to first day of next > > month and subtract 1, (making it a 0, e.g. 5/0/17 is 4/30/17) > > put currentDateInDateItems into what > > end if #currentMonth is 12 > > else if what is "W" then #first day of week #sunday is first day of > week > > put last item of currentDateInDateItems into dayNumber > > subtract (dayNumber-1) from item 3 of currentDateInDateItems > > put currentDateInDateItems into what > > else if what is "K" then #last day of week #saturday is last day of > week > > put last item of currentDateInDateItems into dayNumber > > add (7-dayNumber) to item 3 of currentDateInDateItems > > put currentDateInDateItems into what > > convert what to short date > > else if first char of what is "+" then #at least tomorrow, but if > > a nuber follows, then x days after today > > delete first char of what # "+" > > if what is empty then put 1 into what #"+" is tomorrow, i.e. +1 > > add what to item 3 of currentDateInDateItems > > put currentDateInDateItems into what > > else if first char of what is "-" then # at least yesterday, or if a > > number follows, then x days before today > > delete first char of what #"-" > > if what is empty then put 1 into what #"-" is yesterday, i.e. -1 > > subtract what from item 3 of currentDateInDateItems > > put currentDateInDateItems into what > > else # a date-ish string could be a date only or a month and a date, or > > a month and a date and a year > > # > slash, a period, or a space> > > if what contains ";" then replace ";" with slash in what > > if what contains space then replace space with slash in what > > if what contains "." then replace "." with slash in what > > if what contains comma then replace comma with slash in what > > # and, if what doesn't contain any of those, comma will be the > > delimiter > > # > slash, a p
Re: quicken dates
Thanks Mike! I have something similar but limited in scope, where I can type in yesterday or tomorrow ot today and get the respective date. I will incorporate your method for all my date fields! Unfortunately there are a TON of line wrapping errors introduced by your pasted code. I'll have to sus it all out. Bob S > On Oct 16, 2017, at 11:16 , Mike Kerner via use-livecode > wrote: > > Way back in the day, Quicken allowed all kinds of shenanigans with dates > It allowed a variety of delimiters > It allowed pseudo-dates: > 20 -- 20th of the current month > 10/20 -- 10/20/current year > + -- tomorrow > m -- first of this month > h -- last of this month > etc. > > I really like this, because it makes it much easier than trying to look at > a calendar all the time, so I wrote my own version, that expands on the > idea: > > function quickenDate what > /* > Returns current date if sent an empty string > Returns empty if can't figure out what "what" is supposed to be > > Delimiter can be ".", "/", ";", or comma > Date can be in m/d/y, m/d, or just d format > Also accepts (upper or lower case) > T - (T)oday > M - First day of (M)onth > H - Last day of mont(H) > W - First day of (W)eek > K - Last day of wee(K) > Y - First day of (Y)ear > R - Last day of yea(R) > + - tomorrow > +x, where x is an integer, x days from today > - - yesterday > -x where x is an integer, x days before today > */ > > if what is empty then return the short date # you got a better idea? > > put the short date into currentDateInDateItems > convert currentDateInDateItems to dateItems #y,m,d,h(24 > format),m,s,daynum (0 sun, 6 sat) > put item 1 of currentDateInDateItems into currentYear > put item 2 of currentDateInDateItems into currentMonth > > if what="T" then #today > put the short date into what > else if what="Y" then #first day of year > put "01/01/"¤tYear into what > else if what="R" then #last day of year > put "12/31/"¤tYear into what > else if what="M" then # first of month > put currentMonth&slash&"01"&slash¤tYear into what > else if what="H" then # last day of month > if currentMonth is 12 then > put "12/31/"¤tYear into what > else #not 12, # the easiest way to do this math is to get midnight on > the first day of the following month and then move back a second and let LC > do the math on what the date is > # since otherwise we have to figure out the 30 days > have september, blah, blah, blah, and leap years, blah, blah, blah. > add 1 to item 2 of currentDateInDateItems #next month > put "0" into item 3 of currentDateInDateItems #I love dateItems. > How to figure out the last day of this month? Go to first day of next > month and subtract 1, (making it a 0, e.g. 5/0/17 is 4/30/17) > put currentDateInDateItems into what > end if #currentMonth is 12 > else if what is "W" then #first day of week #sunday is first day of week > put last item of currentDateInDateItems into dayNumber > subtract (dayNumber-1) from item 3 of currentDateInDateItems > put currentDateInDateItems into what > else if what is "K" then #last day of week #saturday is last day of week > put last item of currentDateInDateItems into dayNumber > add (7-dayNumber) to item 3 of currentDateInDateItems > put currentDateInDateItems into what > convert what to short date > else if first char of what is "+" then #at least tomorrow, but if > a nuber follows, then x days after today > delete first char of what # "+" > if what is empty then put 1 into what #"+" is tomorrow, i.e. +1 > add what to item 3 of currentDateInDateItems > put currentDateInDateItems into what > else if first char of what is "-" then # at least yesterday, or if a > number follows, then x days before today > delete first char of what #"-" > if what is empty then put 1 into what #"-" is yesterday, i.e. -1 > subtract what from item 3 of currentDateInDateItems > put currentDateInDateItems into what > else # a date-ish string could be a date only or a month and a date, or > a month and a date and a year > # slash, a period, or a space> > if what contains ";" then replace ";" with slash in what > if what contains space then replace space with slash in what > if what contains "." then replace "." with slash in what > if what contains comma then replace comma with slash in what > # and, if what doesn't contain any of those, comma will be the > delimiter > # slash, a period, or a space> > > set the itemDelimiter to slash > > # > if the number of items in what is not 3 then put slash¤tYear > after what # try adding a year, first > if the number of items in what is not 3 then put currentMonth&slash > before what # try adding the month, next > # > > if what is not a date then put empty into what #error > en
quicken dates
Way back in the day, Quicken allowed all kinds of shenanigans with dates It allowed a variety of delimiters It allowed pseudo-dates: 20 -- 20th of the current month 10/20 -- 10/20/current year + -- tomorrow m -- first of this month h -- last of this month etc. I really like this, because it makes it much easier than trying to look at a calendar all the time, so I wrote my own version, that expands on the idea: function quickenDate what /* Returns current date if sent an empty string Returns empty if can't figure out what "what" is supposed to be Delimiter can be ".", "/", ";", or comma Date can be in m/d/y, m/d, or just d format Also accepts (upper or lower case) T - (T)oday M - First day of (M)onth H - Last day of mont(H) W - First day of (W)eek K - Last day of wee(K) Y - First day of (Y)ear R - Last day of yea(R) + - tomorrow +x, where x is an integer, x days from today - - yesterday -x where x is an integer, x days before today */ if what is empty then return the short date # you got a better idea? put the short date into currentDateInDateItems convert currentDateInDateItems to dateItems #y,m,d,h(24 format),m,s,daynum (0 sun, 6 sat) put item 1 of currentDateInDateItems into currentYear put item 2 of currentDateInDateItems into currentMonth if what="T" then #today put the short date into what else if what="Y" then #first day of year put "01/01/"¤tYear into what else if what="R" then #last day of year put "12/31/"¤tYear into what else if what="M" then # first of month put currentMonth&slash&"01"&slash¤tYear into what else if what="H" then # last day of month if currentMonth is 12 then put "12/31/"¤tYear into what else #not 12, # the easiest way to do this math is to get midnight on the first day of the following month and then move back a second and let LC do the math on what the date is # since otherwise we have to figure out the 30 days have september, blah, blah, blah, and leap years, blah, blah, blah. add 1 to item 2 of currentDateInDateItems #next month put "0" into item 3 of currentDateInDateItems #I love dateItems. How to figure out the last day of this month? Go to first day of next month and subtract 1, (making it a 0, e.g. 5/0/17 is 4/30/17) put currentDateInDateItems into what end if #currentMonth is 12 else if what is "W" then #first day of week #sunday is first day of week put last item of currentDateInDateItems into dayNumber subtract (dayNumber-1) from item 3 of currentDateInDateItems put currentDateInDateItems into what else if what is "K" then #last day of week #saturday is last day of week put last item of currentDateInDateItems into dayNumber add (7-dayNumber) to item 3 of currentDateInDateItems put currentDateInDateItems into what convert what to short date else if first char of what is "+" then #at least tomorrow, but if a nuber follows, then x days after today delete first char of what # "+" if what is empty then put 1 into what #"+" is tomorrow, i.e. +1 add what to item 3 of currentDateInDateItems put currentDateInDateItems into what else if first char of what is "-" then # at least yesterday, or if a number follows, then x days before today delete first char of what #"-" if what is empty then put 1 into what #"-" is yesterday, i.e. -1 subtract what from item 3 of currentDateInDateItems put currentDateInDateItems into what else # a date-ish string could be a date only or a month and a date, or a month and a date and a year # if what contains ";" then replace ";" with slash in what if what contains space then replace space with slash in what if what contains "." then replace "." with slash in what if what contains comma then replace comma with slash in what # and, if what doesn't contain any of those, comma will be the delimiter # set the itemDelimiter to slash # if the number of items in what is not 3 then put slash¤tYear after what # try adding a year, first if the number of items in what is not 3 then put currentMonth&slash before what # try adding the month, next # if what is not a date then put empty into what #error end if #what="T" convert what to short date return what end quickenDate -- On the first day, God created the heavens and the Earth On the second day, God created the oceans. On the third day, God put the animals on hold for a few hours, and did a little diving. And God said, "This is good." ___ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
