0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
1 Posted Topic
[QUOTE=QVeen72;798469]Hi, Try This Code: [code=vb] Dim FromDate As Date Dim ToDate As Date Dim TempDate As Date Combo1.clear FromDate = DateSerial(Val(cmbYear.Text), (CmbMonth.ListIndex+1), 1) ToDate = DateAdd("m", 1, FromDate) ToDate = ToDate - 1 TempDate = FromDate For TempDate = FromDate To ToDate Combo1.AddItem (Format(TempDate, "dd-mm-yyyy") & " " _ & …
The End.