subject:"Calendar"

Re: [optimization] calendar week ISO 8601 / DIN 1355

2010-03-30 Thread Robert Cole


Malte and Sarah:
This should work for people who have PHP installed:
 on mouseUp
put "php -r " & quote & "echo date('W',  
mktime(0,0,0,3,15,2010));" & quote into tPHPcommand

put shell(tPHPcommand) into field "Test Results"
 end mouseUp
FYI,
Bob

On Mon, 29 Mar 2010 07:36:33 Sarah Reichelt   
wrote:


I haven't checked out your function yet Malte, but my DateTime library
<http://www.troz.net/rev/stacks/DateTime.rev>
has a weekNumISO() function contributed by the late, great Eric  
Chatonet.


Cheers,
Sarah

On Mon, Mar 29, 2010 at 6:52 AM, Malte Pfaff-Brill > wrote:

Hi all,
I needed to calculate the calendar week from a given date (as we do  
it in germany and I think also in the rest of europe).
I quickly hacked together a function implementing some of the info  
found here: http://en.wikipedia.org/wiki/ISO_8601#Week_dates
If anyone has any pointers on how to make this better, I´d  
appreciate input. I hope if anyone needs to implement calendar weeks

later this might be a helpful thread.

Cheers,

Malte


___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: [optimization] calendar week ISO 8601 / DIN 1355

2010-03-28 Thread Sarah Reichelt

On Mon, Mar 29, 2010 at 8:00 AM, Malte Pfaff-Brill
 wrote:
> Thanks for pointing me to your lib Sarah. Lots of useful stuff in there. If 
> only gems like these were a little easier to find. *sigh*

I'm terrible at putting things on RevOnline - I have a publishing
system set up for my own site so it's easy, but RevOnline seems to be
problematic.
I would love it if RevOnline allowed you to publish links instead of
complete stacks - that way I could create a link to a stack on my
site, and any updates would only have to be done in one place.

Cheers,
Sarah
___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: [optimization] calendar week ISO 8601 / DIN 1355

2010-03-28 Thread Malte Pfaff-Brill

Thanks for pointing me to your lib Sarah. Lots of useful stuff in there. If 
only gems like these were a little easier to find. *sigh*

Cheers,

Malte


___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: [optimization] calendar week ISO 8601 / DIN 1355

2010-03-28 Thread Sarah Reichelt

I haven't checked out your function yet Malte, but my DateTime library
<http://www.troz.net/rev/stacks/DateTime.rev>
has a weekNumISO() function contributed by the late, great Eric Chatonet.

Cheers,
Sarah


On Mon, Mar 29, 2010 at 6:52 AM, Malte Pfaff-Brill
 wrote:
> Hi all,
> I needed to calculate the calendar week from a given date (as we do it in 
> germany and I think also in the rest of europe).
> I quickly hacked together a function implementing some of the info found 
> here: http://en.wikipedia.org/wiki/ISO_8601#Week_dates
> If anyone has any pointers on how to make this better, I´d appreciate input. 
> I hope if anyone needs to implement calendar weeks
> later this might be a helpful thread.
>
> Cheers,
>
> Malte
___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

[optimization] calendar week ISO 8601 / DIN 1355

2010-03-28 Thread Malte Pfaff-Brill

Hi all,
I needed to calculate the calendar week from a given date (as we do it in 
germany and I think also in the rest of europe). 
I quickly hacked together a function implementing some of the info found here: 
http://en.wikipedia.org/wiki/ISO_8601#Week_dates
If anyone has any pointers on how to make this better, I´d appreciate input. I 
hope if anyone needs to implement calendar weeks
later this might be a helpful thread.

Cheers,

Malte

/* function calendar week 
@param1 = date in english format
@return = the calendar week in ISO 8601 format
*/

function calendarWeekISO8601 pEnglishdate
   -- Calendar week as described in ISO 8601 / DIN 1355
   local 
