$Office.Name - Scheduler [Personal: Daily View]

' $System.Access Read Schedule $Office.Name - Scheduler [Personal: Daily View] ' Init $GID = $Groups.Head ' $ID = $Login.ID $Login.Name's Schedule $_Login.Mail.MailTo

' Set $Calendar = $Users.$ID.Schedule.Calendar ' Set $Calendar.Share = $Schedule.Calendar ' $Calendar.UID = $ID ' Set $s = $Calendar.$Date

$Date.Day $Date.MONTH, $Date.Year ($Date.wday) [Register]

$Date.MONTH

' If $s ' $s.SetHour = $SetHour ' $s.EndHour = $EndHour ' $s.Unit = $Schedule.Unit ' $i = $TimeSpan ' $h = $SetHour ' $p12 = $SetHour ' If ($p12 = 12) or ($p12 = 13) or ($p12 = 14) or ($p12 = 15) or ($p12 = 16) or ($p12 = 17) or ($p12 = 18) or ($p12 = 19) or ($p12 = 20) or ($p12 = 21) or ($p12 = 22) or ($p12 = 23) ' $p12ap = "pm" ' Else ' $p12ap = "am" ' EndIf ' For Each $e in $s ' If $i = $TimeSpan ' $Color = $System.TimeColor $h ' $i = 0 ' Inc $h ' Inc $p12 ' If $p12 = 13 ' Inc $p12 -12 ' EndIf ' If $p12 = 12 ' $p12ap = "pm" ' EndIf ' EndIf ' Inc $i ' If $e.Span and $e.Critical ' Elif $e.Span ' EndIf ' Next ' Else ' For $t = $SetHour to $MaxHour ' $Color = $System.TimeColor $t ' If $t = $SetHour ' EndIf ' For $i = 2 to $TimeSpan ' Next ' Next ' EndIf

Daily Schedule

' For Each $e in $s ' If ! $e.Critical
$e.LongTitle ' EndIf ' Next
$p12$$p12ap
$e.Time12 $e.LongTitle$$e.Regular

$t
' If $Schedule.Sunday ' Else ' EndIf ' $System.Holiday = $Schedule.Holiday ' For Each $MDate in $System.Month ' $System.Week.Date = $MDate ' For Each $WDate in $System.Week ' If $WDate.Month != $Date.Month ' Elif $WDate.IsToday ' Else ' EndIf ' Next ' Next
Mon Tue Wed Thu Fri Sat Sun
Sun Mon Tue Wed Thu Fri Sat
$wdate.Day $wdate.Day

' Init $BDate = $Date
[Weekly View] [Top Page] [Help]