| |
flip2222221:
Zakaj pa meni označi ta stavek: Dim DOB As New DateTime(a, b, c)
In mi programa noče odpret.
Ups moja napaka oprostite 
|
| |
| |
Ali ve kdo kak dodati še uro ker sem probo pa visual basic neve kaj pomeni "hours"
L.P. Jaz
|
| |
| |
Zdravo prvo bi tud jz povedou da program v prvi polovici leta zaostaja za eno leto v drugi pa je pravilno. za filipa pa je odgovor tukaj jaz sem dodal še ure minute in sekunde:
Dim a As String
Dim b As String
Dim c As String
a = TextBox3.Text
b = TextBox2.Text
c = TextBox1.Text
Dim DOB As New DateTime(a, b, c)
Dim Years As Integer = DateDiff(DateInterval.Year, DOB, Now) - 1
Dim Months As Integer = DateDiff(DateInterval.Month, DOB, Now) Mod 12
Dim days As Integer = DateDiff(DateInterval.Day, DOB, Now) Mod 30 - 10
Dim Hours As Integer = DateDiff(DateInterval.Hour, DOB, Now) Mod 24
Dim Minutes As Integer = DateDiff(DateInterval.Minute, DOB, Now) Mod 60
Dim Secundes As Integer = DateDiff(DateInterval.Second, DOB, Now) Mod 60
TextBox4.Text = Years & " let, " & Months & " mesecev in " & days & " dni " & Hours & " ur " & Minutes & " minut " & Secundes & " sekund "
prosim za odgovor zakaj zaostaja
|
| |
| |
To nisem ugotovil zakaj začne zaostajati, bom pa kmalu sestavil sistem, ki bo izračunal točen datum. Odgovor pričakuj do jutri 
|
| |
| |
Vredu, sem že sestavil algoritem. Vsaj meni je pokazalo pravi čas (sem preizkusil več datumov). Tukaj je koda:
'Določanje spremenljivk
Dim dan As Integer
Dim mesec As Integer
Dim leto As Integer
'Izračunanje meseca
mesec = Now.Month - TextBox2.Text
If mesec < 0 Then
mesec -= 2 * mesec
End If
'Izračunanje leta
leto = Now.Year - TextBox3.Text
If mesec > Now.Month Then
leto -= 1
End If
'Izračunanje dneva
dan = Now.Day - TextBox1.Text
If dan < 0 Then
dan -= 2 * dan
End If
Label1.Text = "Stari ste " + leto.ToString + " let, " + mesec.ToString + " mesecev in " + dan.ToString + " dni"
To pomeni, da narediš 3 textbox-e. Prvi je za dneve, drugi je za mesece in tretji za leta (rojstni datum), potem pa potrebuješ še label1 in seveda gumb kamor vneseš kodo. Upam, da bo delovalo, sicer pa sporoči
spremenil: PowerZan (12.2.2012 ob 22.37.51)
|
| |
| |
janiz hvala!
Obiskujem komaj 8.razred in še ne razumem toliko angleščine in programa!
L.P. Zigec :D
spremenil: flip2222221 (30.5.2012 ob 17.51.22)
|
| |
Prikazujem 2 od skupno 2 strani |
|