tFirstMonday,tDate,tCurrentday,tLastYear,tLastFirstJan,tLastThrityFirstDec
   put pEnglishDate into tDate
   -- convert to date items, to get  year in question
   convert tDate from english date to dateItems
   -- 01/04 is ALWAYS in 1st week in year   
   put "01/04/"&item 1 of tDate into tFirstMonday
   convert tFirstMonday from english date to dateItems
   -- if item -1 = 1, we got a sunday. We need to find first monday
   if item -1 of tFirstMonday = 1 then 
  put 8 into tCurrentday
   else
  put item -1 of tFirstMonday into tCurrentday
   end if
   put tCurrentday - 1 into tCurrentday
   -- get first monday in year
   if tCurrentday>1 then
  subtract (tCurrentday -1) from item 3 of tFirstMonday
   end if
   convert tFirstMonday from dateItems to seconds
   convert pEnglishDate from english date to seconds
   -- if the passed date is smaller than the first calendar weeks monday, the 
date 
   -- is within the last week of the previous year
   if tFirstMonday > pEnglishDate then
  -- check for number of weeks in last year
  put item 1 of tDate -1 into tLastYear
  -- get day of last years 1st January
  put "1/1"&tLastYear into tLastFirstJan
  convert tLastFirstJan to dateItems
  put item -1 of tLastFirstJan into tLastFirstJan
  -- get day of last years 1st January
  put "12/31"&tLastYear into tLastThrityFirstDec
  convert tLastThrityFirstDec to dateItems
  put item -1 of tLastFirstJan into tLastThrityFirstDec
  -- check if it is a leap year first
  if (tLastYear mod 400 = 0) or (tLastYear mod 100 <> 0) and (tLastYear mod 
4 = 0) then
 -- leap year!
 -- if a leap year starts on a wed and ends on a thurs, the year owns 
53 weeks
 if tLastFirstJan=4 and tLastThrityFirstDec=5 then
return tLastYear&"-W53"
 else
return tLastYear&"-W52"
 end if
  else
  -- no leap year!
 -- if a regular year starts and ends on a thurs, the year owns 53 weeks
 if tLastFirstJan=5 and tLastThrityFirstDec=5 then
return tLastYear&"-W53"
 else
return tLastYear&"-W52"
 end if
  end if
   else
  return item 1 of tDate&"-W"&format("%02s",(pEnglishDate-tFirstMonday) div 
604800 + 1)
   end if
end calendarWeekISO8601___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: an annual calendar somewhere? (done)

2010-03-02 Thread Andre.Bisseret


Bonjour,

Thanks a lot to Robert, Zrypt, Richard, Bernd who provided very  
helpful material and the others who chimed in helping to push along :-)


I have now an annual calendar with 12 lines, one for each month.
The days of weeks are in a separate field at the top of the display  
(not repeated for each month)
The months are also in a separate field on the left of the main field  
which displays the day numbers.

The year is in a separate field too at the top left.

So it is easy to select any range of days either from a single month  
or across two (or more) months.


Oh! happy day ;-))

Best regards from Grenoble

André
 the script ---

-- 03/2010
-- first script from Richard Gaskin, completed and improved by Zryip  
theSlug. (comments are from them)
-- I only adapted it to my needs (months in lines instead of tables;  
several fields instead of a single one)


on mouseUp
   set useSystemDate to true
   put empty into fld "calendar field"
   put empty into fld "chMonths"
   put empty into fld "weekDayNames"
   createLineOfDays
   ask "Quelle année ?" with last word of the abbrev system date
   put it into yearToMake
   put yearToMake into fld "theYear"
   put createDate(yearToMake,1,1) into tStartDate -- Create the  
January, 1 2010 in your local language system
   repeat with tMonthNumber = 0 to 11 -- Create months for January  
(1) to December (12)
  put Cal(addToDate(tStartDate,0,tMonthNumber,0),"Monday") & cr  
after fld "calendar field"

   end repeat
end mouseUp

on createLineOfDays --to be put in a separate field at the top
   -- Make day names header: -- in AWEEK
   put "Monday" into pFirstDayWeek
   put weekdayNamesList(pFirstDayWeek) into tWeekdayNames
   put empty into aWeek
   put empty into fourWeeks
   repeat for each line tDay in tWeekdayNames
  put char 1 to 2 of tDay &" " after aWeek --after tCal
   end repeat
   -- Make 5 weeks + lu ma
   repeat 5
  put aWeek & tab after fourWeeks
   end repeat
   put fourWeeks & "lu ma" into fld "weekDayNames"
