home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 June / PCWorld_2000-06_cd.bin / Software / Komercni / Cigler / Dashbo / SETUP / _SETUP.1 / datetime.js < prev    next >
Encoding:
Text File  |  1999-12-17  |  1.2 KB  |  46 lines
  1. ' ***************************************************************************
  2. ' Design plochy, datum, cas
  3. ' ***************************************************************************
  4. Function DateToStr(value)
  5. dim output
  6.     output = " "
  7.     'output = " " & WeekDayName(WeekDay(value, vbUseSystem), true, vbUseSystem) & " "
  8.     'if CInt(Day(value)) < 10 then
  9.     '    output = output & "0"
  10.     'end if
  11.     output = output & Day(value)
  12.     output = output &  "."
  13.     'if CInt(Month(Value)) < 10 then
  14.     '    output = output & "0"
  15.     'end if
  16.     output = output & Month(value)
  17.     output = output &  "."
  18.     'output = output & MonthName(Month(value))
  19.     'output = output & " "
  20.     output = output & Year(value)
  21.     DateToStr = "<B><I>" & CStr(output) & "</I></B>"
  22. end function
  23.     
  24. Function TimeToStr(value)
  25. dim output
  26.     output = ""
  27.     'output = output & "[ "
  28.     if CInt(Hour(value))<10 then
  29.         output = output & "0" 
  30.     end if
  31.     output = output & Hour(value)
  32.     output = output & ":"
  33.     if CInt(Minute(value))<10 then
  34.         output = output & "0"
  35.     end if
  36.     output = output & Minute(value)
  37.     output = output & ":"
  38.     if CInt(Second(value)) < 10 then
  39.         output = output & "0"
  40.     end if
  41.     output = output & Second(value)
  42.     'output = output & " ]    "
  43.     TimeToStr = "<B><I>" & CStr(output) & "</I></B>"
  44. end Function
  45.  
  46.