Util:StrFormatTime is from Pol97.
If you use Pol95 you have to write your own function for that.
scripts/include/ folder. Depending on your script base.
Code: Select all
const yearlen := 3600*24*365;
const leadyearlen := 3600*24*366;
const daylen := 3600*24;
const hourlen := 3600;
const minlen := 60;
function GetTimeString()
var abstime := polcore().systime;
var year := 1970;
var month := 1;
var day :=1;
var hour :=0;
var mn :=0;
while(abstime >= yearlen)
if(mod_fast(year,4) ==0) //LeadYear
abstime := abstime-leadyearlen;
else
abstime := abstime-yearlen;
endif
year := year+1;
endwhile
var monthlenlist := { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, };
var monthname:={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep", "Oct","Nov","Dec",};
if(mod_fast(year,4) ==0)
monthlenlist[2] := 29;
endif
var monthlen := monthlenlist[month]*daylen;
//find the month
while(abstime >= monthlen)
abstime := abstime-monthlen;
month := month+1;
monthlen := monthlenlist[month]*daylen;
endwhile
//the day
while(abstime >= daylen)
abstime := abstime-daylen;
day := day+1;
endwhile
//find the hour
while(abstime >= 3600)
abstime := abstime-3600;
hour := hour+1;
endwhile
//minute
while(abstime >= 60)
abstime := abstime-60;
mn := mn+1;
endwhile
var macro :=0;
if ((hour>=6) && (hour<=13))
macro := (13 - hour);
if (macro==0)
macro :=666;
endif
endif
if (macro==666)
return "Macroing is allowed for another " + (60 - mn) + " mins";
endif
if (macro==0)
return "Macroing is not allowed at this time, you will be jailed when caught";
else
return "Macroing is allowed for another " + macro + " hrs " + (60 - mn) + " mins";
endif
endfunction
function GetDate()
var abstime := polcore().systime;
var year := 1970;
var month := 1;
var day :=1;
var hour :=0;
var mn :=0;
while(abstime >= yearlen)
if(mod_fast(year,4) ==0) //LeadYear
abstime := abstime-leadyearlen;
else
abstime := abstime-yearlen;
endif
year := year+1;
endwhile
var monthlenlist := { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, };
var monthname:={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep", "Oct","Nov","Dec",};
if(mod_fast(year,4) ==0)
monthlenlist[2] := 29;
endif
var monthlen := monthlenlist[month]*daylen;
//find the month
while(abstime >= monthlen)
abstime := abstime-monthlen;
month := month+1;
monthlen := monthlenlist[month]*daylen;
endwhile
//the day
while(abstime >= daylen)
abstime := abstime-daylen;
day := day+1;
endwhile
//return (monthname[month] + " " + day + ", " + year );
return (day + "." + month + "." + year );
endfunction
function GetFormatedDate(format)
var abstime := polcore().systime;
var year := 1970;
var month := 1;
var mm := "01";
var dd := "01";
var day :=1;
var hour :=0;
var mn :=0;
while(abstime >= yearlen)
if(mod_fast(year,4) ==0) //LeadYear
abstime := abstime-leadyearlen;
else
abstime := abstime-yearlen;
endif
year := year+1;
endwhile
var monthlenlist := { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
var monthname:={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep", "Oct","Nov","Dec"};
if(mod_fast(year,4) ==0)
monthlenlist[2] := 29;
endif
var monthlen := monthlenlist[month]*daylen;
//find the month
while(abstime >= monthlen)
abstime := abstime-monthlen;
month := month+1;
monthlen := monthlenlist[month]*daylen;
if(month < 10)
mm := ("0"+ CStr(month));
else
mm := month;
endif
endwhile
//the day
while(abstime >= daylen)
abstime := abstime-daylen;
day := day+1;
if(day < 10)
dd := ("0"+ CStr(day));
else
dd := day;
endif
endwhile
case (format)
"yyyymmdd" : return (CStr(year) + CStr(mm) + CStr(dd));
"yyyy.mm.dd" : return (year + "." + mm + "." + dd);
"dd.mm.yyyy" : return (dd + "." + mm + "." + year );
"d.m.yyyy" : return (day + "." + month + "." + year );
"mon day year" : return (monthname[month] + " " + day + ", " + year );
"ddmm" : return (CStr(dd) +" " +monthname[month]);
endcase
endfunction
function mod_fast(n,d)
var ndbl := CDbl(n)/CDbl(d);
var nint := CDbl(n/d);
if(ndbl > nint)
var rest := (ndbl-nint)*CDbl(d);
if(rest > CDbl(CInt(rest)) )
rest := CInt(rest)+1;
else
rest := CInt(rest);
endif
return rest;
else
return 0;
endif
endfunction
function GetFormatedTime(format)
var abstime := polcore().systime;
var year := 1970;
var month := 1;
var mm := "01";
var dd := "01";
var day :=1;
var hour :=0;
var mn :=0;
var hh := 0;
var mi := 0;
var ss := 0;
while(abstime >= yearlen)
if(mod_fast(year,4) ==0) //LeadYear
abstime := abstime-leadyearlen;
else
abstime := abstime-yearlen;
endif
year := year+1;
endwhile
var monthlenlist := { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 };
var monthname:={"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep", "Oct","Nov","Dec"};
if(mod_fast(year,4) ==0)
monthlenlist[2] := 29;
endif
var monthlen := monthlenlist[month]*daylen;
//find the month
while(abstime >= monthlen)
abstime := abstime-monthlen;
month := month+1;
monthlen := monthlenlist[month]*daylen;
if(month < 10)
mm := ("0"+ CStr(month));
else
mm := month;
endif
endwhile
//the day
while(abstime >= daylen)
abstime := abstime-daylen;
day := day+1;
if(day < 10)
dd := ("0"+ CStr(day));
else
dd := day;
endif
endwhile
//the hour
while(abstime >= hourlen)
abstime := abstime-hourlen;
hour := hour+1;
if(hour < 10)
hh := ("0"+ CStr(hour));
else
hh := hour;
endif
endwhile
//the minute
while(abstime >= minlen)
abstime := abstime-minlen;
mn := mn+1;
if(mn < 10)
mi := ("0"+ CStr(mn));
else
mi := mn;
endif
endwhile
ss := abstime;
if(ss < 10)
ss := "0" + CStr(ss);
endif
case (format)
"hhmmss" : return (CStr(hh) + CStr(mi) + CStr(ss));
"hh:mm:ss" : return (hh + ":" + mi + ":" + ss);
"hh" : return (hh);
"mm" : return (mi);
endcase
endfunction