cara pertama :

variable P : line;
.
.
.
write (P, “Simulation Time :” & time’image(now));
writeline(output, P);

cara kedua :

report time’image(now);