Jag vill tvinga fram en månads text med en siffra.

typ:
'Format(Date, "mmm") = 1 ' = Januari

Går det på något vis?

Tack!

Jag förstår inte riktigt vad du är ute efter, kan det vara såhär:

MonthName(1) ?

Funktionen returnerar alltså namnet på månad 1 (=januari).

/Johan

Suveränt!!! Tack!!! :-)

Jag har ett problem till om du kan?

Jag får en siffra mellan 1 - 12 och skall omvandla den till två datums varianter. En har du löst åt, mig den andra är:

EX: siffran 1
text1 = MonthName(1)
'och
text2 = Format(Date, "YYYY") & "-" & Format(Date, "MM") = 1 & "-01"
Detta ska bli:
2002-01-01

Så jag styr Format(Date, "MM") till siffran 1 ?????

Tacksam för hjälp! :-)

?? kan du förklara lite mer utförligt?

Tycker du snurra till det lite väl =) // R-mus

Hi hi, ja det är så det ser ut i mitt huvud :-)

Oki.
Glöm mitt senaste inlägg, TILT.

Tack för hjälpen.

jaha nu ska man glömma fast man har suttit och fipplat med skit fast man inte har tid. Nu får du ta me fan kolla på min fin fina kod här. =)

så här gjorde jag för att lösa det. (Finns säkert tusen bättre sätt men det struntar vi i nu).

Dim siffran As Integer

Private Sub Command1_Click()
siffran = Text1.Text
Text2 = MonthName(siffran)
månaden = Format(siffran, MM)

If månaden < 10 Then
månadnummer = "0" & månaden
End If

Text3 = Format(Date, "YYYY") & "-" & månadnummer & "-01"
End Sub

Hoppas du förstår // R-mus

Snyggt!!! :-)

gorde lika dant fast inte lika snyggt!

Tusen tack R-mus och ursäkta för besväret.
:-)

Du gör det ju mycket krångligare än du behöver:

<code>
Dim MyMonth as Long
MyMonth = 1

Text1 = MonthName(MyMonth)
Text2 = DateSerial(Year(Date),MyMonth,1)
</code>

Jävla VB-Diva =D // R-mus

Tack för komplimangen.

;O)

Uhm, liten bagatell kanske.. Men kör man som du sa så blir det (vid annat än svenskt datumformatering) inte ÅR-MÅNAD-DATUM!<br>
<br>
Så det korrekta borde då bli:

<code>
Dim MyMonth as Long
MyMonth = 1

Text1 = MonthName(MyMonth)
Text2 = Format(DateSerial(Year(Date),MyMonth,1), "YYYY-MM-DD")
</code>

Om programmet ska vara internationelt. Bör det formater datumet efter användarens inställningar.