Number of seconds to time - GameCreators Forum

Author

Message

Rocco Sette

7

Years of Service

User Offline

Joined: 2nd Aug 2017

Location:

Posted: 30th Sep 2018 11:09 Edited at: 30th Sep 2018 11:11

Link

Good morning,

I'm trying to get the differences between now and a date, and i convert it to seconds.

After that, i'm trying to convert the seconds differences to seconds minutes hours days months and years.

I made this, but if i put the last year, the ouput is not correct.

Someone as an idea ?

date$="2014-09-29"
time$="22:00:00"
unix_1=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
do
    time = (GetUnixTime() + 60*60*2)
    second_from_begin = time - unix_1
    second_from_begin = second_from_begin

number_of_seconds_total = second_from_begin
    number_of_seconds = Mod(number_of_seconds_total, 60)

number_of_minutes_total  =  number_of_seconds_total/60
    number_of_minutes  =  Mod(number_of_seconds_total/60, 60)

number_of_hours_total = number_of_minutes_total/60
    number_of_hours = Mod(number_of_minutes_total/60, 24)

number_of_days_total = number_of_hours_total/24
    number_of_days = Mod(number_of_hours_total/24, 30.4375)

number_of_months = Mod(number_of_days_total/30.4375, 12)
    number_of_years = number_of_days_total/365.25

// number_of_hours# = Mod(number_of_seconds_total/(60 * 60), 24) // or number_of_minutes# / 60
    // number_of_days# = number_of_seconds_total/(60 * 60 * 24)
    // number_of_weeks# = number_of_seconds_total/(60 * 60 * 24 * 7)
    // number_of_months# = Mod(number_of_seconds_total/(60 * 60 * 24 * 7 * 52), 12)
    // number_of_years# = number_of_seconds_total/(60 * 60 * 24 * 7 * 52 * 12)

print(GetUnixTime())
    print(second_from_begin)
    print("")
    print(GetSecondsFromUnix(unix_1))
    print(GetMinutesFromUnix(unix_1))
    print(GetHoursFromUnix(unix_1))
    print("")
    print(GetSecondsFromUnix(time))
    print(GetMinutesFromUnix(time))
    print(GetHoursFromUnix(time))
    print("")
    print(number_of_days_total)
    print(number_of_seconds)
    print(number_of_minutes)
    print(number_of_hours_total)
    print(number_of_days)
    print(number_of_months)
    print(number_of_years)

Sync()
loop

+ Code Snippet

date$="2014-09-29"
time$="22:00:00"
unix_1=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
do
    time = (GetUnixTime() + 60*60*2)
    second_from_begin = time - unix_1
    second_from_begin = second_from_begin

    number_of_seconds_total = second_from_begin
    number_of_seconds = Mod(number_of_seconds_total, 60)

    number_of_minutes_total  =  number_of_seconds_total/60
    number_of_minutes  =  Mod(number_of_seconds_total/60, 60)

    number_of_hours_total = number_of_minutes_total/60
    number_of_hours = Mod(number_of_minutes_total/60, 24)

    number_of_days_total = number_of_hours_total/24
    number_of_days = Mod(number_of_hours_total/24, 30.4375)

    number_of_months = Mod(number_of_days_total/30.4375, 12)
    number_of_years = number_of_days_total/365.25

    // number_of_hours# = Mod(number_of_seconds_total/(60 * 60), 24) // or number_of_minutes# / 60
    // number_of_days# = number_of_seconds_total/(60 * 60 * 24)
    // number_of_weeks# = number_of_seconds_total/(60 * 60 * 24 * 7)
    // number_of_months# = Mod(number_of_seconds_total/(60 * 60 * 24 * 7 * 52), 12)
    // number_of_years# = number_of_seconds_total/(60 * 60 * 24 * 7 * 52 * 12)

    print(GetUnixTime())
    print(second_from_begin)
    print("")
    print(GetSecondsFromUnix(unix_1))
    print(GetMinutesFromUnix(unix_1))
    print(GetHoursFromUnix(unix_1))
    print("")
    print(GetSecondsFromUnix(time))
    print(GetMinutesFromUnix(time))
    print(GetHoursFromUnix(time))
    print("")
    print(number_of_days_total)
    print(number_of_seconds)
    print(number_of_minutes)
    print(number_of_hours_total)
    print(number_of_days)
    print(number_of_months)
    print(number_of_years)

    Sync()
loop

