mojaSymfonia FORUM
https://forum.mix-soft.pl/

Data w formacie Clarion
https://forum.mix-soft.pl/viewtopic.php?f=15&t=3922
Strona 1 z 1

Autor:  aneta.g [ 2012-04-23, 15:48 ]
Tytuł:  Data w formacie Clarion

Cześć,
macie pomysł/podpowiedź w jaki sposób rozszyfrować date w formacie Clarion w imporcie specjalnym. W pliku tekstowym, który mam wczytać, w drugiej kolumnie jest data = 73782, która oznacza 31 grudnia 2002.

Bardzo proszę o sugestie.

Autor:  wrob [ 2012-04-23, 23:52 ]
Tytuł:  Re: Data w formacie Clarion

Tu nie ma co odszyfrowywac to po prostu kolejny numer dnia tylko ze nie liczony od 1900-01-01 jak w większości exceli sqli itp ale od 1800-12-28 - czy jakos tak - troche matematyki i da sie to opanowac - odejmujesz od tej clarionowej liczby (73782) liczbe 36161 - i dostajesz juz normalny dateserial ktory jest zrozumiały dla excela czy sql-a

Autor:  Misiek [ 2012-04-24, 15:04 ]
Tytuł:  Re: Data w formacie Clarion

wrob - tylko tutaj chodzi o Import specjalny do FK - a jak wiesz, tam poleceń jest tyle co kot napłakał :-(, dlatego też na pewno Excel w grę nie wchodzi - pozostaje coś dodać, odjąć przemnożyć i podzielić i aby pojawiła się magiczna data :-D

Autor:  aneta.g [ 2012-04-24, 16:55 ]
Tytuł:  Re: Data w formacie Clarion

Pomożecie w tej matematycznej łamigłówce?? :/

Autor:  wrob [ 2012-04-24, 22:11 ]
Tytuł:  Re: Data w formacie Clarion

Ja wiem ze chodzi o import specjalny dlatego odrazu napisałem żeby odjąć 36161 ;-) problem w tym ze w szablonie importu nie ma poleceń konwertujących date wiec pozostaje wywołać w szablonie ambasic poleceniem basic() i nim to przekształcić na zwykła datę

Autor:  rafal [ 2013-07-22, 13:21 ]
Tytuł:  Re: Data w formacie Clarion

Data w formacie Clarion w AmBasic

Kod:
long sub Date2Clarion(string inData)
   
   date d1
   date d2
   
   d1.FromStr( inData )
   d2.FromStr("1900-01-01")
   Date2Clarion = d1.DaysUntil(d2) + 36162

endsub


string sub Clarion2Date(long inData)

   date d2
   
   d2.FromStr("1900-01-01")
   d2.Add( inData - 36163 )
   Clarion2Date = d2.ToStr()

endsub

Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/