User:Very Keynes
// // 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");
}
}