|
@@ -245,8 +245,18 @@ Begin
|
|
|
WriteLn('----------------------------------------------------------------------');
|
|
|
WriteLn(' Note: GetTime should return the same value as the previous test. ');
|
|
|
WriteLn('----------------------------------------------------------------------');
|
|
|
+{$ifndef beos}
|
|
|
+ {This should be disabled under BeOS : maybe this is a BeOS bug (or a feature ?)
|
|
|
+ in stime function.
|
|
|
+ When you set 36 hours, the time AND the date are changed
|
|
|
+ It seems it is a valid value under BeOS, but you have jump in the future :
|
|
|
+ 36 hours in the future from the begining of the starting day, more or less
|
|
|
+ depending on your timezone.
|
|
|
+ For example in Paris, in summer (2 hours from GMT time zone),
|
|
|
+ this call set the clock to 14:<Minute>:<Second>:<Sec100> the next day !}
|
|
|
SetTime(36,Minute,Second,Sec100);
|
|
|
CheckDosError(0);
|
|
|
+{$endif}
|
|
|
GetTime(Hour1,Minute1,Second1,Sec1001);
|
|
|
CheckDosError(0);
|
|
|
WriteLn('HH:MIN:SEC ',Hour1,':',Minute1,':',Second1);
|