Solved date format on vba

[Akai90]

hai

i have this code..
trktmtsementara = DateAdd("M", tempohsementara, tarikhsementara)

how can i set the date format to dd mmmm yyyy
i try to set via property sheet but not working

my full code

Private Sub trktmtsementara_GotFocus()
If tempohsementara = "6" Then
trktmtsementara = DateAdd("M", tempohsementara, tarikhsementara)
Else
If tempohsementara = "1" Then
trktmtsementara = "31 Disember " & Year(tarikhsementara) + IIf(tempohsementara > 1, tempohsementara, IIf(Year(tarikhsementara) > 1, 0, 1))
End If
End If
End Sub

 

[Gasman]

Not sure why that would be?

 

[arnelgp]

on Design view of your Form, Click on tarikhsementara textbox.
on it's Property (Right Panel)->Format , put the format that you want (dd mmmm yyyy).

Private Sub trktmtsementara_GotFocus()
Dim n As Integer
n = Val(tempohsementara & "")
If tempohsementara = 6 Then
trktmtsementara = DateAdd("M", tempohsementara, tarikhsementara)
Else
If tempohsementara = 1 Then
trktmtsementara = DateSerial(Year(tarikhsementara) + IIf(tempohsementara > 1, tempohsementara, IIf(Year(tarikhsementara) > 1, 0, 1)), 12, 31)
End If
End If
End Sub

 

[arnelgp]

I don't see how the question relates to the code.

It does. The original code is returning String on the Else part.

 

[Gasman]

It does. The original code is returning String on the Else part.

When it should just be returning a date.