Public Function DateTo3CharString( _
    ByVal vDate As Variant _
    ) As Variant    DateTo3CharString(#2/13/92#) = "2BD"
    DateTo3CharString(#2/14/92#) = "2BE"
    DateTo3CharString(#5/30/94#) = "4EU"
    DateTo3CharString(#5/30/84#) = "4EU"See also:     DateTo4CharString Function
    DateTimeTo8CharString FunctionReturn value: The return value is composed of:     1) the last digit of the year (0..9)
    2) the month represented by a letter (A..L)
    3) the day represented by an alphanumeric (1..9, A..V)vDate: The date which is returned as a three-character string. Function returns Null if vDate is Null or cannot be fixed up to a Date. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.