[LAMBDA] JSON.FROMRANGE

[maninweb]

Moin,

eine LAMBDA-Funktion, die aus einem Bereich JSON-Daten erstellt.

Code:

Header : Kopfzeile, also Überschriften
Data   : Datentabelle, also unterhalb der Kopfzeile
Types  : optionale Angabe von Datentypen pro Spalte, als einzeiliger Bereich mit selben Ausmass wie die Kopfzeile.
         Ohne Angabe erfolgt eine automatische Erkennung aus erster Datenzeile. Mögliche Werte:
         1 = String
         2 = Zahl
         3 = Boolean
IsArray: JSON als Array mit [] drum herum

LAMBDA-Funktion ...

Code:

=LAMBDA(Header;Data;Types;IsArray;
        LET(C;MIN(SPALTEN(Header);SPALTEN(Data));
            R;ZEILEN(Data);
            X;SEQUENZ(1;C);
            Y;SEQUENZ(R);
            F;LAMBDA(F;T;V;C;LET(R;WECHSELN(T;INDEX(V;C;1);INDEX(V;C;2));WENN(C<2;R;F(F;R;INDEX(V;SEQUENZ(C-1);{1.2});C-1))));
            A;WENN(WENNFEHLER(--IsArray;0)>0;1;0);
            T;WENN(ISTFEHLER(INDEX(Types;1;X));WENN(ISTTEXT(INDEX(Data;1;X));1;
                                               WENN(ISTZAHL(INDEX(Data;1;X));2;
                                               WENN(ODER(""&INDEX(Data;1;X)=""&(0>1);""&INDEX(Data;1;X)=""&(0<1));3;1)));
                                               INDEX(Types;1;X));
              WENN(A>0;"["&"{";"{")&
              TEXTKETTE(ZEICHEN(34)&""&INDEX(Header;1;X)&ZEICHEN(34)&":"&" "&
              WENN(ISTLEER(INDEX(Data;Y;X));"null";
              WAHL(INDEX(T;1;X);ZEICHEN(34)&
                   F(F;INDEX(Data;Y;X);WAHL(SEQUENZ(4;2);"""";"\""";ZEICHEN(9);"\t";ZEICHEN(10);"\n";ZEICHEN(13);"\r");4)&ZEICHEN(34);
                   WECHSELN(""&WENNFEHLER(--INDEX(Data;Y;X);0);",";".");
                   WENN(WENNFEHLER(--INDEX(Data;Y;X);0);"true";"false")))&
              WENN(X<C;",";WENN(Y<R;"}"&","&"{";"")))&
              WENN(A>0;"}"&"]";"}")))

Gruß

[LCohen]

Das ist ja dann gleich ein Beispiel für ein LAMBDA im LAMBDA. Somit kann man auf Modularität mittels zweier unabhängiger LAMBDAs auch mal verzichten. Auch wenn der Code im aufrufenden LAMBDA dann natürlich länger wird.

Beispiel von verschachtelten LAMBDAs (wo man das Aufgerufene auch im Aufrufenden integrieren könnte). Allerdings wird SORTBY.KEYRANGE dort nicht 1mal, sondern 2mal aufgerufen. Dann ist die Auslagerung auf jeden Fall besser.

[RPP63]

Ich weiß, das ist hier ein wenig off topic.

Aber ich habe heute erstmalig LAMBDA() "geübt" und bin ob der Möglichkeiten fasziniert.
Aufgabe:
Erstelle eine Liste aller Ostersonntage im Bereich 2000-2025, sortiert nach Zeitpunkt im jeweiligen Jahr.

Geht ratz-fatz mit einer LAMBDA() und einer LET() und ist kürzer und einfacher zu verstehen als das VBA-Pendant:

	H
1	23.03.2008
2	27.03.2005
3	27.03.2016
4	31.03.2002
5	31.03.2013
6	31.03.2024
7	01.04.2018
8	04.04.2010
9	04.04.2021
10	05.04.2015
11	08.04.2007
12	08.04.2012
13	09.04.2023
14	11.04.2004
15	12.04.2009
16	12.04.2020
17	15.04.2001
18	16.04.2006
19	16.04.2017
20	17.04.2022
21	20.04.2003
22	20.04.2014
23	20.04.2025
24	21.04.2019
25	23.04.2000
26	24.04.2011

Name	Bezug
Ostern	=LAMBDA(Jahr;RUNDEN((TAG(MINUTE(Jahr/38)/2+55)&".4."&Jahr)/7;0)*7-6)

Zelle	Formel
H1	=LET(o;Ostern(SEQUENZ(26;;2000));SORTIERENNACH(o;TEXT(o;"MTT")))

Sorry fürs off topic!

Gruß Ralf

[LCohen]

Bei maninweb gibt es schon die Gaussvariante dazu ;)

[RPP63]

Aha, spart mir ja etwas Arbeit.
Zu Excelformeln:
Die Ermittlung des Datums im letzten Schritt ist unnötig kompliziert, denn schließlich ist für Excel der 32.3. automatisch der 1.4.

	A	B	C
1	2020
2
3
4
5	32	23
6	01.04.2020	23.03.2020	Excelformeln
7	01.04.2020	23.03.2020	meine

Zelle	Formel
A6	=DATUM($A1;WENN(A5>31;4;3);WENN(A5-31< 1;A5;A5-31))
B6	=DATUM($A1;WENN(B5>31;4;3);WENN(B5-31< 1;B5;B5-31))
A7	=DATUM($A1;3;A5)
B7	=DATUM($A1;3;B5)

Zu Gauss:
Das Gleichungssystem hat ja durchaus ein paar Schwächen, ich würde da eher die überarbeitete Version von Lichtenberg nehmen, die allerdings 10 Variablen hat:
http://de.wikipedia.org/wiki/Gau%C3%9Fsc...sterformel

In VBA habe ich das vor Jahren mal umgesetzt, die Umsetzung für LAMBDA() werde ich mal am Wochenende angehen.

Function Ostersonntag(ByVal j As Integer) As Date
' Ergänzte Gauß-Formel nach Heiner Lichtenberg (1997) 
' http://de.wikipedia.org/wiki/Gau%C3%9Fsche_Osterformel#Eine_erg.C3.A4nzte_Osterformel 
' VBA-Umsetzung durch RalfP 

' Variablenbedeutung 
' x(0) = Säkularzahl 
' x(1) = säkulare Mondschaltung 
' x(2) = säkulare Sonnenschaltung 
' x(3) = Mondparameter 
' x(4) = Keim für ersten Frühlingsvollmond 
' x(5) = kalendarische Korrekturgröße 
' x(6) = Ostergrenze 
' x(7) = erster Sonntag im März 
' x(8) = Osterentfernung in Tagen 
' x(9) = Datum des Ostersonntags als Märzdatum (32. März = 1. April usw.) 

Dim x(9) As Long
  x(0) = j \ 100
  x(1) = 15 + (3 * x(0) + 3) \ 4 - (8 * x(0) + 13) \ 25
  x(2) = 2 - (3 * x(0) + 3) \ 4
  x(3) = j Mod 19
  x(4) = (19 * x(3) + x(1)) Mod 30
  x(5) = (x(4) + x(3) \ 11) \ 29
  x(6) = 21 + x(4) - x(5)
  x(7) = 7 - (j + j \ 4 + x(2)) Mod 7
  x(8) = 7 - (x(6) - x(7)) Mod 7
  x(9) = x(6) + x(8)
Ostersonntag = DateSerial(j, 3, x(9))
'denn der 32.3. ist automatisch der 1.4. 
End Function

[maninweb]

Moin,

Hey Ralf, sehr coool :-)

Nebenbei, meine LAMBDA da oben ist etwas veraltet, eine bessere Version: http://www.excel-ticker.de/json-fromrange/
Und noch meine Einführung, auch mit OSTERN: http://www.excel-ticker.de/die-lambda-fu...-in-excel/

Gruß