Days, Month, Year

[Bonzo2008]

I get some help for this code
but copy it as you like change
month and days what you like.

I put this code in Form Load event.

Dim MyDay As Variant
 Dim MyMonth As Variant
 Dim WD As Long
 Dim MM As Long
 Dim MyDate1, MyDate2, EngDays
 
'********************************* Date & Year
 MyDate1 = StrConv(Format$(Date, "dd"), vbProperCase)
 MyDate2 = StrConv(Format$(Date, "yyyy"), vbProperCase)
 
 '********************************* Days
 MyDay = Array("Monday", "Tuesday", "Wednesday", "Thursday", "Fridag", "Saterday", "Sunday")
 WD = Weekday(Now, vbMonday) 'day of week, where Monday is the 1st day of the week (1 based)
 
 '********************************* Month
 MyMonth = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
 MM = Month(Now)
 
 '************************* Day ************** Date *********** Month *****************Year
 LabelDatumEng.Caption = MyDay(WD - 1) & " " & MyDate1 & " " & MyMonth(MM - 1) & " " & MyDate2
 
 '********************************** END Date Year

Lenny

[Nightwalker83]

Are you requesting help with your code or is it a demonstration? What does the code do?

[Bonzo2008]

Hello Nightwalker

the code is for a phonebook with one form in Swedish and one form
in english as I have the national enviroment in swedish and
my daughter (have the same enviroment as I) livs in booth canada and sweden she would to have it
that when she goes to englis form it shall becom with the english language and
when she goes back then it should be swedish

thats al.

Lenny

[Hack]

Are you requesting help with your code or is it a demonstration? What does the code do?

I'm afraid I still don't know the answer to this question.

[Bonzo2008]

Hi Hack


Mybe it's the wrong place to show the code.
as I wrote earlier form1 = Swedish language
and form2 = English language
because she will have it seperate from language.

Lenny