/[lcore]/branches/delphi2010/btime.pas
ViewVC logotype

Diff of /branches/delphi2010/btime.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 71 by zipplet, Tue Feb 9 22:30:17 2010 UTC revision 72 by zipplet, Wed Feb 10 17:48:08 2010 UTC
# Line 543  Line 543 
543    
544    if timezone >= 0 then timezonestr := '+' else timezonestr := '-';    if timezone >= 0 then timezonestr := '+' else timezonestr := '-';
545    l := abs(timezone) div 60;    l := abs(timezone) div 60;
546    timezonestr := timezonestr + char(l div 600 mod 10+48)+char(l div 60 mod 10+48)+':'+char(l div 10 mod 6+48)+char(l mod 10+48);    timezonestr := timezonestr + ansichar(l div 600 mod 10+48)+ansichar(l div 60 mod 10+48)+':'+ansichar(l div 10 mod 6+48)+ansichar(l mod 10+48);
547  end;  end;
548    
549  function timestrshort(i:integer):ansistring;  function timestrshort(i:integer):ansistring;

Legend:
Removed from v.71  
changed lines
  Added in v.72

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22