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

Texbox e stringa il risultato ?

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	Texbox e stringa il risultato ?
Date	Thu, 10 May 2018 15:26:17 +0200
Organization	A noiseless patient Spider
Lines	1
Message-ID	<pd1h9s$pot$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	Thu, 10 May 2018 13:26:20 -0000 (UTC)
Injection-Info	reader02.eternal-september.org; posting-host="4cfe8c22adba705f30b054520077cf8c"; logging-data="26397"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+/ku92xAXklaqOgwEn66gXzN1ePXUjmdk="
X-MimeOLE	Produced By Microsoft MimeOLE V16.4.3528.331
X-Newsreader	Microsoft Windows Live Mail 16.4.3528.331
Importance	Normal
Cancel-Lock	sha1:htPqwazG2+lSfc+ZgpTnaAoOKW8=
X-Priority	3
X-MSMail-Priority	Normal
Xref	csiph.com it.comp.lang.visual-basic:19358

Show key headers only | View raw

Texbox e stringa
Salve a tutti del gruppo Visual Basic Italia
Sto cercando di imparare e mi piacerebbe vedere altri listati con molte 
possibilita' e varie tipologie, purtroppo non riesco a trovare quello che 
vorrei.
Sapete se esiste un sito di sorgenti che abbia molti listati ?

Adesso mi trovo ad avere un problema.
Ho un pulsante dove mi calcola molte cose e .. dopo essere riuscito a 
inserire l'algoritmo del giorno giuliano se non con varie fatiche.........
Sono riuscito a fare alcune cose.

Ora dovrei calcolare il giorno della settimana da un JD.
Perché non riesco a ottenerlo da una data inserita.

Ora da questo listato che è' sotto, ho necessità alla fine di ottenere il 
giorno della settimana, ma non so' come mettere. ovviamente è una stringa.


===================================
Variabili Dim gia' definita.
Dim Ocell As Decimal
Dim ggSett As String
  --------------------------------------------
Ocell = (Int(365.25 * (Anno + 4716)) + Int(30.6001 * (mese + 1)) + giorno + 
B - 1524.5)
' --------------------------- Qui riutilizzo il Valore per re inserirlo 
sotto, per il risultato.
        Ocell = CDec(Ocell)
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 0) Then
            ggSett = Lunedì
        End If
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 1) Then
            ggSett = Martedì
        End If
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 2) Then
            ggSett = Mercoledì
        End If
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 3) Then
            ggSett = Giovedì
        End If
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 4) Then
            ggSett = Venerdì
        End If
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 5) Then
            ggSett = Sabato
        End If
        If (((Ocell - (7 * Fix(Ocell / 7))) + 0.5) = 6) Then
            ggSett = Domenica
        End If

        TextBox10.Text = ggSett   Come ottengo qui la stringa dalla 
risultante del calcolo ? ..

------------------------------
Inoltre dal giorno giuliano, qualcuno sa' come ottenere il giorno dell'anno 
"in numero" da una data inserita ! (In esempi) da poter imparare.
Come si ottiene l'algoritmo del giorno bisestile in "VB.NET" da una data 
inserita ?

Grazie a chiunque risponde.

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

Thread

Texbox e stringa il risultato ? "Ettore" <ettor50@nomail.com> - 2018-05-10 15:26 +0200
  Re: Texbox e stringa il risultato ? "Ettore" <ettor50@nomail.com> - 2018-05-10 21:25 +0200
    Re: Texbox e stringa il risultato ? "Sauro" <vicchi@crsscala.it> - 2018-05-11 09:19 +0200
      Re: Texbox e stringa il risultato ? "Ettore" <ettor50@nomail.com> - 2018-05-11 16:14 +0200
        Re: Texbox e stringa il risultato ? "Sauro" <vicchi@crsscala.it> - 2018-05-15 08:37 +0200
          Re: Texbox e stringa il risultato ? "Ettore" <ettor50@nomail.com> - 2018-05-15 17:03 +0200

csiph-web