SG Fórum - Visual Basic - #267

SG Fórum - Visual Basic - #267

Fórum / Felhasználói programok

gabor789 2009. márc. 24. 07:00 | válasz | #267
Csinálj a formon mondjuk 3 db. text_ablakot és 1 db. parancs_gombot...

a parancsgomb clickjéhez ird be:

Private Sub Command1_Click()

DATUM_1 = text1.Text ' ide kerül majd a kisebbik dátum

DATUM_2 = Text2.Text ' ide kerül majd a nagyobbik dátum

For x = 1 To 1000000 ' a két idõpont közötti maximális idõ napban

If Str(DateAdd("d", x, DATUM_1)) = DATUM_2 Then Text3.Text = x: Exit Sub

Next x

End sub

Ha elindítod és az ablakokba beirsz egy-egy dátumot a harmadikba kiirja a két dátum közötti napot...

Persze átvariálhatod, a text3 lehet label, a command valaminek a része stb...

Válasz 'Szusz123' üzenetére (#265)