Hi,

PROC main()
LOCAL t
  SET(4, "YYYY-MM-DD")
  /* Trying to generate timestamp with time part only */
  ? HB_NTOT(0.12345)  // OK
  ? HB_DTOT(CTOD("")) + 0.12345 // OK
  ? t"0000-00-00" + 0.12345 // Wrong: no time part printed
  ? VALTYPE(t"0000-00-00") // Prints "T". OK
  ? VALTYPE(t"0000-00-00" + 0.12345) // Prints "D"  :(
  /* Try to avoid compile time optimisation */
  t := t"0000-00-00"
  ? t + 0.12345 // Bingo
RETURN


Regards,
Mindaugas
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to