Subversion Repositories Kolibri OS

Rev

Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7983 Rev 8097
Line 1... Line 1...
1 
(*
 1 
(*
2 
    BSD 2-Clause License
 2 
    BSD 2-Clause License
Line 3... Line 3...
3 
 
 3 
 
4 
    Copyright (c) 2019, Anton Krotov
 4 
    Copyright (c) 2019-2020, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 7... Line 7...
7 
 
 7 
 
Line 8... Line 8...
8 
MODULE DateTime;
 8 
MODULE DateTime;
Line 9... Line 9...
9 
 
 9 
 
Line 114... Line 114...
114 
    Now(Year, Month, Day, Hour, Min, Sec, MSec)
 114 
    Now(Year, Month, Day, Hour, Min, Sec, MSec)
115 
    RETURN Encode(Year, Month, Day, Hour, Min, Sec, MSec)
 115 
    RETURN Encode(Year, Month, Day, Hour, Min, Sec, MSec)
116 
END NowEncode;
 116 
END NowEncode;
Line -... Line 117...
- 
 
 117 
 
- 
 
 118 
 
- 
 
 119 
PROCEDURE NowUnixTime* (): INTEGER;
- 
 
 120 
    RETURN WINAPI.time(0)
- 
 
 121 
END NowUnixTime;
- 
 
 122 
 
- 
 
 123 
 
- 
 
 124 
PROCEDURE UnixTime* (Year, Month, Day, Hour, Min, Sec: INTEGER): INTEGER;
- 
 
 125 
VAR
- 
 
 126 
    t: WINAPI.tm;
- 
 
 127 
 
- 
 
 128 
BEGIN
- 
 
 129 
    DEC(Year, 1900);
- 
 
 130 
    DEC(Month);
- 
 
 131 
    SYSTEM.GET(SYSTEM.ADR(Sec),   t.sec);
- 
 
 132 
    SYSTEM.GET(SYSTEM.ADR(Min),   t.min);
- 
 
 133 
    SYSTEM.GET(SYSTEM.ADR(Hour),  t.hour);
- 
 
 134 
    SYSTEM.GET(SYSTEM.ADR(Day),   t.mday);
- 
 
 135 
    SYSTEM.GET(SYSTEM.ADR(Month), t.mon);
- 
 
 136 
    SYSTEM.GET(SYSTEM.ADR(Year),  t.year);
- 
 
 137 
 
- 
 
 138 
    RETURN WINAPI.mktime(t)
- 
 
 139 
END UnixTime;
117 
 
 140 
 
118 
 
 141 
 
119 
PROCEDURE init;
 142 
PROCEDURE init;
120 
VAR
 143 
VAR