Groups > it.comp.lang.visual-basic > #19379

Probl: Insieme di Variabili, 1 da prendere se.

Path	csiph.com!eternal-september.org!feeder.eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From	"Ettore" <ettor50@nomail.com>
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	<pfima4$tht$1@dont-email.me> (permalink)
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

Show key headers only | View raw

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

Back to it.comp.lang.visual-basic | Previous | Next — Next in thread | Find similar

Thread

Probl: Insieme di Variabili, 1 da prendere se. "Ettore" <ettor50@nomail.com> - 2018-06-10 10:08 +0200
  Re: Probl: Insieme di Variabili, 1 da prendere se. Luca D <antaniserse@yahoo.it> - 2018-06-11 23:55 -0700
    Re: Probl: Insieme di Variabili, 1 da prendere se. "Ettore" <ettor50@nomail.com> - 2018-07-24 21:03 +0200
    Re: Probl: Insieme di Variabili, 1 da prendere se. "Ettore" <ettor50@nomail.com> - 2018-07-25 16:30 +0200

csiph-web