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

Re: 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	Re: Texbox e stringa il risultato ?
Date	Thu, 10 May 2018 21:25:49 +0200
Organization	A noiseless patient Spider
Lines	5
Message-ID	<pd26c2$asr$1@dont-email.me> (permalink)
References	<pd1h9s$pot$1@dont-email.me>
Mime-Version	1.0
Content-Type	text/plain; format=flowed; charset="iso-8859-1"; reply-type=response
Content-Transfer-Encoding	7bit
Injection-Date	Thu, 10 May 2018 19:25:54 -0000 (UTC)
Injection-Info	reader02.eternal-september.org; posting-host="4cfe8c22adba705f30b054520077cf8c"; logging-data="11163"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18fogn7TKK2WnR8qLRS9Ms6aNPLrHrpoCI="
X-MimeOLE	Produced By Microsoft MimeOLE V16.4.3528.331
In-Reply-To	<pd1h9s$pot$1@dont-email.me>
X-Newsreader	Microsoft Windows Live Mail 16.4.3528.331
Importance	Normal
Cancel-Lock	sha1:IfvQtKcdXlYdM78QaOhETgblNZ0=
X-Priority	3
X-MSMail-Priority	Normal
Xref	csiph.com it.comp.lang.visual-basic:19359

Show key headers only | View raw

Sono riuscito a risolvere con un pizzico di fortuna e tante prove.

Dim ggSett As String

        If (((Ocell + 0.5) Mod 7) = 0) Then
            ggSett = "Lunedi"
        End If
        If (((Ocell + 0.5) Mod 7) = 1) Then
            ggSett = "Martedi"
        End If
        If (((Ocell + 0.5) Mod 7) = 2) Then
            ggSett = "Mercoledi"
        End If
        If (((Ocell + 0.5) Mod 7) = 3) Then
            ggSett = "Giovedi"
        End If
        If (((Ocell + 0.5) Mod 7) = 4) Then
            ggSett = "Venerdi"
        End If
        If (((Ocell + 0.5) Mod 7) = 5) Then
            ggSett = "Sabato"
        End If
        If (((Ocell + 0.5) Mod 7) = 6) Then
            ggSett = "Domenica"
        End If

        TextBox10.Text = ggSett
=====================================================

Mi rimane sempre il problema di come fare a
1) Come fare a trovare il Giorno dell'anno dalla data inserita.
Con le variabili inserite in una textbox
Dim giorno As Integer = Val(TextBox1.Text)
  Dim mese As Integer = Val(TextBox2.Text)
  Dim Anno As Integer = Val(TextBox3.Text)
  Dim Ora As Integer = Val(TextBox4.Text)
  Dim min As Integer = Val(TextBox5.Text)
  Dim sec As Integer = Val(TextBox6.Text)
  Dim secSS As Integer = Val(TextBox7.Text)
.................................................................
l'algoritmo e inserirlo in una textbox

.--------------
2) troare algoritmo giorno bisestile. E inserirlo in una textbox. Il 
Range -15000 +15000 anni .
Come sempre VB.NET

Un cordiale a tutti e condivido !

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

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