Keskustelu: Ohjelmointikysymykset: VBA: Ehto päivämäärän mukaan

Jamro [31.01.2016 18:09:31]

Mikä olisi yksinkertaisin toteutus seuraavalle esimerkille, klikattaesa command-painiketta labeliin pitäisi saada arvot aikavälin mukaan?

esim.

1.1. - 31.3 labelin arvoksi 10
1.4 - 30.9 labelin arvoksi 20
jne.

Grez [01.02.2016 17:13:07]

Label.Value = ((Month(now)+2)\3)*10

Jamro [02.02.2016 19:31:23]

Kysymyksen asettelu oli epämääräinen joten laitetaan uusiksi, miten saa toteutettua esimerkin mukaisen valinnan label2:een päivämäärän mukaan?

If Label1 = (1.1 - 31.3) Then Label2 = Lukuarvo 1 tai teksti 1

If Label1 = (1.4 - 30.9) Then Label2 = Lukuarvo 2 tai teksti 2

lukuarvo 1 = 10 ja teksti Talvi

lukuarvo 2 = 20 ja teksti Kevät

Grez [02.02.2016 21:37:38]

No eikös tuosta nyt voisi soveltaa.. Kyseessä varmaankin joku koulutehtävä, joten laitan vain vähän runkoa. Tuosta pitäisi jo osalta soveltaa.

Dim m As Integer
m = Month(Label1.Value)
If m < 4 Then
    ' Label2 = Lukuarvo 1 tai teksti 1
ElseIf m < 10 Then
    ' Label2 = Lukuarvo 2 tai teksti 2
End If

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen