big number

[Jaze]

is there a way to use and integer value bigger than the LONG data type allows?

[bplus]

Yes, Type _Integer64

and if all positive or 0 then use _unsigned _integer64

[jack]

hello Jaze
an unsigned integer64 can hold up-to 18446744073709551615 if you want numbers bigger than that I woul suggest LibTomMath from https://www.libtom.net/ let me know if that's what you want

[Jaze]

thank you so much.  I'm working on a time calculator with precision to the second and trying to convert years to seconds. A LONG doesn't allow more than 10 years or so. Thanks again

[SMcNeill]

thank you so much.  I'm working on a time calculator with precision to the second and trying to convert years to seconds. A LONG doesn't allow more than 10 years or so. Thanks again

Code: QB64: [Select]

1.  
2. FUNCTION TimeStamp## (d$, t##) 'date and timer
3.     'Based on Unix Epoch time, which starts at year 1970.
4.     DIM l AS _INTEGER64, l1 AS _INTEGER64, m AS _INTEGER64
5.     DIM d AS _INTEGER64, y AS _INTEGER64, i AS _INTEGER64
6.     DIM s AS _FLOAT
7.  
8.     l = INSTR(d$, "-")
9.     l1 = INSTR(l + 1, d$, "-")
10.     m = VAL(LEFT$(d$, l))
11.     d = VAL(MID$(d$, l + 1))
12.     y = VAL(MID$(d$, l1 + 1))
13.     IF y < 1970 THEN 'calculate shit backwards
14.         SELECT CASE m 'turn the day backwards for the month
15.             CASE 1, 3, 5, 7, 8, 10, 12: d = 31 - d '31 days
16.             CASE 2: d = 28 - d 'special 28 or 29.
17.             CASE 4, 6, 9, 11: d = 30 - d '30 days
18.         END SELECT
19.         IF y MOD 4 = 0 AND m < 3 THEN 'check for normal leap year, and we're before it...
20.             d = d + 1 'assume we had a leap year, subtract another day
21.             IF y MOD 100 = 0 AND y MOD 400 <> 0 THEN d = d - 1 'not a leap year if year is divisible by 100 and not 400
22.         END IF
23.  
24.         'then count the months that passed after the current month
25.         FOR i = m + 1 TO 12
26.             SELECT CASE i
27.                 CASE 2: d = d + 28
28.                 CASE 3, 5, 7, 8, 10, 12: d = d + 31
29.                 CASE 4, 6, 9, 11: d = d + 30
30.             END SELECT
31.         NEXT
32.  
33.         'we should now have the entered year calculated.  Now lets add in for each year from this point to 1970
34.         d = d + 365 * (1969 - y) '365 days per each standard year
35.         FOR i = 1968 TO y + 1 STEP -4 'from 1968 onwards,backwards, skipping the current year (which we handled previously in the FOR loop)
36.             d = d + 1 'subtract an extra day every leap year
37.             IF (i MOD 100) = 0 AND (i MOD 400) <> 0 THEN d = d - 1 'but skipping every year divisible by 100, but not 400
38.         NEXT
39.         s## = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
40.         TimeStamp## = -(s## + 24 * 60 * 60 - t##)
41.         EXIT FUNCTION
42.     ELSE
43.         y = y - 1970
44.     END IF
45.  
46.     FOR i = 1 TO m 'for this year,
47.         SELECT CASE i 'Add the number of days for each previous month passed
48.             CASE 1: d = d 'January doestn't have any carry over days.
49.             CASE 2, 4, 6, 8, 9, 11: d = d + 31
50.             CASE 3 'Feb might be a leap year
51.                 IF (y MOD 4) = 2 THEN 'if this year is divisible by 4 (starting in 1972)
52.                     d = d + 29 'its a leap year
53.                     IF (y MOD 100) = 30 AND (y MOD 400) <> 30 THEN 'unless..
54.                         d = d - 1 'the year is divisible by 100, and not divisible by 400
55.                     END IF
56.                 ELSE 'year not divisible by 4, no worries
57.                     d = d + 28
58.                 END IF
59.             CASE 5, 7, 10, 12: d = d + 30
60.         END SELECT
61.     NEXT
62.     d = (d - 1) + 365 * y 'current month days passed + 365 days per each standard year
63.     FOR i = 2 TO y - 1 STEP 4 'from 1972 onwards, skipping the current year (which we handled previously in the FOR loopp)
64.         d = d + 1 'add an extra day every leap year
65.         IF (i MOD 100) = 30 AND (i MOD 400) <> 30 THEN d = d - 1 'but skiping every year divisible by 100, but not 400
66.     NEXT
67.     s## = d * 24 * 60 * 60 'Seconds are days * 24 hours * 60 minutes * 60 seconds
68.     TimeStamp## = (s## + t##)
69. END FUNCTION
70.  

Pass it a date and timer and it calculates a timestamp for use.

[Qwerkey]

@Jaze It's always worth checking the QB64 Wiki Pages https://wiki.qb64.org/, and in this case there is a Wiki page on Variable Types https://wiki.qb64.org/wiki/Variable_Types

[Pete]

@Jaze It's always worth checking the QB64 Wiki Pages https://wiki.qb64.org/, and in this case there is a Wiki page on Variable Types https://wiki.qb64.org/wiki/Variable_Types

Yes, that page is a keeper. I use it fairly frequently. I miss the days my mind worked like a computer, and I didn't need a cheat sheet. On the bright side, I don't miss typing on my eyeballs to get that information. Bill, I wrote eyeballs, Bill. Leave it alone!

Pete