Artifact 341a4cbd7d5bc92db404e91e2c3648368b791cbb0573bc897aa1babdff8ffd69:

• File examples/sample5.tcl — part of check-in [f4f5f9cdf6] at 2018-08-17 11:42:22 on branch trunk — added examples 4+5 (user: alex size: 478)

#!/bin/sh
#\
exec tclsh8.6 "$0" "$@"

#package require ooxml
source ../ooxml.tcl

set spreadsheet [::ooxml::xl_write new -creator {Alexander Schöpe}]
if {[set sheet [$spreadsheet worksheet {Tabelle 1}]] > -1} {
  set date [$spreadsheet style -numfmt [$spreadsheet numberformat -datetime]]
  $spreadsheet defaultdatestyle $date
  # 2018-03-02 17:39 -> 43161.73542
  $spreadsheet cell $sheet "2018-03-02 17:39" -index 0,0
  $spreadsheet write export5.xlsx
}
$spreadsheet destroy