|
program Time_Zone; { Questo esempio mostra come sia possibile ottenere la data, l'ora e la fascia oraria di appartenenza in Object-Pascal. } {$mode objfpc}{$H+} uses Classes, SysUtils, Windows, Crt; var Time : TSystemTime; Zone : TTimeZoneInformation; begin CursorOff; writeln; writeln('L''ora e la data attuali sono le seguenti:'); writeln; GetLocalTime(Time); write(Time.hour,'.',Time.minute,' e ',Time.second,' secondi'); write(' del '); writeln(Time.day,'/',Time.month,'/',Time.year); writeln; GetTimeZoneInformation(Zone); writeln('La fascia oraria e'' GMT ',Zone.Bias div -60); writeln; write('Spero che tua abbia tratto profitto da questo esempio. Alla prossima...'); readln; end.
|
|
