Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustiť Visual Studio . Kliknite na " Súbor " . Zobrazí sa výberová ponuka . Kliknite na tlačidlo " Nový projekt " . Otvorí sa okno " New Project " .
2
Kliknite na " Visual Basic " a potom dvakrát kliknite na položku " Windows Forms aplikácie " vytvoriť nový projekt Visual Basic . Nový formulár sa zobrazí v okne návrhu .
3
Dvakrát kliknite formulára hlavičky. Okno kódu sa otvorí a zobrazí sa nasledujúci kód :
" Private Sub Form1_Load ( byval odosielateľ ako System.Object , ByVal e As System.EventArgs ) Kľuky MyBase.Load
End Sub "
Stránka 4
Pridajte nasledujúci kód pred " End Sub " vyhlásenie :
Dim date1Year As Long Dim
date1Month As Integer
Dim date1Day As integer
Dim date2Year As Long Dim
date2Month As integer
Dim date2Day As integer
Dim dayCount As integer
Dim weekCount As desatinné
" Nastaviť date1 a datum2 hodnoty pod
date1Year = 2000
date1Month = 1
date1Day = 1
date2Year = 2009
date2Month = 2
date2Day = 2
' Zistenie počtu dní medzi dvoma dátumami
Dim date1 ako nový System.DateTime ( date1Year , date1Month , date1Day )
Dim date2 As New System.DateTime ( date2Year , date2Month , date2Day )
dayCount = date2.Subtract ( date1 ) . Days
weekCount = dayCount /7
MessageBox.Show ( weekCount.ToString ( ) )
5
Vyhľadajte komentár , ktorý má tento štítok : " . Nastaviť date1 a pod datum2 hodnoty "
šesť riadkov kódu , ktoré sledujú tento komentár umožňujú nastaviť date1 a date2 hodnoty . V tomto príklade , je date1Year 2000 , date1Month je 1 a date1Day je 1. . To sa rovná 1. januárom 2000 . Date2Year je rok 2009 , date2Month je 2 a date2Day je 2. To sa premieta do 2. februára 2009 .
Pri spustení tohto kódu , vypočíta sa počet týždňov medzi Date1 a dátum 2 a uloží hodnotu do premennej s názvom " weekCount . " Konečné vyúčtovanie MessageBox.Show otvorí pop - up okno a zobrazí výsledok .
6
Stlačením tlačidla " F5 " pre spustenie projektu . Okná pop - up sa objaví počet týždňov medzi dvoma dátumami . V tomto príklade , že hodnota je 474,28 .