end createLineOfDays

function Cal pDate, pFirstDayWeek
  set useSystemDate to true
   -- Returns a plain-text calendar representation of
   -- the month the date specified in pDate is in.
   -- If no month is provided it uses the current
   -- month. Month and day names use the user's current
   -- system settings.
   --
   -- Use current date as default:
   if pDate is empty then put the date into pDate
   if pFirstDayWeek is empty then put "Sunday" into pFirstDayWeek
   -- Verify date is valid:
   convert pDate to dateitems
   if the result is not empty then return "Error: "& the result
   --
   put empty into tCal
   --
   -- Make month/year header:
   put item 1 of pDate into tYear
   put item 2 of pDate into tMonthNumber
   put line (tMonthNumber) of the monthNames into tMonth
   --put tMonth && tYear into tHeader
   --put tHeader & cr after fld "chMonths"
   put tMonth & cr after fld "chMonths" -- in an extra field on the  
left

   --
   -- Pad beginning with empty days:
   put createDate(tYear,tMonthNumber,1) into tStartDay
   convert tStartDay to dateitems
   get last item of tStartDay
   if (pFirstDayWeek is "Monday") then
  if (it = 1) then
 put 6 into tPad -- fix the case that the day is Sunday  
(value1) - 2 = - 1

  else
 put (it - 2) into tPad
  end if
   else
  put (it - 1) into tPad
   end if

   repeat for tPad
  put "   " after tCal
   end repeat

   put createDate(tYear,tMonthNumber,1) into tStartDay -- create a  
date in the system's local language


   -- Walk through 31 days, stopping when we reach a
   -- number not valid for the month we're doing:

   repeat with i = 1 to dayOf(addToDate(tStartDay,0,1,-1))
  -- the end value is the number of days in the month. To obtain  
the last date of a month, add 1 month and subtract one

  -- day to the first day of a month
  -- Get day number:
  put createDate(tYear,tMonthNumber,i) into tDate
  convert tDate to dateitems
  if the result is not empty then exit repeat
  put item 3 of tDate into tDayNum
  --
  -- Pad it and add it:
  if len(i) = 1 then put " " before i
  put i &" " after tCal
  --
  -- Go to next line if we're at the end of the week:
  if last item of tDate = lastDayOfWeek(pFirstDayWeek) then put  
tab after tCal --cr after tCal

   end repeat
   --
   -- Send it to the caller:
   return tCal
end Cal

function weekdayNamesList pFirstDay
  set useSystemDate to true
  put the abbr weekdayNames into tWeekdayNames
  if pFirstDay is "Monday" then
 put cr&first line of tWeekdayNames after tWeekdayNames
 delete first line of tWeekdayNames
  end if
  return tWeekdayNames
end weekdayNamesLis

Re: an annual calendar somewhere?

2010-03-01 Thread Andre.Bisseret



Le 1 mars 10 à 12:06, BNig a écrit :



André,

I haven't tried to select a range of dates, yet.
I tried but seems not possible in a table field (?)


in the property inspector for the field of stack "calendar lines" go  
to
tables, unselect crevTable, than in the basic properties make shure  
lock
text is true and traversal on is checked. Then you can select text  
in the

field.
regards
Bernd
--

Ah! yeesss!  that is working well :-)) (am learning every day!)

Thank you very much Bernd

André

___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: an annual calendar somewhere?

2010-03-01 Thread BNig


André,
 >I haven't tried to select a range of dates, yet.
>I tried but seems not possible in a table field (?)

in the property inspector for the field of stack "calendar lines" go to
tables, unselect crevTable, than in the basic properties make shure lock
text is true and traversal on is checked. Then you can select text in the
field.
regards
Bernd
-- 
View this message in context: 
http://n4.nabble.com/an-annual-calendar-somewhere-tp1569025p1573418.html
Sent from the Revolution - User mailing list archive at Nabble.com.
___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: an annual calendar somewhere?

2010-03-01 Thread Andre.Bisseret


Bonjour Robert,

Le 28 févr. 10 à 23:26, Robert Cole a écrit :


