Clipper/FiveWin - Algoritmo

Hola foro, necesito una ayuda con un algoritmo:
tengo la siguiente estructura de datos:
Fecha
Empleado
Hora
Tipo (tipo de marca que puede ser e=entrada, s=salida se=salida-especial es=entrada-especial

hice un listado para obtener la resta de los extremos, o sea la salida menos la entrada, pero no consigo hacerlo para las entradas y salidas especiales.

el listado:

por cada fecha
si tipo='e'
entro=Hora
sino si tipo='s'
CalculoResta
finsi
fin para

como sería para ir calculando las especiales.
Gracias
Alejandro

Deberías tratarlas de la misma manera que las entradas y salidas comunes, por ejemplo:

por cada fecha
si tipo='e' ó tipo='es'
entro=Hora
sino si tipo='s' ó tipo='se'
CalculoResta
finsi
fin para

aunque yo lo haría asi:

por cada fecha
si left(tipo,1)='e'
entro=Hora
sino si left(tipo,1)='s'
CalculoResta
finsi
fin para