Script Library: 1238 scripts
 

month.r

REBOL [ Title: "Month" Date: 31-Aug-2002 Name: 'Month Version: 2.0.0 File: %month.r Author: "Andrew Martin" Purpose: "Creates Month functions." eMail: %Al--Bri--xtra--co--nz Web: http://valley.150m.com Example: [ November? 16-Nov-2000 Month? 16-Nov-2002 ] library: [ level: 'advanced platform: none type: 'tool domain: none tested-under: none support: none license: none see-also: none ] ] use [Months Index] [ Months: system/locale/months forall Months [ Index: index? Months system/locale/months do reduce [ to set-word! join first Months "?" 'func [ "Is Date this month?" Date [date!] ] reduce [Index '= 'Date/Month] ] ] ] Month?: func [ "Returns the Month name of the Date." Date [date!] ][ pick system/locale/months Date/month ]
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (Al:Bri:xtra:co:nz)