Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Geplaatst door willempie
ik kan je het nog gekker vertellen.de aanmaak datum bij mij is het jaar 2068.
Zo.Geplaatst door dutchdavid
Ik denk dat het alles te maken heeft met ( weet niet hoe je het in het NL zegt) "the Epoch".
Die van windows is namelijk: 1601-01-01
( Epoch = een bepaalde gebeurtenis in de geschiedenis die als markering gebruikt wordt voor die periode)
Bijvoorbeeld: OpenVMS Alpha 1858-11-17 werd gekozen door de eerste astronomische foto, die gemaakt werd in Amerika door the Smithsonian, op die datum.
Geplaatst door Guus abc
Zo.
En wat voor historische gebeurtenis gaat er dan in 2068 plaatsvinden?
Guus.
Dat is allemaal heel interessant en leerzaam en zo, en ik had daar inderdaad ooit wel eens iets over gelezen, maar dat heeft toch niets te maken met het feit dat er bij de aanmaakdatum van dat bestand 01-01-1601 staat. En voorheen 1968. En bij anderen 2068.Geplaatst door dutchdavid
Om een heel lang (engels) verhaal kort te maken:
Wanneer er 2 cijferige jaren worden geaccepteerd worden ze omgezet volgens de POSIX or X/Open standaard en dat is:
values 69-99 are mapped to 1969-1999, and values 0-68 are mapped to 2000-2068. Values 100-1899 are always illegal.
Zie pagina: http://sunsite.informatik.rwth-aachen.de/python/doc/1.5.2/lib/module-time.html
Volgens mij komt het daardoor...heeft dus ook te maken met Y2K waar men het toen zo over had.
Nee, dat is al in 2029 (Klik) - en ook nog op vrijdag de dertiende.Geplaatst door vanzwam
Die asteroïde die tegen de aarde gaat botsen misschien
Geplaatst door Guus abc
Nee, dat is al in 2029 (Klik) - en ook nog op vrijdag de dertiende.
En ook jij bedankt voor je felicitatie.
Guus.
Off topic (toch maar weer even): Jammer. Zonder Flash kun je mijn site niet bekijken.Geplaatst door gezina
heb nooit iets van Java, flash or what ever geinstalleerd.
/* ========================================================= */
/* Ooit schreef ik dit Rexx programmaatje voor mijn werk. */
/* Bepaal de nieuwe datum,nadat v.e. tevoren opgegeven datum */
/* met bv 30 dagan is vermeerderd. */
/* File zit nu în de RDRLST. (VM370 mainframe) */
/* ========================================================= */
VMfclear
/* ========= Begin v.d. Window en Vscreen definities ==========
========= voor de invoervelden. ======= */
Parse Source . . @Fn @Ft @Fm .
Query Display ‘(‘Stack
Pull . @lines @cals .
Set Charmode On
Vsc Def @Fn @Lines @cols O O ‘(‘Prot
Win Def @Fn @lines @cols 1 1 ‘(‘Noborder
Win Show @Fn ON @Fn
/* ====== Variabelen v.d. attributen ========= */
@Nhu = '(Noprot High Underline'
@Pphf = ‘(Prot Pink High Field’;@F = ‘(Field’
@Hf = ‘(High Field’ ;@Rf = ‘(Rev Field'
@Bhf = '(Blink High Field’
@Uhnf = '(Underline High Noprot Field’
@Position = Vsc Writ @Fn
@Position 3 29 0 @Rf Center(’F3 om te stoppen’,16,’ ')
@Position 7 7 0 @Rf "De dag. O<dag<32 :"
@Position 9 7 0 @Rf "De maand. O<maand<13 :"
@Position 11 7 0 @Rf "Het jaar. Jaar>l582 :"
@Position 15 7 0 @Rf "Nieuwe datun bepalen :"
@Position 16 7 0 @Rf "Na x dagen later "
@Position 7 45 0 @Rf "0 <xdagen<=999 "
@Position 7 7 0 @F "Ingevoerde datum was :"
@Position 7 7 0 @F "Nieuwe datum is :"
@Position 7 33 3 @Uhnf " ";@Position 9 33 3 @uhnf ' '
@Position 11 11 5 @Uhnf " ";@Position 15 33 4 @uhnf ' '
@Position 21 14 0 @Bhf "Geef ENTER wanneer alle velden zijn ingevuld"
Invoer “(Het prorammaa accepteert alleen correcte invoer)”
@Position 22 11 0 @F Invoer
/* ===== Einde v.d. Window en Vscreen definities ====== */
/* ===== t.b.v. de invoervelden. ====== */
/* In case to change position: Vsc Cursor @Fn 11 13 */
Vsc Cursor @Fn 7 34
Do Untìl @pfkey = ‘PFKEY 3’
Flag = 0;m = 0;j = 0;Tdagen = 0;Bdag = 0
Xdagen = 0;Hmaand = 0;Hjaar = 0
Vsc waitread @Fn
Parse Var Waitread.1 @Pfkey
Select
When @pfkey = ‘ENTER' Then
Do
/* Makebuf Regel 54 t/m 66: testen ingevoerde waar-
Cursor @Fn ‘(‘stack den, met trace "I" om-
pull . . Rule Column . slachtig.
Dropbuf
@position 20 15 0 @F Waitread.0
kol = 20
If Waitread.0 = 6 Then Do
Do I = 3 to 6
Parse Var Waitread.I . Regel . @Opt
@Position 20 kol 0 @F @Opt
kol = kol + 7
End I
End */
/* If Waitread.0 > 2 Then
If Waitread.O = 6 Then
DO
Do @ = 3 To Waitread.0
Parse Var Waitread.@ . Regel . @Opt
Select
When Regel = 7 Then Do
If @Opt < 1 | @Opt > 31 | @Opt = ““ Then
Flag = 0;else Flag = Flag + 1;Bdag = @Opt
End
When Regel = 9 Then Ðo
If @Opt < 1 | @Opt > 12 | @Opt = "" Then
Flag = 0;else Flag = Flag + 1;m = @Opt
End
When Regel = 11 Then Do
If @Opt < 1583 | @Opt = "" Then
Flag = 0;else Flag = Flag + 1;j = @Opt
End
When Regel = 15 Then Ðo
If @Opt < 1 | @Opt = ““ Then
Flag = 0;el5e Flag = Flag + 1;Xdagen = @Opt
End
Otherwìse Nop
End
End @
End
End
Otherwise
Do
Select
When @pfkey = ‘CLEAR'' Then
Do
Vsc Cursor @Fn 7 34
End
Otherwise nop
End
End
End
/* 4 gegevens (Bdag,m, en Xdagen) zijn nu ingevoerd */
/* Nu berekent het programma het volgende : */
/* 1) Voor 28 of 29 dagen in de maand Februari */
/* 2) Voor de dagen v.d. andere maanden. (30 of 31) */
/* 3) De nieuwe datum na x dagen later. */
/* @Position 20 70 0 @F Flag */
If Flag = 4 Then
Do
Hmaand = m;Hjaar = j;Tdagen 0
d = 0;y = 0;x = 0;a = 0;b = 0;e = 0;t = 0
Do 36 /* Kalender voor 36 maanden: Is ruimschoots voldoen- */
If m < 3 Then /* de voor + 30 dagen na een */
Do /* opgegeven datum. */
md = m + 10 /* Kan natuurlijk nog meer bv */
Jr = J - 1 /* na 1000 Jaar. */
e = jr % 100 /* alleen lang wachten.Heb */
End
Else Do
md = m - 2
jr = j
e = jr % 100
End
t = jr — e * 100
a = (md * 2.59) % 1
b = (jr % 4) + (e % 4)
x = a + b + e + t + 1
If m = Hmaand Then Do
y = x — ((x % 7) * 7)
End
Select
When m = 2 Then
Do
d = 28
Ja = J
If t + 1 = 100 Then Do
ja = e + 1
End
If abs((ja % 4) * 4 - ja) < .1 Then Do
d 29
End
End
When m ~= 2 Then Do
d = 28 + (((md + 1) * 2.59) % 1) - a
End
Otherwise
Nop
End /*Select*/
Do Teller = 1 To d
Tdagen Tdagen + 1
If Tdagen = (Bdag + Xdagen) Then Ðo
Newday = Teller
Select
When y = 0 Then SoortDag = "(Zondag)"
When y = 1 Then SoortDag = "(Maandag)"
When y = 2 Then SoortDag = "(Dinsdag)"
When y = 3 Then SoortDag = "(Woensdag)"
When y = 4 Then SoortDag = "(Donderdag)"
When y = 5 Then SnortDag = "(Vrijdag)"
When y = 6 Then SoortDag = "(Zaterdag)"
Otherwise Nop
End /*Select*/
/* Extra spaties achter elke string is om ervoor */
/* te zorgen dat een voorgaande lange uitvoer op */
/* het scherm niet achter blijft steken,wanneer */
/* de volgende uitvoer kleiner is. */
Oude_datum = Bdag | “-“ | | Hmaand | |"-" | | Hjaar | | ” “
Xdagen_Later = “(“ | | Xdagen | |" dag(en) later)" | |"
Nieuwe_da±um = Newday | | " " | | SoortDag | | " -" | | m | | ,
"-" | | J | |"
@Position 9 45 0 @F Oude_datum /* Uitvoer op het */
@Position 16 4S 0 @F Xdagen_Later /* schern voor de */
@Position 18 45 0 @F Nieuwe_datum /* nieuwe datum. */
Vsc Cursor aFn 7 34
End /* If Tdagen */
If Tdagen = (Bdag + Xdagen) Then Leave
y = y + 1
If y = 7 Then y = 0
End /* End van DQ Teller. . . (De dagen v.d. maand) */
If Tdagen (Bdag + Xdagen) Then Leave
m = m + 1
If m = 13 Then Do
m = 1;j = j + 1
End
End /* End van Do 36 l
End /* End van If Flag = 4,en de allerlaatste End is voor F3 */
Else Do
Nop
End
End
Win Delete @Fn
Vsc Delete @Fn
Exit /* Einde programma */
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.