Formating dates in a VB application. 2

[Tigerman]

I'm currently writing a program for my department that automatically inserts the date into a text field. The problem is that when the date is inserted, it is in a "m/d/yy" format. The problem is that a format of "mm/dd/yy" is required in order to work with our software. How can I customize the format of the date to what I need?

 

[NipsMG]

Here Ya Go

Dim sDate as String
sDate = FormatDate()

Public Function FormatDate() As String
    Dim sDate As String
    Dim sMonth As String, sDay As String, sYear As String
    sMonth = Month(Date)
    sDay = Day(Date)
    sYear = Year(Date)
    If Len(sMonth) < 2 Then sMonth = &quot;0&quot; & sMonth
    If Len(sDay) < 2 Then sDay = &quot;0&quot; & sDay
    If Len(sYear) > 2 Then sYear = Right(sYear, 2)
    sDate = sMonth & &quot;/&quot; & sDay & &quot;/&quot; & sYear
    FormatDate = sDate
End Function

 

[dpaulson]

Text1 = Format(Now, "mm/dd/yy&quot
David Paulson

 

[NipsMG]

Or you could do that... if you're lazy... LOL!!

 

[Tigerman]

Ha! Ha! I am feeling a bit lazy today. Thanks guys!