Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

extract system Date

Uploader:Mitgliedretro8x
Datum/Zeit:10.06.2020 20:42:53

'written by "retro8x", 10.06.2020
'contact: retro8x@protonmail.com
'github : https://github.com/retro8x
'discord: https://discord.gg/VZdFu9t
'support: buymeacoff.ee/retro8x
'license: IYUTBMAC == If you use this, buy me a coffee ;)
'
'
'functions to extract the systems date into calculatable integer values
'
function extractDay(s as string) as uinteger
    return val(mid(s, 4,2))
end function
'
function extractMonth(s as string) as uinteger
    return val(left(s, 2))
end function
'
function extractYear(s as string) as uinteger
    return val(right(s, 4))
end function
'
'
print "todays date is "&date
print "Day: "&extractDay(date)
print "Month:"&extractMonth(date)
print "Year:"&extractYear(date)
'
sleep
end