QB64.org Forum

Samples Gallery & Reference => Utilities => Topic started by: The Librarian on August 11, 2019, 05:29:22 am

Title: Extended (Unix Epoch) Timer by SMcNeill
Post by: The Librarian on August 11, 2019, 05:29:22 am

Extended (Unix Epoch) Timer

Contributor(s): @SMcNeill
Source: qb64 @ Freeforums
URL: http://qb64.freeforums.net/thread/20/extended-timer-uet (http://qb64.freeforums.net/thread/20/extended-timer-uet)
Tags: [date], [time], [timer]

Description:
The Unix Epoch Time (https://en.wikipedia.org/wiki/Unix_time) is a popular timekeeping standard based on the number of seconds elapsed since midnight on Jan 1, 1970 in Greenwich, London. The Extended Timer function below will calculate the (relative) Unix epoch time from the local system time and date.

Source Code:

Code: QB64: [Select]

1. SHELL "https://www.epochconverter.com/"
2. DO
3.     CLS
4.     PRINT TIMER, INT(ExtendedTimer)
5.     PRINT "Compare to the time at https://www.epochconverter.com/"
6.     _DISPLAY
7.     _LIMIT 10
8. LOOP
9.  
10. FUNCTION ExtendedTimer##
11.     d$ = DATE$
12.     l = INSTR(d$, "-")
13.     l1 = INSTR(l + 1, d$, "-")
14.     m = VAL(LEFT$(d$, l))
15.     d = VAL(MID$(d$, l + 1))
16.     y = VAL(MID$(d$, l1 + 1)) - 1970
17.     FOR i = 1 TO m
18.         SELECT CASE i 'Add the number of days for each previous month passed
19.             CASE 1: d = d 'January doestn't have any carry over days.
20.             CASE 2, 4, 6, 8, 9, 11: d = d + 31
21.             CASE 3: d = d + 28
22.             CASE 5, 7, 10, 12: d = d + 30
23.         END SELECT
24.     NEXT
25.     FOR i = 1 TO y
26.         d = d + 365
27.     NEXT
28.     FOR i = 2 TO y STEP 4
29.         IF m > 2 THEN d = d + 1 'add an extra day for leap year every 4 years, starting in 1970
30.     NEXT
31.     d = d - 1 'for year 2000
32.     s~&& = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
33.     ExtendedTimer## = (s~&& + TIMER)
34. END FUNCTION
35.  

Text Only | Text with Attachments