André:
I continue to have fun with your calendar question.

Am very glad to hear that :-)
I just uploaded another stack called "Calendar Lines" that produces  
a one-line-per-month format.

I downloaded it; really nice look :-)
It also allows you to transpose the calendar into a one-column-per- 
month.

Yeess! that's very good: I am still hesitating between the two formats.
I wrote a transpose function that uses the split command and the  
extents function.
I am going to study your script : I still have to get familiar with  
these functions, and more familiar with arrays (I began to use them a  
bit when Trevor' data grid appears;  but I must confess that, up to  
now, I use them only when it is very necessary ;-)



I haven't tried to select a range of dates, yet.

I tried but seems not possible in a table field (?)
Up to now, I am using a simple text field (with tab stops). Then I can  
select ranges of dates; but I am going to suppress the months'names at  
the beginning of the lines and to put them in an extra field on the  
left of the main field. So that I be able to select ranges including  
last days of one month and first days of the following month without  
including the name of the second month.


Thanks a lot for your attention and your Calendar Lines"

Best regards from Grenoble

André




___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: an annual calendar somewhere?

2010-03-01 Thread Andre.Bisseret


Bonjour Zryip,

Le 27 févr. 10 à 20:21, zryip theSlug a écrit :
…
…

To fix this bug, replace the pad part by this new portion:

   -- Pad beginning with empty days:
  put createDate(tYear,tMonthNumber,1) into tStartDay
  convert tStartDay to dateitems
  get last item of tStartDay
  if (pFirstDayWeek is "Monday") then
 if (it = 1) then
put 6 into tPad -- fix the case that the day is Sunday (value
1) - 2 = - 1
 else
put (it - 2) into tPad
 end if
  else
 put (it - 1) into tPad
  end if

  repeat for tPad
put "   " after tCal
  end repeat


Nice! all is OK now
…
…

Now a little trick with my code. It could give you free times if you
have missed it ;)


You are really considerate ;-))


How to create an easy loop to add months:

put createDate(2010,1,1) into tStartDate -- Create the January, 1 2010
in your local language system
repeat with tMonthNumber = 0 to 11 -- Create months for January (1) to
December (12)
 put cal(addToDate(tStartDate,0,tMonthNumber,0),"Monday") & cr
after fld "MyField"
end repeat

Thanks a lot. That's working like a charm. The 12 months are created  
very fast. Magnifique! (table or lines as well :-))


I am doing trials to improve my "in lines" layout : I think I will  
keep only one line for the days of weeks at the top of the field and I  
will isolate the months' names in an extra field on the left (to avoid  
that a month'name be selected when dragging from the end of a month to  
the beginning of the following one.



Have a nice week

Best regards from Grenoble

André

___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Re: an annual calendar somewhere?

2010-02-28 Thread Robert Cole

André:
I continue to have fun with your calendar question.
I just uploaded another stack called "Calendar Lines" that produces a
one-line-per-month format.
It also allows you to transpose the calendar into a one-column-per-
month.
I wrote a transpose function that uses the split command and the
extents function.

I haven't tried to select a range of dates, yet.
If this is of interest, download "Calendar Lines" from RevOnline and
take a look.

Bob

--
Thank you much Bob for this nice calendar.
Also, thanks to the others who added comments, results of trials and
elaborated.
I was not waiting for such a "rush" on this topic ;-))

However, my problem is not solved with this kind of layout. Mostly I
need

that the user be able to highlight periods of the year.
For example periods when a holidays' house has been rented (or is plan
to be

rented).

With the present layout that can't be done. One can't drag (in order to
highlight) from jan. 2 to jan 9 for example, or from jan. 30 to feb 6
etc

That why I am looking for an annual calendar with 12 rows/lines, one for
each month ( or might be 12 columns).

André, if you need some examples have a look to the lab experiment 009

http://www.aslugontheroad.co.cc/index.php?option=com_content&view=article&id=68:experiment-009-playing-with-the-david-becks-calendar-lib&catid=35:lab&Itemid=53
HTH,
--
-Zryip TheSlug- wish you the best! 8)
http://www.aslugontheroad.co.cc

___
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

1 2 >

1 - 100 of 182 matches

Mail list logo