GetUnixTime() + 60*60*2 because i want french hour.

Thank's

Back to top

Profile PM

Rocco Sette

7

Years of Service

User Offline

Joined: 2nd Aug 2017

Location:

Posted: 30th Sep 2018 22:41

Link

I updated to this, number of days is wrong...

If someone know

date$="2018-03-30"
time$="00:00:00"
unix_1=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
do
    time = (GetUnixTime() + 60 * 60 * 2)
    second_from_begin = time - unix_1

number_of_seconds_total# = second_from_begin
    number_of_seconds = Mod(number_of_seconds_total#, 60)

number_of_minutes_total  =  number_of_seconds_total#/60
    number_of_minutes  =  Mod(number_of_seconds_total#/60, 60)

number_of_hours_total = number_of_minutes_total/60
    number_of_hours = Mod(number_of_minutes_total/60, 24)

number_of_days_total = number_of_hours_total/24

number_of_years = number_of_days_total/365
    number_of_months = Mod(number_of_days_total/30.4375, 12)
    if (number_of_months = 1 or number_of_months = 3 or number_of_months = 5 or number_of_months = 7 or number_of_months = 8 or number_of_months = 10 or number_of_months = 12)
        modulo = 31
    else
        modulo = 30
        if number_of_months = 2
            modulo = 28
        endif
        if (number_of_months = 2 and Mod(number_of_years, 4) = 0)
            modulo = 29
        endif
    endif
    number_of_days = Mod(number_of_hours_total/24, modulo)

// number_of_hours# = Mod(number_of_seconds_total/(60 * 60), 24) // or number_of_minutes# / 60
    // number_of_days# = number_of_seconds_total/(60 * 60 * 24)
    // number_of_weeks# = number_of_seconds_total/(60 * 60 * 24 * 7)
    // number_of_months# = Mod(number_of_seconds_total/(60 * 60 * 24 * 7 * 52), 12)
    // number_of_years# = number_of_seconds_total/(60 * 60 * 24 * 7 * 52 * 12)

print(GetUnixTime() + 60 * 60 * 2)
    print(second_from_begin)
    print(GetSecondsFromUnix(time))
    print(GetMinutesFromUnix(time))
    print(GetHoursFromUnix(time))
    print("")

print(number_of_seconds_total#)
    print(number_of_seconds)
    print(number_of_minutes)
    print(number_of_hours)
    print(number_of_days)
    print(number_of_months)
    print(number_of_years)

Sync()
loop

+ Code Snippet

date$="2018-03-30"
time$="00:00:00"
unix_1=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
do
    time = (GetUnixTime() + 60 * 60 * 2)
    second_from_begin = time - unix_1

    number_of_seconds_total# = second_from_begin
    number_of_seconds = Mod(number_of_seconds_total#, 60)

    number_of_minutes_total  =  number_of_seconds_total#/60
    number_of_minutes  =  Mod(number_of_seconds_total#/60, 60)

    number_of_hours_total = number_of_minutes_total/60
    number_of_hours = Mod(number_of_minutes_total/60, 24)

    number_of_days_total = number_of_hours_total/24

    number_of_years = number_of_days_total/365
    number_of_months = Mod(number_of_days_total/30.4375, 12)
    if (number_of_months = 1 or number_of_months = 3 or number_of_months = 5 or number_of_months = 7 or number_of_months = 8 or number_of_months = 10 or number_of_months = 12)
        modulo = 31
    else
        modulo = 30
        if number_of_months = 2
            modulo = 28
        endif
        if (number_of_months = 2 and Mod(number_of_years, 4) = 0)
            modulo = 29
        endif
    endif
    number_of_days = Mod(number_of_hours_total/24, modulo)

    // number_of_hours# = Mod(number_of_seconds_total/(60 * 60), 24) // or number_of_minutes# / 60
    // number_of_days# = number_of_seconds_total/(60 * 60 * 24)
    // number_of_weeks# = number_of_seconds_total/(60 * 60 * 24 * 7)
    // number_of_months# = Mod(number_of_seconds_total/(60 * 60 * 24 * 7 * 52), 12)
    // number_of_years# = number_of_seconds_total/(60 * 60 * 24 * 7 * 52 * 12)

    print(GetUnixTime() + 60 * 60 * 2)
    print(second_from_begin)
    print(GetSecondsFromUnix(time))
    print(GetMinutesFromUnix(time))
    print(GetHoursFromUnix(time))
    print("")

    print(number_of_seconds_total#)
    print(number_of_seconds)
    print(number_of_minutes)
    print(number_of_hours)
    print(number_of_days)
    print(number_of_months)
    print(number_of_years)

    Sync()
loop

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Oct 2018 04:57

Link

Don't forget that the number of days in a months varies and to account for leap years. I'll write something up tomorrow if I find the time (way past bedtime for me tonight)

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Rocco Sette

7

Years of Service

User Offline

Joined: 2nd Aug 2017

Location:

Posted: 1st Oct 2018 09:17

Link

Nice, i wait for that

Here my last version :

date$="2018-03-30"
time$="00:00:00"
unix_1=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
do
    time = (GetUnixTime() + 60 * 60 * 2)
    second_from_begin = time - unix_1

number_of_seconds_total = second_from_begin
    number_of_seconds = Mod(number_of_seconds_total, 60)

number_of_minutes_total  =  number_of_seconds_total/60
    number_of_minutes  =  Mod(number_of_seconds_total/60, 60)

number_of_hours_total = number_of_minutes_total/60
    number_of_hours = Mod(number_of_minutes_total/60, 24)

number_of_days_total = number_of_hours_total/24

number_of_years = number_of_days_total/365
    number_of_months = Mod(number_of_days_total/30.4375, 12)
    if (number_of_months = 1 or number_of_months = 3 or number_of_months = 5 or number_of_months = 7 or number_of_months = 8 or number_of_months = 10 or number_of_months = 12)
        modulo = 31
    else
        modulo = 30
        if number_of_months = 2
            modulo = 28
        endif
        if (number_of_months = 2 and Mod(number_of_years, 4) = 0)
            modulo = 29
        endif
    endif
    number_of_days = Mod(number_of_hours_total/24, modulo)

// number_of_hours# = Mod(number_of_seconds_total/(60 * 60), 24) // or number_of_minutes# / 60
    // number_of_days# = number_of_seconds_total/(60 * 60 * 24)
    // number_of_weeks# = number_of_seconds_total/(60 * 60 * 24 * 7)
    // number_of_months# = Mod(number_of_seconds_total/(60 * 60 * 24 * 7 * 52), 12)
    // number_of_years# = number_of_seconds_total/(60 * 60 * 24 * 7 * 52 * 12)

print(GetUnixTime() + 60 * 60 * 2)
    print(second_from_begin)
    print(GetSecondsFromUnix(time))
    print(GetMinutesFromUnix(time))
    print(GetHoursFromUnix(time))
    print("")

print(number_of_seconds_total)
    print(number_of_seconds)
    print(number_of_minutes)
    print(number_of_hours)
    print(number_of_days)
    print(number_of_months)
    print(number_of_years)

Sync()
loop

+ Code Snippet

date$="2018-03-30"
time$="00:00:00"
unix_1=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),Val(Left(time$,2)),Val(Mid(time$,4,2)),Val(Right(time$,2)))
do
    time = (GetUnixTime() + 60 * 60 * 2)
    second_from_begin = time - unix_1

    number_of_seconds_total = second_from_begin
    number_of_seconds = Mod(number_of_seconds_total, 60)

    number_of_minutes_total  =  number_of_seconds_total/60
    number_of_minutes  =  Mod(number_of_seconds_total/60, 60)

    number_of_hours_total = number_of_minutes_total/60
    number_of_hours = Mod(number_of_minutes_total/60, 24)

    number_of_days_total = number_of_hours_total/24

    number_of_years = number_of_days_total/365
    number_of_months = Mod(number_of_days_total/30.4375, 12)
    if (number_of_months = 1 or number_of_months = 3 or number_of_months = 5 or number_of_months = 7 or number_of_months = 8 or number_of_months = 10 or number_of_months = 12)
        modulo = 31
    else
        modulo = 30
        if number_of_months = 2
            modulo = 28
        endif
        if (number_of_months = 2 and Mod(number_of_years, 4) = 0)
            modulo = 29
        endif
    endif
    number_of_days = Mod(number_of_hours_total/24, modulo)

    // number_of_hours# = Mod(number_of_seconds_total/(60 * 60), 24) // or number_of_minutes# / 60
    // number_of_days# = number_of_seconds_total/(60 * 60 * 24)
    // number_of_weeks# = number_of_seconds_total/(60 * 60 * 24 * 7)
    // number_of_months# = Mod(number_of_seconds_total/(60 * 60 * 24 * 7 * 52), 12)
    // number_of_years# = number_of_seconds_total/(60 * 60 * 24 * 7 * 52 * 12)

    print(GetUnixTime() + 60 * 60 * 2)
    print(second_from_begin)
    print(GetSecondsFromUnix(time))
    print(GetMinutesFromUnix(time))
    print(GetHoursFromUnix(time))
    print("")

    print(number_of_seconds_total)
    print(number_of_seconds)
    print(number_of_minutes)
    print(number_of_hours)
    print(number_of_days)
    print(number_of_months)
    print(number_of_years)

    Sync()
loop

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 1st Oct 2018 19:50 Edited at: 2nd Oct 2018 13:23

Link

Does this work for you? Since the dates are already being converted to seconds, that function should already account for all the variables I mentioned above. Leave all your math in seconds during the calculations. A year can be 365 or 366 days, but it's always going to be the same number of seconds. As for a month, don't think of it in days (which can vary), think of 1 month as 1/12 of a year.

+ Code Snippet



#CONSTANT SEC_YEAR   = 31556952
#CONSTANT SEC_MONTH  = 2629746
#CONSTANT SEC_DAY    = 86400
#CONSTANT SEC_HOUR   = 3600
#CONSTANT SEC_MIN    = 60


	
do 

	unix = GetUnixFromDate(1983, 1, 19, 0, 0, 0)
	now = getUnixTime()

	diff = now - unix


	years = floor(diff / SEC_YEAR)
		diff = diff - years*SEC_YEAR
		
	months = floor(diff / SEC_MONTH)
		diff = diff - months*SEC_MONTH
		
	days = floor(diff / SEC_DAY)
		diff = diff - days*SEC_DAY

	hours = floor(diff / SEC_HOUR)
		diff = diff - hours*SEC_HOUR
		
	mins = floor(diff / SEC_MIN)
		diff = diff - mins*SEC_MIN

	secs = diff
		
	
	

	print("Years: "+str(years))
	print("Months: "+str(months))
	print("Days: "+str(days))
	print("Hours: "+str(hours))
	print("Minutes: "+str(mins))
	print("Seconds: "+str(secs))
	

	

    sync()   
loop

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Preben

AGK Studio Developer

20

Years of Service

User Offline

Joined: 30th Jun 2004

Location:

Posted: 2nd Oct 2018 11:37 Edited at: 2nd Oct 2018 11:38

Link

Cant you just do like this, or did i misunderstood the question

?
if you want it the other way around "future" just check if ... unix > unixfrom ... you get what i mean.

+ Code Snippet

date$=GetCurrentDate()

unixfrom = GetUnixFromDate(1983, 1, 19, 0, 0, 0)
unix=GetUnixFromDate(Val(Left(date$,4)),Val(Mid(date$,6,2)),Val(Right(date$,2)),0,0,0)
unixfinal = unix - unixfrom

year=GetYearFromUnix(unixfinal) - 1970 // when using integers unix starts at 1970 so...
month=GetMonthFromUnix(unixfinal)
days=GetDaysFromUnix(unixfinal)

Repeat
    Print ("Time passed:")
    Printc ("Years: ")
    Print (year)
    Printc ("Months: ")
    Print (month)
    Printc ("Days: ")
    Print (days)
    Sync()
End

Subscribe and checkout great AppGameKit video's here: Videos click here
Latest GameGuru Loader news: News click here
Get GameGuru Loader PBR version here: Steam click here
best regards Preben Eriksen,

Back to top

Profile PM Email

blink0k

Moderator

11

Years of Service

User Offline

Joined: 22nd Feb 2013

Location: the land of oz

Posted: 2nd Oct 2018 22:42

Link

GetUnixDay/Month/Year will return the Day(1-31) Month(1-12) and Year of the date. Not the Days/Months and Years

Back to top

Profile PM

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 3rd Oct 2018 00:01

Link

"A year can be 365 or 366 days but it's always going to be the same number of seconds"

Am I missing something here? 365 days is 31536000 seconds, 366 days is 31622400 seconds.

Anyway I assume what you are making is a count down app - in which case they tend to take the days in while months and add them the the days in the current part month. So for example, if today (03/10) I set a countdown for 31st December the app I have on my phone right now adds 31 days for December, 30 days for November and then the difference to the end of October, so 28 days. So in days it would just say 89 days. Or it would literally just say 2 months and X days. I think you're massively over complicating it by converting it to seconds in totality maybe?

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 3rd Oct 2018 13:48

Link

1 year is technically 365.256 days, so for 3 years it's 365 then 366 every 4th year (leap) by our calendar. So we're technically a 1/4 to 3/4 of a day behind most years. If you simply break down a year into exact seconds, and take 1/12 of that to represent a month, you get the truest value.

In other words, our calendar has a different number of days depending on the year but a year technically contains the same number of seconds regardless. The leap year just makes up for the lost time our calendar truncates. I suppose I should have said calendar year versus a celestial year.

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 3rd Oct 2018 13:53

Link

Em......literally disagree with that. I agree that we use a leap year to account for the difficulty, but in no date measurement EVER would you split it down across all four. So I get your technicality, but I can't think of any single practical application where you would door as you say. If your working with dates, by default you would use the format of the dates, which is the correct years left.

So basically, a count down timer would never say "1.0028 years, four months left" etc.

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 5th Oct 2018 00:40

Link

I'm not saying it would return a fractional year, but converting it all to seconds makes it easier to work with. If you had 1.0028 years, you'd say 1 year 1 day 32 minutes and 39 seconds.

I don't know man, dates are weird math. I tested my results with a few websites and get the same results. Do the math in seconds but convert it when you give it back to the user.

Tiled TMX Importer V.2
XML Parser V.2
Base64 Encoder/Decoder
Purple Token - Free online hi-score database
Legend of Zelda

"I like offending people, because I think people who get offended should be offended." - Linus Torvalds

Back to top

Profile PM Email Website

Santman

13

Years of Service

User Offline

Joined: 15th Sep 2011

Location: Inverness

Posted: 5th Oct 2018 10:44

Link

I wonder if there's a difference in outcome.

I would do it in reverse: take the current second, then the difference to the next whole minute. Then the current minute, then the difference to the next whole hour. Then the current hour to the next whole day etc.

I guess that's not really the relevant part, as be either method your gonna hit a snag converting back where a leap year is involved, if you need to account that far into the future.....in either scenario raw maths inst going to give you the correct result I don't think.

That's said, any date is just an incrementing number, read in chunks.

Would be good to see the final solution decided upon.

Back to top

Profile PM

Dybing

13

Years of Service

User Offline

Joined: 12th Sep 2011

Location: Bergen, Norway

Posted: 5th Oct 2018 13:20

Link

Did something similar some months back as a little challenge to myself a weekend I was bored...

It'll find number of days from today and back to when you were born. Though it isn't entirely accurate - it may be a day off with certain dates. Just some dates for some reason. Not bothered to find where the flaw is, as I grew bored with it, though I suspect it is lurking in the leap-year calculation.

/* ************************************** *
 *                                        *
 * Fun little days since birth calculator *
 *                                        *
 * CC-BY Roy Dybing                       *
 * April 2018                             *
 *                                        *
 * May be a day off with certain dates... *
 *                                        *
 * ************************************** */

SetErrorMode(2)
SetWindowTitle("ageToDays")
SetWindowSize(1024, 768, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1024, 768)
SetOrientationAllowed(1, 1, 1, 1)
SetSyncRate(30, 0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)

#constant false	= 0
#constant true		= 1

type date_t
	year as integer
	month as integer
	day as integer
endType

main()

function main()
 
    birth as date_t
    today as date_t
    days as integer
 
    repeat
        birth = bornDate()
        today = todayDate()
        days = numberDays(birth, today)
        repeat
            quit = GetRawKeyPressed(27)
            again = GetRawKeyPressed(32)
            print(str(birth.year) + ":" + str(birth.month) + ":" + str(birth.day))
            print(str(today.year) + ":" + str(today.month) + ":" + str(today.day))
            print("Days: " + str(days))
            print("Hit space to enter a new date, hit escape to quit")
            sync()
        until again or quit 
    until quit
     
endFunction

function bornDate()

in as string[2]
	out as date_t
	text as string[2] = ["What year were you born?", "What month were you born? (1-12)", "...and what day (1-31)"]

for i = 0 to text.length
		StartTextInput("")
		repeat
			print(text[i])
			sync()
		until GetTextInputCompleted()
		in[i] = GetTextInput()
		StopTextInput()
	next i

out.year = val(in[0])
	out.month = val(in[1])
	out.day = val(in[2])

endFunction out

function todayDate()

out as date_t
	today as string

today = GetCurrentDate()

out.year = val(GetStringToken(today, "-", 1))
	out.month = val(GetStringToken(today, "-", 2))
	out.day = val(GetStringToken(today, "-", 3))

endFunction out

function numberDays(born as date_t, today as date_t)

days as integer
	monthDays as integer[11] = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]

for i = born.year to today.year - 1
		days = days + 365
		if isLeapYear(i)
			inc days
		endif
	next i

if born.month > today.month
		days = days - 365
		for i = born.month to 12
			days = days + monthDays[i - 1]
		next i
		for i = 1 to today.month - 1
			days = days + monthDays[i - 1]
		next i
	else
		for i = born.month to today.month - 1
			days = days + monthDays[i - 1]
		next i
	endif

if born.day > today.day
		days = days - monthDays[born.month]
		for i = born.day to monthDays[born.month]
			inc days
		next i
		for i = 1 to today.day - 1
			inc days
		next i
	else
		for i = born.day to today.day - 1
			inc days
		next i
	endif

endFunction days

function isLeapYear(year)

leapYear as integer = false
	
	if mod(year, 400) = 0
		leapYear = true
	elseif mod(year, 100) = 0
		leapYear = false
	elseif mod(year, 4) = 0
		leapYear = true
	endif

endFunction leapYear

+ Code Snippet

/* ************************************** *
 *                                        *
 * Fun little days since birth calculator *
 *                                        *
 * CC-BY Roy Dybing                       *
 * April 2018                             *
 *                                        *
 * May be a day off with certain dates... *
 *                                        *
 * ************************************** */

SetErrorMode(2)
SetWindowTitle("ageToDays")
SetWindowSize(1024, 768, 0)
SetWindowAllowResize(1)
SetVirtualResolution(1024, 768)
SetOrientationAllowed(1, 1, 1, 1)
SetSyncRate(30, 0)
SetScissor(0,0,0,0)
UseNewDefaultFonts(1)

#constant false	= 0
#constant true		= 1

type date_t
	year as integer
	month as integer
	day as integer
endType

main()

function main()
 
    birth as date_t
    today as date_t
    days as integer
 
    repeat
        birth = bornDate()
        today = todayDate()
        days = numberDays(birth, today)
        repeat
            quit = GetRawKeyPressed(27)
            again = GetRawKeyPressed(32)
            print(str(birth.year) + ":" + str(birth.month) + ":" + str(birth.day))
            print(str(today.year) + ":" + str(today.month) + ":" + str(today.day))
            print("Days: " + str(days))
            print("Hit space to enter a new date, hit escape to quit")
            sync()
        until again or quit 
    until quit
     
endFunction

function bornDate()

	in as string[2]
	out as date_t
	text as string[2] = ["What year were you born?", "What month were you born? (1-12)", "...and what day (1-31)"]

	for i = 0 to text.length
		StartTextInput("")
		repeat
			print(text[i])
			sync()
		until GetTextInputCompleted()
		in[i] = GetTextInput()
		StopTextInput()
	next i

	out.year = val(in[0])
	out.month = val(in[1])
	out.day = val(in[2])

endFunction out

function todayDate()

	out as date_t
	today as string

	today = GetCurrentDate()

	out.year = val(GetStringToken(today, "-", 1))
	out.month = val(GetStringToken(today, "-", 2))
	out.day = val(GetStringToken(today, "-", 3))

endFunction out

function numberDays(born as date_t, today as date_t)

	days as integer
	monthDays as integer[11] = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]

	for i = born.year to today.year - 1
		days = days + 365
		if isLeapYear(i)
			inc days
		endif
	next i

	if born.month > today.month
		days = days - 365
		for i = born.month to 12
			days = days + monthDays[i - 1]
		next i
		for i = 1 to today.month - 1
			days = days + monthDays[i - 1]
		next i
	else
		for i = born.month to today.month - 1
			days = days + monthDays[i - 1]
		next i
	endif

	if born.day > today.day
		days = days - monthDays[born.month]
		for i = born.day to monthDays[born.month]
			inc days
		next i
		for i = 1 to today.day - 1
			inc days
		next i
	else
		for i = born.day to today.day - 1
			inc days
		next i
	endif

endFunction days

function isLeapYear(year)

	leapYear as integer = false
	
	if mod(year, 400) = 0
		leapYear = true
	elseif mod(year, 100) = 0
		leapYear = false
	elseif mod(year, 4) = 0
		leapYear = true
	endif

endFunction leapYear

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / Number of seconds to time