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

Texbox e stringa il risultato ?

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

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

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