Originally Posted by
ONE618 - Green is an instruction and should not be included in the macro
- Orange is text that should be replaced with your desired info
- I wrote this quick and dirty. I'll upload a cleaner optimized version later on
- The max cities is set to 3, for now, because of macro character limits
- This requires the latest ShortcutMe beta release v5.9.0.2
World Clock
Set $lc=
Local City;
Set $1n=
City1 Name;
Set $2n=
City2 Name;
Set $3n=
City3 Name;
Set $1d=
City1 Time Difference in hours;
Set $2d=
City2 Time Difference in hours;
Set $3d=
City3 Time Difference in hours;
the time difference should be compared to your local time
for example...
if your local time is 11:00PM and the city you're comparing it to is 1:00AM then $1d=2
if your local time is 11:00PM and the city you're comparing it to is 9:00PM then $1d=-2
Set $lt=GetTime;
Div $lt,100;
If0 $lt>1159;
Then0; Set $ap=PM;Set $am=0;Sub $$Result,12;
Else0;Set $ap=AM;Set $am=1;EndIf0;
If1 $$Rest<10;
Then1;Set $$Rest=0$$Rest;
EndIf1;
Set $lt=$$Result:$$Rest $ap;
Set $hr=$$Result;
Sum $hr,$1d;
If4 $$Result>12;
Then4;Sum $$Result,-12;
If5 $am==1;
Then5;Set $1t=$$Result:$$Rest PM;
Else5;Set $1t=$$Result:$$Rest AM *tomorrow;EndIf5;
Else4;Set $1t=$$Result:$$Rest $ap;EndIf4;
Sum $hr,$2d;
If4 $$Result>12;
Then4;Sum $$Result,-12;
If5 $am==1;
Then5;Set $2t=$$Result:$$Rest PM;
Else5;Set $2t=$$Result:$$Rest AM *tomorrow;EndIf5;
Else4;Set $2t=$$Result:$$Rest $ap;EndIf4;
Sum $hr,$3d;
If6 $$Result>12;
Then6;Sum $$Result,-12;
If7 $am==1;
Then7;Set $3t=$$Result:$$Rest PM;
Else7;Set $3t=$$Result:$$Rest AM *tomorrow;EndIf7;
Else6;Set $3t=$$Result:$$Rest $ap;EndIf6;
Show$lc $lt
$1n $1t
$2n $2t
$3n $3t;
very nice ;o what phone/os are you using though? I can't use this, I get "Field Full" error (on 9900/7.0.0.440). Here's as much as I can enter
do not use this macro, it is incomplete
Set $lc=Local City;
Set $1n=City1 Name;
Set $2n=City2 Name;
Set $3n=City3 Name;
Set $1d=City1 Time Difference in hours;
Set $2d=City2 Time Difference in hours;
Set $3d=City3 Time Difference in hours;
Set $lt=GetTime;
Div $lt,100;
If0 $lt>1159;
Then0; Set $ap=PM;Set $am=0;Sub $$Result,12;
Else0;Set $ap=AM;Set $am=1;EndIf0;
If1 $$Rest<10;
Then1;Set $$Rest=0$$Rest;
EndIf1;
Set $lt=$$Result:$$Rest $ap;
Set $hr=$$Result;
Sum $hr,$1d;
If4 $$Result>12;
Then4;Sum $$Result,-12;
If5 $am==1;
Then5;Set $1t=$$Result:$$Rest PM;
Else5;Set $1t=$$Result:$$Rest AM *tomorrow;EndIf5;
Else4;Set $1t=$$Result:$$Rest $ap;EndIf4;
Sum $hr,$2d;
If4 $$Result>12;
Then4;Sum $$Result,-12;
If5 $am==1;
Then5;Set $2t=$$Result:$$Rest PM;
Else5;Set $2t=$$Result:$$Rest AM *tomorrow;EndIf5;
Else4;Set $2t=$$Result:$$Rest $ap;EndIf4;
Sum $hr,$3d;
If6 $$Result>12;
Then6;Sum $$Result,-12;
If7 $am==1;
Then7;Set $3t=$$Result:$$Rest PM;
Else7;Set $3t=$$Result:$$Rest AM *tomorrow;EndIf7;
Else6;Set $3t=$$Result:$$Rest $ap;EndIf6;
S
Posted from my CrackBerry at wapforums.crackberry.com