DATE differences: probleema

[viesti Survo-keskustelupalstalla (2001-2013)]

Kirjoittaja: Petri Palmu
Sähköposti:    petri.palmu'at'tek.fi
Päiväys: 27.1.2005 11:34

Moi!

Koetin laskea henkilön ikää DATE-toiminnolla (joka sinänsä on erittäin
kävevä :)) kahden muuttujan avulla DATE1="27.01.2005" (tämä pvm. ) ja
SYNT joka on samaa muotoa (DD.MM.YYYY)

Ongelmia syntyi niiden henkilöiden osalta, joilla syntymäaika oli
1900-luvun alussa (ks. pätkä datasta alla). Tarkemmin sanottuna
vedenjakajapäivämäärä on 13.5.1915 (olikohan vielä perjantai?), sen ja
sitä aiempien syntymäaikojen muuntaminen iäksi ei onnistunut.

En keksi, mistä ihmeestä moinen mahtaa johtua? Ignoreeraako Survo
tahallisesti juuri "vanhukset" ;)

t. Petri

DATA _KOE1
SYNT        DATENOW
10.9.1909    27.1.2005
6.6.1900    27.1.2005
21.7.1965    27.1.2005
5.3.1905    27.1.2005
24.3.1920    27.1.2005
23.6.1913    27.1.2005
28.10.1914    27.1.2005
27.1.1909    27.1.2005
12.5.1915    27.1.2005
13.5.1915    27.1.2005
14.5.1915    27.1.2005
15.5.1915    27.1.2005

FILE COPY _KOE1 TO NEW KOE1
...................................
IDATE=DDMMYYYY IDEL=.
DATE KOE1,IKA
DATE_RULES IKA
IKA=DATENOW-SYNT
END
.........................
FILE SHOW KOE1

FILE LOAD KOE1,CUR+1
DATA KOE1*,G,H,I
 SYNT       DATENOW      IKA
 10.9.1909  27.1.2005      -
 6.6.1900   27.1.2005      -
 21.7.1965  27.1.2005  14435
 5.3.1905   27.1.2005      -
 24.3.1920  27.1.2005  30990
 23.6.1913  27.1.2005      -
 28.10.1914 27.1.2005      -
 27.1.1909  27.1.2005      -
 12.5.1915  27.1.2005      -
 13.5.1915  27.1.2005      -  <----
 14.5.1915  27.1.2005  32766
 15.5.1915  27.1.2005  32765


Eli huomataan, että 13.5.1915 ja sitä aiemmin syntyneiden
ikää (päivissä) ei tullut lasketuksi.

Vastaukset:

Survo-keskustelupalstan (2001-2013) viestit arkistoitiin aika ajoin sukrolla, joka automaattisesti rakensi viesteistä (yli 1600 kpl) HTML-muotoisen sivukokonaisuuden. Vuoden 2013 alusta Survo-keskustelua on jatkettu entistäkin aktiivisemmin osoitteessa forum.survo.fi. Tervetuloa mukaan!

Etusivu  |  Keskustelu
Copyright © Survo Systems 2001-2013. All rights reserved.
Updated 2013-06-15.