Extra Date and Time Functions for 5.9 Games

[KVonGit]

 <function name="DateTimeDictionary" parameters="time" type="dictionary"><![CDATA[
   // Based on code from ClockLib
   datetime = NewDictionary()
   time = CurrentDateUTC()
   secondsPerMinute = 60
   secondsPerHour = secondsPerMinute * 60
   secondsPerDay = secondsPerHour * 24
   secondsPerYear = secondsPerDay * 365
   year = 1970
   while (time >= secondsPerYear) {
     time = time - secondsPerYear
     year = year + 1
   }
   dictionary add (datetime, "year", year)
   month = 1
   daysInMonth = 30
   while (time >= (secondsPerDay * daysInMonth)) {
     time = time - (secondsPerDay * daysInMonth)
     month = month + 1
   }
   dictionary add (datetime, "month", month)
   day = time / secondsPerDay
   dictionary add (datetime, "day", day)
   time = time % secondsPerDay
   hour = time / secondsPerHour
   dictionary add (datetime, "hour", hour)
   time = time % secondsPerHour
   minute = time / secondsPerMinute
   dictionary add (datetime, "minute", minute)
   second = time % secondsPerMinute
   dictionary add (datetime, "second", second)
   // Returns a dictionary containing 'year', 'month', 'day', 'hour', and 'second'; all are integers
   return (datetime)
 ]]></function>

  <function name="MonthName" parameters="monthasint" type="string"><![CDATA[
    if (monthasint < 1 or monthasint > 12) {
      error ("MonthName error: Invalid month number '" + monthasint + "'")
      return ("INVALID_MONTH")
    }
    monthnames = Split("January;February;March;April;May;June;July;August;September;October;November;December")
    monthasint = monthasint - 1
    if (monthasint = 0) {
      monthasint = 12
    }
    return (ListItem(monthnames, monthasint))
  ]]></function>

  <function name="DayNameFromInt" parameters="dayasint" type="string"><![CDATA[
    if (dayasint < 1 or dayasint > 7) {
      error ("DayName error: Invalid day '" + dayasint + "'")
      return ("INVALID_DAY")
    }
    daynames = Split("Monday;Tuesday;Wednesday;Thurday;Friday;Saturday;Sunday")
    dayasint = dayasint - 1
    if (dayasint = 0) {
      dayasint = 7
    }
    return (ListItem(daynames, dayasint))
  ]]></function>

  <function name="IsLeapYear" parameters="year" type="boolean">
    // By Claude
    if (year % 4 = 0) {
      if (year % 100 = 0) {
        if (year % 400 = 0) {
          return (true)
        }
        return (false)
      }
      return (true)
    }
    return (false)
  </function>

  <function name="DaysSinceEpoch" parameters="year, month, day" type="int">
    // By Claude
    // Define the number of days in each month (non-leap year)
    monthDays = Split("31;28;31;30;31;30;31;31;30;31;30;31")
    totalDays = 0
    // Count days for full years before the given year
    for (y, 1970, year - 1) {
      if (IsLeapYear(y)) {
        totalDays = totalDays + 366
      }
      else {
        totalDays = totalDays + 365
      }
    }
    // Count days for full months before the given month in the current year
    for (m, 1, month - 1) {
      daysInMonth = ToInt(ListItem(monthDays, m - 1))
      if (m = 2 and IsLeapYear(year)) {
        // Add 1 for leap year's February
        daysInMonth = daysInMonth + 1
      }
      totalDays = totalDays + daysInMonth
    }
    // Add the days in the current month
    // Subtract 1 because epoch starts at day 0
    totalDays = totalDays + day - 1
    return (totalDays)
  </function>

  <function name="DayNameFromEpoch" parameters="epochDayAsInt" type="string"><![CDATA[
    // By Claude
    // Define the starting day of the Unix Epoch (January 1, 1970)
    // 0 = Thursday, 1 = Friday, ..., 6 = Wednesday
    startingDayIndex = 4
    // Calculate the day index
    dayIndex = (startingDayIndex + epochDayAsInt) % 7
    if (dayIndex < 0) {
      dayIndex = dayIndex + 7
    }
    // Map the index to the day name
    dayNames = Split("Sunday;Monday;Tuesday;Wednesday;Thursday;Friday;Saturday")
    return (ListItem(dayNames, dayIndex))
  ]]></function>

---

The above works with Quest 5.9's built-in CurrentDateUTC function.

To get the local time, we can use the JS ASLEvent function to send data to Quest:

// Add to game.inituserinterface
if (not HasAttribute(game, "changedtimezone_offset")) {
 // The script in this If statement will only run the first time the game loads, not when it resumes
 game.changedtimezone_offset => {
  game.UTC_start_date = CurrentDateUTC()
   game.local_start_date = CurrentDateUTC() - game.timezone_offset
 }
 // Setting the JS start date like this is unnecessary, only for testing
 JS.eval ("ASLEvent('SetJSStartDate', Math.floor(Date.now() / 1000));")
}
// This line will run every time the game is loaded, from the start or resuming a save
JS.eval ("ASLEvent('SetTimezoneOffset', new Date().getTimezoneOffset());")

Add these for handling the code added to game.inituserinterface:

  <function name="SetTimezoneOffset" parameters="offset"><![CDATA[
    // Called by `ASLEvent` (from JS)
    game.timezone_offset = ToInt(offset)
  ]]></function>

  <function name="SetJSStartDate" parameters="jsdate"><![CDATA[
    // Called by `ASLEvent` (from JS)
    game.js_date = ToInt(jsdate)
  ]]></function>

---

I plan to add more functions to return the date and/or time as strings, and probably a few from the ClockLib library (like IsLaterThan(time), etc).

[KVonGit]

The month is incorrect. I will reopen this when (if) I fix that.