Visual Basic Show MonthFirst

Visaul Basic Show MonthFirst

Version Corpatibility : Visual Basic 6.0 SP6

More information : Creating a MonthFirst in Visual Basic is very simple. You can use
function name DateSerial,Year,Month follow source code:

' Source Code Visual Basic
Public Function MonthFirst(ByVal pDate As Variant) As Variant
On Error GoTo MonthFirst_Err
MonthFirst = DateSerial(Year(pDate), Month(pDate), 1)
MonthFirst_Exit:
Exit Function
MonthFirst_Err:
MonthFirst = DateSerial(Year(Now), Month(Now), 1)
Resume MonthFirst_Exit
End Function

You can creat source code in form name or copy source code in the module and call function MonthFirst.

Example use:

' in source code form name
Call MonthFirst(Current Date)

*** if you question you can use comment please.