User:Very Keynes
Jump to navigation
Jump to search
//
// dbLib.Date.Time
//
// Function: integer dbDateTime(string date, float time)
// Compresses a Date and Time into a single 32bit Integer value
//
// Range of dates supported is 2000-03-01 to 2058-12-16
//
// Concieved as a DataType for VK-DBMS it allows for Compact staorage
// of a DateTime String in a form that allows for Numerical compares
// and easy sorting of data by Date and Time, as well as making other
// Date Time Functions such as Day of Week and Differance between two
// Dates perform as simple Numerical Computations.
//
// Input Formats Supported:
//
// LSL functions useualy supply the date in string format and the
// time as float. This function is compatable with the following:
//
// A string formated as Date and Time such as the output of
// llGetTimeStamp() - "YYYY-MM-DDThh:mm:ss.ff..fZ"
// Only the date and hh:mm:ss are encoded, the fractions are discarded
// if the time is provided as part of the date string the format is:
//
// dbDateTime(llGetTimeStamp(), 0)
// dbDateTime("2010-08-12T13:04:27", 0)
//
// Valid Seperators are ["-","/","T",":",".",","] so this format works:
//
// dbDateTime("2010/08/12,13:04", 0)
//
// AM/PM format is Also Suppoerted in addition to 24Hour Clock
//
// dbDateTime("2010/08/12,1:04PM", 0)
//
// The Date and Time may also be suppled seperately as a string, float pair
// where the float represents seconds past midnight as provided by LSL.
//
// dbDateTime(llGetDate(), llGetGMTClock())
// dbDateTime(llGetDate(), llGetWallClock())
// dbDateTime{"2010,8,12", 47040.0000)
//
integer dbDateTime(string date, float time)
{
list DateTime = llParseString2List(date, ["-","/","T",":",".",","],[]);
if(llToUpper(llGetSubString(llList2String(DateTime, -1),-2,-1)) == "PM")
DateTime = llListReplaceList(DateTime,[llList2Integer(DateTime,3) + 12], 3, 3);
integer Y = llList2Integer(DateTime,0) - 2000 - ((llList2Integer(DateTime,1) + 9) % 12) / 10;
return (Y * 365 + Y / 4 - Y / 100 + Y/400 + (((llList2Integer(DateTime,1) + 9) % 12) * 306 + 5) / 10 + (llList2Integer(DateTime,2) - 1))
* 100000 + llList2Integer(DateTime,3) * 3600 + llList2Integer(DateTime,4) * 60 + llList2Integer(DateTime,5) + (integer)time;
}
//
// Function: string asDateTime(integer dt)
// Expand 32bit Integer DateTime into a TimeStamp Format String
//
// output format "YYYY-MM-DDThh:mm:ss"
//
string asDateTime(integer dt)
{
integer t = dt % 100000;
integer y = (10000 * (dt / 100000) + 14780)/3652425;
if ((dt / 100000) - (y*365 + y/4 - y/100 + y/400) < 0){y--;}
dt = (dt / 100000) - (y * 365 + y / 4 - y / 100 + y / 400);
list DateTime = [(2000 + y + ((52 + 100 * dt) / 3060 + 2) / 12),
(((52 + 100 * dt) / 3060 + 2) % 12 + 1),
(dt - ((52 + 100 * dt) / 3060 * 306 + 5) / 10 + 1),
((t - (((t - (t % 60)) % 3600) / 60) - (t % 60)) / 3600),
(((t - (t % 60)) % 3600) / 60), (t % 60)];
dt = llGetListLength(DateTime);
while(--dt > 0)if(llStringLength(llList2String(DateTime, dt)) < 2)
DateTime = llListReplaceList(DateTime,["0" + llList2String(DateTime, dt)], dt, dt);
return
llList2String(DateTime,0) + "-" +
llList2String(DateTime,1) + "-" +
llList2String(DateTime,2) + "T" +
llList2String(DateTime,3) + ":" +
llList2String(DateTime,4) + ":" +
llList2String(DateTime,5);
}
//
// Function: integer GetDofW(string date)
// Find the Day of the week for the Date provided
//
// intput may be a date srting or any of the LSL date functions
//
// GetDow("2010/8/12")
// GetDow(llGetTimStamp())
// GetDoW(llGetDate())
//
// output format 0 -> 6 where Sunday = day 0
//
integer GetDoW(string date){return ((3 + (dbDateTime(date,0)/100000))%7);}
//
// Function: integer GetDif(string date1, string date2)
// Find the Differance between the two dates Date1 - Date2
//
// intput may be a date srting "2010/8/12" or any of the LSL date functions
//
// GetDow(llGetDate(), "2009,12,31") = Day Number in Year 2010
// GetDow("2010-12-31", llGetTimStamp()) = Number of days remaining in Year
//
// output format integer in the range 0 --> 21474
// being the date diferance (2058-12-16) - (2000-03-01)
//
integer GetDif(string date1, string date2){return((dbDateTime(date1,0) - dbDateTime(date2,0))/100000);}
//
// Function: string GetSLTimeStamp()
// Return a TimeStamp corrected to PST Time including Daylight Saving
//
string GetSLTimeStamp(){
if (llGetGMTclock() - llGetWallclock() < 0)return asDateTime(dbDateTime(llGetDate(),llGetWallclock()) - 100000);
else return asDateTime(dbDateTime(llGetDate(),llGetWallclock()));}
//
default
{
state_entry()
{
// formating and range tests
llSay(0, "Today & 2:15PM "+asDateTime(dbDateTime(llGetDate()+"T2:15PM",0)));
llSay(0, "Today & 2:15am "+asDateTime(dbDateTime(llGetDate()+"T2:15am",0)));
llSay(0, "minimum date "+asDateTime(0));
llSay(0, "maximum date "+asDateTime(0x7FFFFFFF));
llSay(0, "maximum date Differance "+GetDif(asDateTime(0x7FFFFFFF), asDateTime(0)));
llSay(0, "Overflow "+asDateTime(0x80000000));
llSay(0, "\n\ntouch for inforamtion on the current day\n");
}
touch_start(integer total_number)
{
// examples of use
//
string SLdate = llGetSubString(GetSLTimeStamp(), 0, 9);
llSay(0, "The Date Today in Second Life is " + SLdate);
llSay(0, "The Day of the Week Today is "+llList2String(["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],GetDoW(SLdate)));
llSay(0, "it is day number "+(string)GetDif(SLdate,"2009,12,31")+" of the Year");
llSay(0, "in Week "+(string)(GetDif(SLdate,"2009,12,31")/7) + " of 52");
llSay(0, "with "+(string)GetDif("2010-12-31", SLdate)+" Days left this year\n");
integer UTC = dbDateTime(llGetTimestamp(),0);
llSay(0, (string)UTC + " is the integer Date & Time now in UTC" );
integer PST = dbDateTime(GetSLTimeStamp(),0);
llSay(0, (string)PST + " is the integer Date & Time now in PST" );
llSay(0, llGetSubString(asDateTime(UTC - PST), 11, -1) + " is the time differance\n");
llSay(0, asDateTime(dbDateTime(llGetDate(),llGetGMTclock()))+" is the date and time derived from llGetDate & llGetGMTclock ");
llSay(0, asDateTime(dbDateTime(llGetDate(),llGetWallclock()))+" is the date and time derived from llGetDate & llGetWallclock ");
llSay(0, "llGetTimeStamp() = " + llGetTimestamp());
llSay(0, "GetSLTimeStamp() = " + GetSLTimeStamp() + " with GetSLTimeStamp() both Date and Time are corrected for daylight Saving");
}
}