Najprej ustvarimo nov program in ga poimenujemo.
V mojem primeru se bo program imenoval Leta.
|
|||||
![]() |
|||||
|
|||||
![]()
Potem na obrazec dodamo dve komponenti Label, štiri komponente TextBox in eno komponento Button, kot je prikazano na sliki.
|
|||||
|
|||||
![]()
Sedaj TextBox-u pod tekstom Starost dodamo vrednost Read Only na True.
|
|||||
|
|||||
![]()
Sedaj pa dvokliknemo na gumb Izračunaj in vnesemo naslednjo kodo:
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 TextBox4.Text = Years & " let, " & Months & " mesecev in " & days & " dni " |
|||||
|
|||||
![]()
Program sedaj samo še preizkusite in preverite, da deluje.
Sicer pa se oglasite na forumu. |
|||||