Path: csiph.com!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail From: "Ettore" Newsgroups: it.comp.lang.visual-basic Subject: Probl: Insieme di Variabili, 1 da prendere se. Date: Sun, 10 Jun 2018 10:08:35 +0200 Organization: A noiseless patient Spider Lines: 3 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; format=flowed; charset="iso-8859-1"; reply-type=original Content-Transfer-Encoding: 8bit Injection-Date: Sun, 10 Jun 2018 08:08:36 -0000 (UTC) Injection-Info: reader02.eternal-september.org; posting-host="ee806501627f1620ab5f23bb117b6e98"; logging-data="30269"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX184K//1xIMbsvMvLt2wHoN9eEx1hxaV9P4=" Cancel-Lock: sha1:iku1uXBRG52BgOqHWXJc5ZU7kJM= X-MimeOLE: Produced By Microsoft MimeOLE V16.4.3528.331 X-Newsreader: Microsoft Windows Live Mail 16.4.3528.331 Importance: Normal X-Priority: 3 X-MSMail-Priority: Normal Xref: csiph.com it.comp.lang.visual-basic:19379 Buongiorno a tutti voi e buona domenica. Sto trasferendo in VB.NET Visual Studio 2017, parte dei calcoli che ho in excel. Ho questo algoritmo "Lettera Domenicale" =SE(Anno<1600;"n/a";SE(Anno>=10000;"outdate";( (CERCA.VERT((RESTO(Anno+8;28)+1);Tavola1!M133:N160;2))))) HO UNA TAVOLA M133:N160 Questa sotto. ============================================ Numero solare e Lettera Domenicale n°sol LettD 1 FE 2 D 3 C 4 B 5 AG 6 F 7 E 8 D 9 CB 10 A 11 G 12 F 13 ED 14 C 15 B 16 A 17 GF 18 E 19 D 20 C 21 BA 22 G 23 F 24 E 25 DC 26 B 27 A 28 G ============================================ Traslandola in VB.NET ho iniziato scrivendo Dim letdom As Integer If (Anno < 1600 Or >1000) Then letdom = "Outdate" Come posso proseguire perche' mi accorgo che sono ben 28 dati .E non so come gestirmeli. GRAZIE. PS il " (RESTO(Anno+8;28) " diventa ((Anno+8) Mod 28)+1