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

Re: Texbox e stringa il risultato ?

From	"Ettore" <ettor50@nomail.com>
Newsgroups	it.comp.lang.visual-basic
Subject	Re: Texbox e stringa il risultato ?
Date	2018-05-10 21:25 +0200
Organization	A noiseless patient Spider
Message-ID	<pd26c2$asr$1@dont-email.me> (permalink)
References	<pd1h9s$pot$1@dont-email.me>

Show all headers | 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