Getting System Date and Passing to Function as Long

[Douglas C. Horner]

This question is a little embarrassing since I have been writing
code for years but here goes. I am using a function that requires
the date to be passed in MMDDYYYY format Long integer. The
the function converts the long integer to a julian date. My problem
is this.

TDate=Date$
Replace "-" with "" in TDate
Date=Val(TDate)

The problem is 08092001 is returned as yes... 8092001 and I'm
missing the 0 infront of the eight. I have searched and searched
but can't find what should be a simple solution. I know that the
VAL is the problem but does anyone know how I can keep the leading
zero?

Red Faced in PA


------------------

[Scott Turchin]

Have not tested the formatting here, otherwise this function works in one of my apps

Msgbox "The date is:" & GetPCDate

'-----------------------------------------------------------------------------------
Function GetPCDate() Export As String
Local sTime        As SYSTEMTIME
Local tDay              As Asciiz * 64
Local LocalDateFormat  As Asciiz * 64
GetLocalTime sTime
LocalDateFormat = "MMddyyyy"
GetDateFormat 0,0,sTime,LocalDateFormat, tDay, 64
Function = tDay
End Function

------------------
Scott

[This message has been edited by Scott Turchin (edited August 09, 2001).]

[Scott Turchin]

I just tested it, the leading zero is there.




------------------
Scott

[Tom Hanlin]

A LONG is never going to have a leading zero. Perhaps you want a different
variable type there?



------------------
Tom Hanlin
PowerBASIC Staff