Es decir, escriba un temporizador de cuenta regresiva en un lenguaje sencillo. Supongamos que se ejecuta un programa cada cinco minutos. Quiero que cuente los cinco minutos.
.La subrutina toma el intervalo de cuenta regresiva, el tipo de texto y devuelve el formato de texto "día-hora-minuto-segundo". Para la parte de tiempo, consulte la variable de parámetro
.Parámetro hora de inicio, fecha y tipo de hora
Parámetro hora de finalización, tipo de fecha y hora
. Parámetro horas, vacío, contando la parte entera de ". hora"
. Parámetro minutos, la referencia está vacía y cuenta atrás hasta "minutos"
. El parámetro segundos, se refiere a Nulo, cuenta regresiva hasta el número entero "segundos"
. Días variables locales, decimal de doble precisión
. Variable local horas_, doble decimal
. Variable local minutos_, doble
. Variable local segundos_, doble
. Variable local text_days, tipo de texto
. Variable local text_hour, tipo de texto
. Variable local text_minutos, tipo de texto
. Variable local text_segundos, tipo de texto
Número de días = intervalo de valor (hora de finalización, hora de inicio, #número de días)
Número de horas = (número de días - a número entero ( número de días)) × 24
Minutos_ = (horas - a entero (horas_))× 60
Segundos_ = (minutos - a entero (horas_))× 60
Segundos_ = (minutos - a entero (horas_)) = (minutos_ - al número entero más cercano (minutos_))× 60
Segundos_ = redondo (segundos_, )
Text_days = a texto (al número entero más cercano (días) + 1) + "días"
Horas = al número entero más cercano (horas_)
Minutos = a entero ( minutos_)
Segundos = segundos_
. if (hora_ < 10)
text_hour = "0" + to text (to integer (hour_))+ "hour"
. En caso contrario
Text_hour = a texto (a entero (hora_))+ "hora"
. si final
. if (minutos_ < 10)
Text_minutos = "0" + a texto (a entero (minutos_))+ "minutos"
. En caso contrario
Minutos_texto = a texto (a entero (minutos_))+ "minutos"
. si final
. if (segundos_ < 10)
text_segundos = "0" + a texto (segundos_) + "segundos"
. En caso contrario
text_segundos = a texto (segundos_) + "segundos"
.
Si finaliza
Devolver (días_texto + horas_texto + minutos_texto + segundos_texto)
Ejemplo:
Obtener el intervalo de cuenta regresiva (tomar la hora actual (), a la hora ("2012-7-20-0:0:0"))