☜	$%DECDMS Draft MDC Standard					☞

2 MATH Library
2.30 DECDMS

DECDMS(X,PREC) New T
	Set PREC=$Get(PREC,5)
	Set X=X#360*3600
	Set T=PREC-$Length(X\1)
	Set X=+$Justify(X,0,$Select(T'<0:T,1:0))
	Quit X\3600_":"_(X\60#60)_":"_(X#60)

Copyright © Standard Documents; 1977-2024 MUMPS Development Committee;
Copyright © Examples: 1995-2024 Ed de Moel;
Copyright © Annotations: 2003-2008 Jacquard Systems Research
Copyright © Annotations: 2008-2024 Ed de Moel.

Some specifications are "approved for inclusion in a future standard". Note that the MUMPS Development Committee cannot guarantee that such future standards will indeed be published.

This page most recently updated on 16-Nov-2023, 16:50:36.

For comments, contact Ed de Moel (demoel@jacquardsystems.com)