|
|
' $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 $t = $SetHour to $MaxHour
' $Color = $System.TimeColor $t
$p12$$p12ap |
' Inc $p12
' If $p12 = 13
' Inc $p12 -12
' EndIf
' If $p12 = 12
' $p12ap = "pm"
' EndIf
' Next
' For $t = $SetHour to $MaxHour
' $Color = $System.TimeColor $t
' For $i = 1 to $TimeSpan
 |
' Next
' Next