Anda dapat menggunakan detik clock perintah Tcl untuk mengembalikan format waktu dan clock saat ini untuk menghasilkan string waktu tanggal yang diformat khusus.
Perintah format clock menerima argumen opsional dengan nama -format yang menentukan string yang mengontrol bagaimana string waktu tanggal diformat. Anda dapat menentukan kata kunci tanggal dan waktu yang diganti dengan komponen tertentu dari tanggal dan waktu saat ini.
Berikut adalah contoh perintah yang menghasilkan string waktu tanggal dengan elemen berikut, dalam urutan ini:
- Tahun empat digit
- Bulan dua digit (01-12)
- Hari dua digit (01-31)
- Format 24 jam dua digit jam (00-23)
- Dua digit menit (00-59)
- Dua digit detik (00-59)
format clock [clock detik] -format {%Y %m %d %H %M %S}
Perintah tersebut menghasilkan string ini:
2005 01 10 15 16 55
Berikut adalah tabel string pemformatan yang dapat Anda gunakan dengan perintah format clock.
| %% | Tanda % |
|---|---|
| %a | Nama hari kerja yang disingkat (Mon, Tue, dll.) |
| %A | Nama lengkap hari kerja (Senin, Selasa, dll.) |
| %b | Nama bulan yang disingkat (Jan, Feb, dll.) |
| %B | Nama bulan penuh |
| %c | Tanggal dan waktu spesifik lokal |
| %d | Hari dalam sebulan (01 - 31) |
| %H | Format jam dalam 24 jam (00 - 23) |
| %I | Format jam dalam 12 jam (00 - 12) |
| %j | Hari dalam setahun (001 - 366) |
| %m | Nomor bulan (01 - 12) |
| %M | Menit (00 - 59) |
| %p | Indikator AM/PM |
| %S | Detik (00 - 59) |
| %U | Minggu dalam setahun (00 - 52), Minggu adalah hari pertama dalam seminggu |
| %w | Nomor hari kerja (Minggu = 0) |
| %W | Minggu dalam setahun (00 - 52), Senin adalah hari pertama dalam seminggu |
| %x | Format tanggal spesifik lokal |
| %X | Format waktu spesifik lokal |
| %y | Tahun tanpa abad (00 - 99) |
| %Y | Tahun dengan abad (misalnya 1990) |
| %Z | Nama zona waktu |
Contoh
Berikut adalah contoh lain dari keluaran untuk string format yang berbeda.
Contoh 1
format clock [clock detik] -format {%b. %d, %Y}
10 Jan 2005
Contoh 2
format clock [clock detik] -format {%I:%M:%S %p}
03.21.01 WIB